EXPORTGLOBAL QUOTEGLOBAL *PLUSGLOBAL *TIMESGLOBAL *DIFGLOBAL *QUOGLOBAL %DIVGLOBAL SUB1GLOBAL ZLKEYWORD *PLUSGLOBAL *PLUSGLOBAL "| *TIMESGLOBAL *TIMESGLOBAL MULTIPLY-GENERICNEW-MATH E#F *DIFGLOBAL *DIFGLOBAL@"| *QUOGLOBAL *QUOGLOBAL TRUNCATENEW-MATH E#F %DIVGLOBAL %DIVGLOBAL /LISP-INTERNALS E#F SUB1GLOBAL SUB1GLOBAL | *LOGIORSYSTEM *LOGIORSYSTEM`"| *LOGANDSYSTEM *LOGANDSYSTEM"| *LOGXORSYSTEM *LOGXORSYSTEMp"| *MINSYSTEM *MINSYSTEM MIN-2LISP-INTERNALS E#F *MAXSYSTEM *MAXSYSTEM MAX-2LISP-INTERNALS E#F 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  SYMBOL-VALUESYMBOL`"@ j$@ j&@ j(@ @AF$`D@PE BpC@A@A#C @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 %POINTERLISP-INTERNALS %POINTERLISP-INTERNALS `D ASSQLISP-INTERNALS ASSQLISP-INTERNALS   CDRCONS CARCONS CAARCONS "@@A @A"C@D@A @A#G#C@A jD MEMQLISP-INTERNALS MEMQLISP-INTERNALS   CDRCONS CARCONS "@@A @A"C@D@A @A"D#C@A jD  MEMBER-EQLLISP-INTERNALS  MEMBER-EQLLISP-INTERNALS   MEMQLISP-INTERNALS CDRCONS CARCONS NUMBERPVINCULUM CD@@A@AFs!@A@A"@@A@A"C@!@A @A"D#C@A jD E#F FIXNUMPLISP-INTERNALS FIXNUMPLISP-INTERNALS %FIXNUMPVINCULUM!G FIXPLISP-INTERNALS FIXPLISP-INTERNALS INTEGERPVINCULUM!G NSYMBOLPLISP-INTERNALS NSYMBOLPLISP-INTERNALSF$`D@PE BpC@A@AjDhD FALSELISP-INTERNALS FALSELISP-INTERNALSjD TRUELISP-INTERNALS TRUELISP-INTERNALShD  GET-PNAMELISP-INTERNALS  GET-PNAMELISP-INTERNALS  SYMBOL-NAMESYMBOL!G SYMEVALLISP-INTERNALS SYMEVALLISP-INTERNALS  SYMBOL-VALUESYMBOL!G FSYMEVALLISP-INTERNALS FSYMEVALLISP-INTERNALS SYMBOL-FUNCTIONSYMBOL!G MINUSLISP-INTERNALS MINUSLISP-INTERNALS@!| FIXLISP-INTERNALS FIXLISP-INTERNALS FLOORGLOBAL!G \LISP-INTERNALS \LISP-INTERNALS MULTIPLY-GENERICNEW-MATH TRUNCATENEW-MATH /LISP-INTERNALS ABSLISP-INTERNALS" C A$B(@B($B@A@D| SETCARLISP-INTERNALS SETCARLISP-INTERNALS SET-CARLISP-INTERNALS E#F SETCDRLISP-INTERNALS SETCDRLISP-INTERNALS SET-CDRLISP-INTERNALS E#F %BINDLISP-INTERNALS %BINDLISP-INTERNALS FOOLISP-INTERNALS ERRORLISP-INTERNALSA@ B@C@A$Dlose SET-GETLISP-INTERNALS SET-GETLISP-INTERNALS   %PUTFSYMBOL CONTENTS-OFFSETLISP-INTERNALS F$`D@PE BpC@A @A As B&E"@%F &@ LSHLISP-INTERNALS LSHLISP-INTERNALS   0"0B@@ B0@A @AhB@@ B0@A @AP#0!D aD`D  FILLARRAYLISP-INTERNALS  FILLARRAYLISP-INTERNALS 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  LISTARRAYLISP-INTERNALS  LISTARRAYLISP-INTERNALS   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-AREALISP-INTERNALS  NCONS-IN-AREALISP-INTERNALS  CONS-IN-AREACONS Ej@#F *GENSYM*LISP-INTERNALS GENSYMLISP-INTERNALS GENSYMLISP-INTERNALS ASET-1ARRAY ASET-1ARRAY ASET-1ARRAY ASET-1ARRAY SETSYMBOL  %SYMBOL-VALUESYMBOL  %SYMBOL-VALUESYMBOL MAKE-STRING-NO-INITARRAYj @ s CA@ B@AA@B0Ex@@BGTA*@`B '`D@ i &@&A*@bB''`D@ i $@$A*@fBH&'`D@ i "@"A*@pB@A*D *GENSYM*LISP-INTERNALS *GENSYM*LISP-INTERNALS *GENSYM*LISP-INTERNALS MAPCARLISP-INTERNALS MAPCARLISP-INTERNALS WLB#:+.C%DE FY!T CDRCONSS RPLACDCONSR NCONSLISP-INTERNALSQ FUNCALL-INTERNALLISP-INTERNALSN CARCONSJ NCONSLISP-INTERNALSI APPLY-INTERNALLISP-INTERNALSA RPLACDCONS@ NCONSLISP-INTERNALS? APPLY-INTERNALLISP-INTERNALS6 CDRCONS5 RPLACACONS4 CDARCONS2 RPLACDCONS1 NCONSLISP-INTERNALS0 CAARCONS+ CARCONS* CDRCONS( NCONSLISP-INTERNALS' CARCONS! NCONSLISP-INTERNALS APPLY-INTERNALLISP-INTERNALS CDRCONS RPLACACONS CDARCONS RPLACDCONS NCONSLISP-INTERNALS CAARCONS CARCONS CDRCONS NCONSLISP-INTERNALS CARCONS  CONS-RESTLISP-INTERNALS}Z@h@@n@(j@2@"@@AY@A"C(A B20@.,@#C0@@AF@A0CD@@AE@A.A0C(A B.B1C(0B0 C0D@D@@A @A @hA@f@,@j@@CA B*(@"@@AD@A20@"C(@ B,.@#C0CD@@AC@A.A0C(A B.B@A1C0B0 C0D@D@@A +@A(A @hA@f@,@j@@C@ B(B#@A *D*DjD @hA@f@,@j@@CA B&$@$A@A"C @h@@f@DC@ B$B#C"@@A L@A&DjD MAPCLISP-INTERNALS MAPCLISP-INTERNALS1(0)'$(( )2- CDRCONS, FUNCALL-INTERNALLISP-INTERNALS) CARCONS& NCONSLISP-INTERNALS% CARCONS! CDRCONS APPLY-INTERNALLISP-INTERNALS CDRCONS RPLACACONS CDARCONS RPLACDCONS NCONSLISP-INTERNALS CAARCONS CARCONS NCONSLISP-INTERNALS CARCONS  CONS-RESTLISP-INTERNALS}3@h@@n@(j@,@"(@"@@A2@A,@@A)@A"C(A B,*@&$@*CD@@A(@A&A*C(A B&B+C(*B+ C*@@A @A @h@@f@$@j@@C,*@#C"@@A(@A"C(@ B$&@ (D"C @h@@f@DC#C"@@A )@A(@A jD FERRORGLOBAL FERRORGLOBAL 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 SENDLISP-INTERNALS SENDLISP-INTERNALS APPLY-INTERNALLISP-INTERNALS  CONS-RESTLISP-INTERNALS}@h@@n@(j@B@ @h@@f@B@j@#G  NO-CASE-ERRORLISP-INTERNALS  NO-CASE-ERRORLISP-INTERNALS ERRORLISP-INTERNALSA @"@$@&@( B@AjDNo case error: ~a ~a ~a ~a ~a  FDEFINEDPLISP-INTERNALS  FDEFINEDPLISP-INTERNALS  ERRORLISP-INTERNALS FUNCALL-INTERNALLISP-INTERNALS GETSYMBOL CARCONS FBOUNDPSYMBOLj"@F$`D@PE BpC@A@A!GFsb @A @A C(@AB"D@D@@A@A"@h@@f@E!FE!F The function spec ~S is invalid.  FDEFINEDPLISP-INTERNALS FUNCTION-SPEC-HANDLERLISP-INTERNALS PLISTLISP-INTERNALS PLISTLISP-INTERNALS  SYMBOL-PLISTSYMBOL!G  *BOOTSTRAPPING-THE-LAMBDA-WORLD*SYSTEM-INTERNALS TGLOBAL DEFVAR-INTERNALSYSTEM-INTERNALS DEFVAR-INTERNALSYSTEM-INTERNALSA<;=7=18.=)#%*"&&*< <=> @ RECORD-SOURCE-FILE-NAMEGLOBAL: SET-DOCUMENTATIONSYSTEM-INTERNALS4  DOCUMENTATIONGLOBAL+  %SYMBOL-VALUESYMBOL& BOUNDPGLOBAL$ SETGLOBAL# EVALGLOBAL  %SYMBOL-VALUESYMBOL BOUNDPGLOBAL PUTSYMBOL  %SYMBOL-VALUESYMBOL BOUNDPGLOBAL  %SYMBOL-VALUESYMBOLBA@ B(@@A>@A(@@A=@AA@BD@@A<@AAA B&@@A<@A A@&BB@@ B@A*@AA@BD@@A&@AA@BD@@A&@A#C( B*@A CD@@A#@AA@BD@@A =@A$@@A 8@A A@@BD@@A=@A A@$B=@A h&@  D A@@ B@A ? DEFVARGLOBAL9 VARIABLEGLOBAL3 VARIABLEGLOBAL*  *BOOTSTRAPPING-THE-LAMBDA-WORLD*SYSTEM-INTERNALS THIS-IS-A-PATCH-FILE FILE-SYSTEM THIS-IS-A-PATCH-FILE FILE-SYSTEM UNBOUNDKEYWORD SPECIALGLOBAL FDEFINE-FILE-PATHNAMESYSTEM FDEFINE-FILE-PATHNAMESYSTEM  *BOOTSTRAPPING-THE-LAMBDA-WORLD*SYSTEM-INTERNALS