*PLUSGLOBAL *PLUSGLOBAL "| *TIMESGLOBAL *TIMESGLOBAL MULTIPLY-GENERICNEW-MATH E#F *DIFGLOBAL *DIFGLOBAL@"| *QUOGLOBAL *QUOGLOBAL TRUNCATENEW-MATH E#F %DIVGLOBAL %DIVGLOBAL DIVIDE-GENERICNEW-MATH E#F *LOGIORSYSTEM *LOGIORSYSTEM`"| *LOGANDSYSTEM *LOGANDSYSTEM"| *LOGXORSYSTEM *LOGXORSYSTEMp"| *MINSYSTEM *MINSYSTEM MIN-2LISP-INTERNALS E#F *MAXSYSTEM *MAXSYSTEM MAX-2LISP-INTERNALS E#F SUB1GLOBAL SUB1GLOBAL | %POINTERLISP-INTERNALS %POINTERLISP-INTERNALS lD@ a ASSQGLOBAL ASSQGLOBAL   CDRCONS CARCONS CAARCONS "@@A @A"C@D@A @A#G#C@A jD MEMQGLOBAL MEMQGLOBAL   CDRCONS CARCONS "@@A @A"C@D@A @A"D#C@A jD  MEMBER-EQLSYSTEM  MEMBER-EQLSYSTEM  CDRCONS CARCONS MEMQGLOBAL TYPEPLISP-INTERNALS A@@BD@@A@A E#F"@@A@A"C@!@A @A"D#C@A jD OR PRIMITIVES NOT PRIMITIVES NUMBERLISP-INTERNALS FIXNUMLISP-INTERNALS MEMBERLISP MEMBERLISP    SYMBOLPVINCULUM CDRCONS EQUALLISP-INTERNALS CARCONS MEMQGLOBAL FIXNUMPGLOBAL C$@@A@A$@@A @A E#F"@@A@A"C( BD@@A@A"D#C @A jD C@A  MEMBER-EQUALSYSTEM  MEMBER-EQUALSYSTEM    SYMBOLPVINCULUM CDRCONS EQUALLISP-INTERNALS CARCONS MEMQGLOBAL FIXNUMPGLOBAL C$@@A@A$@@A @A E#F"@@A@A"C( BD@@A@A"D#C @A jD C@A NLISTPGLOBAL NLISTPGLOBAL LISTPVINCULUM CD@@A@AjDhD COMMON-LISP-LISTPSYSTEM COMMON-LISP-LISTPSYSTEM LISTPVINCULUM!G FIXNUMPGLOBAL FIXNUMPGLOBAL %FIXNUMPVINCULUM!G FIXPGLOBAL FIXPGLOBAL INTEGERPVINCULUM!G NSYMBOLPGLOBAL NSYMBOLPGLOBAL SYMBOLPVINCULUM CD@@A@AjDhD FALSEGLOBAL FALSEGLOBALjD TRUEGLOBAL TRUEGLOBALhD  GET-PNAMEGLOBAL  GET-PNAMEGLOBAL  SYMBOL-NAMESYMBOL!G SYMEVALGLOBAL SYMEVALGLOBAL  SYMBOL-VALUESYMBOL!G FSYMEVALGLOBAL FSYMEVALGLOBAL SYMBOL-FUNCTIONSYMBOL!G MINUSGLOBAL MINUSGLOBAL@!| FIXGLOBAL FIXGLOBAL FLOOR PRIMITIVES!G \GLOBAL \GLOBAL MULTIPLY-GENERICNEW-MATH TRUNCATENEW-MATH DIVIDE-GENERICNEW-MATH ABSLISP-INTERNALS" C A$B(@B($B@A@D| COMMON-LISP-AREFSYSTEM COMMON-LISP-AREFSYSTEM  AREF-HARDARRAY  CONS-RESTLISP-INTERNALS~@h@@n@(j@"@ E#F AREF PRIMITIVES AREF PRIMITIVES  CHAR-INTLISP-INTERNALS  CHARACTERPVINCULUM  AREF-HARDARRAY  CONS-RESTLISP-INTERNALS~ @h@@n@(j@$@ A%B"CD@@A @A#G"D SETCARSYSTEM SETCARSYSTEM SET-CARSYSTEM-INTERNALS E#F SETCDRSYSTEM SETCDRSYSTEM SET-CDRSYSTEM-INTERNALS E#F %BINDSYSTEM %BINDSYSTEM FOOSYSTEM-INTERNALS ERRORLISP-INTERNALSA@ B@C@A$Dlose SET-GETSYSTEM-INTERNALS SET-GETSYSTEM-INTERNALS   %PUTFSYMBOL CONTENTS-OFFSETSYSTEM-INTERNALS SYMBOL?SYSTEM-INTERNALS CD@@A @A As B&E"@%F &@ LSHGLOBAL LSHGLOBAL   0"0B@@ B0@A @AhB@@ B0@A @AP#0!D aD`D  FILLARRAYGLOBAL  FILLARRAYGLOBAL ASET-1ARRAY CARCONS LASTLISP-INTERNALS CDRCONS ASET-1ARRAY CARCONS ARRAY-DIMENSIONARRAY A`BE*xj(@`&@",@,@@A@A,C( @&B0&&x, C@A &(@"C(@ Bp#*0@A @AjD$A @(B0!((x@A AR-1GLOBAL AR-1GLOBAL 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  LISTARRAYGLOBAL  LISTARRAYGLOBAL   CONSCONS AREF-1ARRAY ARRAY-DIMENSIONARRAY  A`BE&xj$@&"x@ `0@A @A$D A"B($ B ""x NCONSLISP-INTERNALS NCONSLISP-INTERNALS CONSCONS EkF  NCONS-IN-AREAGLOBAL  NCONS-IN-AREAGLOBAL  CONS-IN-AREACONS Ej@#F ^GLOBAL ^GLOBAL  " ERRORLISP-INTERNALS MULTIPLY-GENERICNEW-MATH \GLOBAL ABSLISP-INTERNALS INTEGERPVINCULUM%"CD@@A@A" Cb&@`$@p(0@A @A"p@A@AbE'F&D&A! B0$$x A @"@j@j@j @j @j@j@j@j@j@j@j@j@jB@AjD)^ not yet defined for non-integer powers. *GENSYM*SYSTEM-INTERNALS GENSYMLISP-INTERNALS GENSYMLISP-INTERNALS- ASET-1ARRAY* INT-CHARLISP-INTERNALS% BYTE PRIMITIVES! ASET-1ARRAY INT-CHARLISP-INTERNALS BYTE PRIMITIVES ASET-1ARRAY INT-CHARLISP-INTERNALS BYTE PRIMITIVES ASET-1ARRAY SETSYMBOL  %SYMBOL-VALUESYMBOL  %SYMBOL-VALUESYMBOL  MAKE-STRINGARRAY0r CAA B@AA@B0Ex@@BGTA(@`B@AzA`BDB@0CBPC `@@ B$A(@bB@AzAzBDB@0CBPC `@AB"A(@fB@AzA@@BDB@0CBPC `@@B A(@pB@A(D *GENSYM*SYSTEM-INTERNALS *GENSYM*SYSTEM-INTERNALS *GENSYM*SYSTEM-INTERNALS PUTPROPGLOBAL PUTPROPGLOBAL %PUTSYMBOL A$@"B@A"D  MY-MAPCARSYSTEM-INTERNALS  MY-MAPCARSYSTEM-INTERNALS QF>!8),?#@A BS!N CDRCONSM RPLACDCONSL NCONSLISP-INTERNALSK FUNCALL-INTERNALLISP-INTERNALSH CARCONSD NCONSLISP-INTERNALSC APPLYLISP-INTERNALS= RPLACDCONS< NCONSLISP-INTERNALS; APPLYLISP-INTERNALS4 CDRCONS3 RPLACACONS2 CDARCONS0 RPLACDCONS/ NCONSLISP-INTERNALS. CAARCONS) CARCONS( CDRCONS& NCONSLISP-INTERNALS% CARCONS NCONSLISP-INTERNALS APPLYLISP-INTERNALS CDRCONS RPLACACONS CDARCONS RPLACDCONS NCONSLISP-INTERNALS CAARCONS CARCONS CDRCONS NCONSLISP-INTERNALS CARCONS  CONS-RESTLISP-INTERNALS}T@h@@n@(j@2@"@@AS@A"C(A B20@.,@#C0@@AB@A0CD@@AA@A.A0C(A B.B1C(0B0 C0D@D@@A @A A,B(A B*(@"@@A@@A20@"C(@ B,.@#C0CD@@A?@A.A0C(A B.B@A1C0B0 C0D@D@@A )@A(A A,B(@ B(B!@A *D*DjD A,B(A B&$@$A@A"C @h@@f@DC@ B$B#C"@@A F@A&DjD MAPCLISP-INTERNALS MAPCLISP-INTERNALS/&.'%"&& '0+ CDRCONS* FUNCALL-INTERNALLISP-INTERNALS' CARCONS$ NCONSLISP-INTERNALS# CARCONS CDRCONS APPLYLISP-INTERNALS CDRCONS RPLACACONS CDARCONS RPLACDCONS NCONSLISP-INTERNALS CAARCONS CARCONS NCONSLISP-INTERNALS CARCONS  CONS-RESTLISP-INTERNALS}1@h@@n@(j@,@"(@"@@A0@A,@@A'@A"C(A B,*@&$@*CD@@A&@A&A*C(A B&B+C(*B+ C*@@A @A A$B,*@#C"@@A&@A"C(@ B$&@ (D"C @h@@f@DC#C"@@A '@A&@A jD FERROR PRIMITIVES FERROR PRIMITIVES ERRORLISP-INTERNALS  CONS-RESTLISP-INTERNALS  CONS-RESTLISP-INTERNALS}~ @h@@n@(j@$@j"@ @h@@n@(j@$@A @"@$B@AjDferror CERRORLISP-INTERNALS CERRORLISP-INTERNALS  ERRORLISP-INTERNALS  CONS-RESTLISP-INTERNALS  CONS-RESTLISP-INTERNALS  CONS-RESTLISP-INTERNALS{|}@h@@n@(j@(@j$@ @h@@n@(j@(@ j&@ @h@@n@(j@(@A @"@$@&@( B@AjD cerror SENDGLOBAL SENDGLOBAL APPLYLISP-INTERNALS  CONS-RESTLISP-INTERNALS}@h@@n@(j@$@ E"@%F  NO-CASE-ERRORSYSTEM-INTERNALS  NO-CASE-ERRORSYSTEM-INTERNALS ERRORLISP-INTERNALSA @"@$@&@( B@AjDNo case error: ~a ~a ~a ~a ~a  FDEFINEDPGLOBAL  FDEFINEDPGLOBAL ERRORLISP-INTERNALS FUNCALL-INTERNALLISP-INTERNALS GETSYMBOL CARCONS FBOUNDPSYMBOL SYMBOLPVINCULUMj"@ CD@@A@A!GFsb @A @A C(@AB"D@D@@A@A"@h@@f@E!FE!F The function spec ~S is invalid.  FDEFINEDPGLOBAL FUNCTION-SPEC-HANDLERSYSTEM PLISTLISP-INTERNALS PLISTLISP-INTERNALS  SYMBOL-PLISTSYMBOL!G SETPROPSYSTEM-INTERNALS SETPROPSYSTEM-INTERNALS PUTPROPGLOBAL E$@#F