(FILECREATED "28-Sep-85 16:14:29" {ERIS}<LISPCORE>BUSMASTER>KOTO>TEST>BUSMASTERARRAYBASE.;1
 412    

      changes to:  (MACROS ARRAYBASE)
		   (VARS BUSMASTERARRAYBASECOMS))


(PRETTYCOMPRINT BUSMASTERARRAYBASECOMS)

(RPAQQ BUSMASTERARRAYBASECOMS
 ((MACROS ARRAYBASE)))
(DECLARE: EVAL@COMPILE 
(PUTPROPS ARRAYBASE DMACRO (X (LIST (QUOTE \GETBASEPTR)
				    (CAR X)
				    0)))
)
(DECLARE: DONTCOPY
  (FILEMAP (NIL)))
STOP