EXPORT PRIMITIVES QUOTE PRIMITIVES *PLUSGLOBAL *TIMESGLOBAL *DIFGLOBAL *QUOGLOBAL %DIVGLOBAL SUB1LISP-INTERNALS ZLKEYWORD *PLUSGLOBAL *PLUSGLOBAL "| *TIMESGLOBAL *TIMESGLOBAL MULTIPLY-GENERICNEW-MATH E#F *DIFGLOBAL *DIFGLOBAL@"| *QUOGLOBAL *QUOGLOBAL TRUNCATENEW-MATH E#F %DIVGLOBAL %DIVGLOBAL /LISP-INTERNALS E#F SUB1LISP-INTERNALS SUB1LISP-INTERNALS | *LOGIORSYSTEM *LOGIORSYSTEM`"| *LOGANDSYSTEM *LOGANDSYSTEM"| *LOGXORSYSTEM *LOGXORSYSTEMp"| *MINSYSTEM *MINSYSTEM MIN-2LISP-INTERNALS E#F *MAXSYSTEM *MAXSYSTEM MAX-2LISP-INTERNALS E#F AR-1LISP-INTERNALS AR-1LISP-INTERNALS AREF-1ARRAY E#F AR-2GLOBAL AR-2GLOBAL AREF-2ARRAY E"@%F SET-AR-1SYSTEM SET-AR-1SYSTEM ASET-1ARRAY$E @#F SET-AR-2SYSTEM SET-AR-2SYSTEM ASET-2ARRAY&E @"@%F SIMPLE-MAKE-ARRAY-1D-Q-SHORTSYSTEM-INTERNALS SIMPLE-MAKE-ARRAY-1D-Q-SHORTSYSTEM-INTERNALS MAKE-ARRAY-INTERNALARRAY   E`@j@j@j@` @j @j@kF SIMPLE-MAKE-ARRAYSYSTEM-INTERNALS SIMPLE-MAKE-ARRAYSYSTEM-INTERNALS MAKE-ARRAY-INTERNALARRAY  `"@ j$@ j&@ j(@  E"@j@j@j@` @& @j@%F  INTERNAL-=SYSTEM  INTERNAL-=SYSTEMp"0@A @AhDjD  INTERNAL-=SYSTEM  INTERNAL-=SYSTEMp"0@A @AhDjD  INTERNAL-<SYSTEM  INTERNAL-<SYSTEM@"0@A@AhDjD  INTERNAL-<SYSTEM  INTERNAL-<SYSTEM@"0@A@AhDjD  INTERNAL->SYSTEM  INTERNAL->SYSTEM@"0@A@AhDjD  INTERNAL->SYSTEM  INTERNAL->SYSTEM@"0@A@AhDjD