ZEROPGLOBAL ZEROPGLOBAL p@A @AhDjD PLUSPGLOBAL PLUSPGLOBAL p@A@AhDjD MINUSPGLOBAL MINUSPGLOBAL p@A@AhDjD ODDPLISP-INTERNALS ODDPLISP-INTERNALS  ERRORLISP-INTERNALSFs!@A @Ap!@A@AhDjDFsd @A @A !`@ATD@pE@A@AhDjDA B@AjDODDP: ~s in not an integer EVENPLISP-INTERNALS EVENPLISP-INTERNALS  ERRORLISP-INTERNALSFs!@A @Ap!@A@AjDhDFsd @A @A !`@ATD@pE@A@AjDhDA B@AjDEVENP: ~s in not an integer DEFINE-ARITHMETIC-COMPARATORLISP-INTERNALS DEFINE-ARITHMETIC-COMPARATORLISP-INTERNALS/ , ,. MACRO-REPORT-ARGS-ERRORSYSTEM-INTERNALS+  XR-BQ-LISTSYSTEM-INTERNALS'  XR-BQ-LISTSYSTEM-INTERNALS$  XR-BQ-LISTSYSTEM-INTERNALS#  XR-BQ-LISTSYSTEM-INTERNALS  XR-BQ-LISTSYSTEM-INTERNALS  XR-BQ-LISTSYSTEM-INTERNALS  XR-BQ-LIST*SYSTEM-INTERNALS  XR-BQ-LIST*SYSTEM-INTERNALS  XR-BQ-LISTSYSTEM-INTERNALS  XR-BQ-LISTSYSTEM-INTERNALS FORMATGLOBAL CARGLOBAL CDRGLOBAL LENGTHGLOBAL LENGTHGLOBAL0j"@ C@g0@A,@A C@g0@A @A,@A C(@ BjA@%B(@AB(@AB($A@AB(@@AB(@@@AB(@@@@B(@@AB(iB@@AB(@$@@AF Ab@bB @A * &RESTGLOBAL NUMBERSLISP-INTERNALS( DEFUNGLOBAL& NULLGLOBAL CDRCONS NUMBERSLISP-INTERNALS TGLOBAL% CONDGLOBAL" FOOLISP-INTERNALS! BLOCKGLOBAL NULLGLOBAL CDRCONS N1LISP-INTERNALS  RETURN-FROMGLOBAL FOOLISP-INTERNALS TGLOBAL N1LISP-INTERNALS NUMBERSLISP-INTERNALS CDRCONS N1LISP-INTERNALS DOGLOBAL NULLGLOBAL N2LISP-INTERNALS N2LISP-INTERNALS CDRCONS N1LISP-INTERNALS CDRCONS N2LISP-INTERNALS DOGLOBAL  RETURN-FROMGLOBAL FOOLISP-INTERNALS UNLESSGLOBAL CARCONS N1LISP-INTERNALS CARCONS N2LISP-INTERNALS NULLGLOBAL NUMBERSLISP-INTERNALS ERRORLISP-INTERNALS No arguments to function ~s =GLOBAL =GLOBAL     ERRORLISP-INTERNALS CDRCONS CDRCONS CARCONS CARCONS CDRCONS CDRCONS CDRCONS  CONS-RESTLISP-INTERNALS @h@@n@(j@$@$@@A@A$CD@@A@A$CD@@A@A%C"@@A@A$C"CpD0@A @A#C@A jD$ C @A hDhDEAFNo arguments to function = <GLOBAL <GLOBAL     ERRORLISP-INTERNALS CDRCONS CDRCONS CARCONS CARCONS CDRCONS CDRCONS CDRCONS  CONS-RESTLISP-INTERNALS @h@@n@(j@$@$@@A@A$CD@@A@A$CD@@A@A%C"@@A@A$C"C@D0@A@A#C@A jD$ C @A hDhDEAFNo arguments to function < >GLOBAL >GLOBAL     ERRORLISP-INTERNALS CDRCONS CDRCONS CARCONS CARCONS CDRCONS CDRCONS CDRCONS  CONS-RESTLISP-INTERNALS @h@@n@(j@$@$@@A@A$CD@@A@A$CD@@A@A%C"@@A@A$C"C@D0@A@A#C@A jD$ C @A hDhDEAFNo arguments to function > <=GLOBAL <=GLOBAL     ERRORLISP-INTERNALS CDRCONS CDRCONS CARCONS CARCONS CDRCONS CDRCONS CDRCONS  CONS-RESTLISP-INTERNALS @h@@n@(j@$@$@@A@A$CD@@A@A$CD@@A@A%C"@@A@A$C"C@D0@A@A#C@A jD$ C @A hDhDEAFNo arguments to function <= >=GLOBAL >=GLOBAL     ERRORLISP-INTERNALS CDRCONS CDRCONS CARCONS CARCONS CDRCONS CDRCONS CDRCONS  CONS-RESTLISP-INTERNALS @h@@n@(j@$@$@@A@A$CD@@A@A$CD@@A@A%C"@@A@A$C"C@D0@A@A#C@A jD$ C @A hDhDEAFNo arguments to function >= //=LISP-INTERNALS //=LISP-INTERNALS    ERRORLISP-INTERNALS CDRCONS CDRCONS //=LISP-INTERNALS CARCONS CARCONS CDRCONS CDRCONS CDRCONS  CONS-RESTLISP-INTERNALS!@h@@n@(j@"@"@@A@A"CD@@A@A"CD@@A@A"C @@A@A"C(!C@BD@@A@A C@A jD#C @A hDhDEAFNo arguments to function //= MAXGLOBAL MAXGLOBAL   CDRCONS CARCONS  CONS-RESTLISP-INTERNALS~@h@@n@(j@$@j"@$@@A@A%C@ 0@A @A" @$ C@A  D MAX-2LISP-INTERNALS MAX-2LISP-INTERNALS@"0@A@A D"D  DEFREWRITENC MAXGLOBAL &WHOLEGLOBAL FORMLISP-INTERNALS LETGLOBAL  LENGTH-FORMLISP-INTERNALS LENGTHARRAY FORMLISP-INTERNALS CONDGLOBAL =GLOBAL  LENGTH-FORMLISP-INTERNALS SECONDLISP-INTERNALS FORMLISP-INTERNALS =GLOBAL  LENGTH-FORMLISP-INTERNALS  XR-BQ-LIST*SYSTEM-INTERNALS QUOTEGLOBAL MAX-2LISP-INTERNALS CDRCONS FORMLISP-INTERNALS TGLOBAL FORMLISP-INTERNALS MINLISP-INTERNALS MINLISP-INTERNALS   CDRCONS CARCONS  CONS-RESTLISP-INTERNALS~@h@@n@(j@$@j"@$@@A@A%C@ 0@A @A" @$ C@A  D MIN-2LISP-INTERNALS MIN-2LISP-INTERNALS@"0@A@A D"D  DEFREWRITENC MINLISP-INTERNALS &WHOLEGLOBAL FORMLISP-INTERNALS LETGLOBAL  LENGTH-FORMLISP-INTERNALS LENGTHARRAY FORMLISP-INTERNALS CONDGLOBAL =GLOBAL  LENGTH-FORMLISP-INTERNALS SECONDLISP-INTERNALS FORMLISP-INTERNALS =GLOBAL  LENGTH-FORMLISP-INTERNALS  XR-BQ-LIST*SYSTEM-INTERNALS QUOTEGLOBAL MIN-2LISP-INTERNALS CDRCONS FORMLISP-INTERNALS TGLOBAL FORMLISP-INTERNALS ABSLISP-INTERNALS ABSLISP-INTERNALS  ERRORLISP-INTERNALS $BFsB@A @AEAF p@A @A@!| DCan't ABS complex numbers yet. DEFINE-PLUS-LIKE-FUNCTIONLISP-INTERNALS DEFINE-PLUS-LIKE-FUNCTIONLISP-INTERNALS' $ $& MACRO-REPORT-ARGS-ERRORSYSTEM-INTERNALS#  XR-BQ-LISTSYSTEM-INTERNALS  XR-BQ-LISTSYSTEM-INTERNALS  XR-BQ-LISTSYSTEM-INTERNALS  XR-BQ-LISTSYSTEM-INTERNALS  XR-BQ-LIST*SYSTEM-INTERNALS  XR-BQ-LISTSYSTEM-INTERNALS  XR-BQ-LISTSYSTEM-INTERNALS  XR-BQ-LISTSYSTEM-INTERNALS CARGLOBAL CDRGLOBAL CDRGLOBAL CARGLOBAL CDRGLOBAL LENGTHGLOBAL LENGTHGLOBAL(j"@ C@q0@A$@A C@q0@A @A$@A C(A B C(@B(@ BA@%B(@@B(AB(&A@@B(@@@B(@@@B@AB(@&@@AF Af@fB @A " &RESTGLOBAL NUMBERSLISP-INTERNALS DEFUNGLOBAL LETGLOBAL NLISP-INTERNALS CDRCONS NUMBERSLISP-INTERNALS RESULTLISP-INTERNALS DOLISTLISP-INTERNALS RESULTLISP-INTERNALS SETQGLOBAL RESULTLISP-INTERNALS NLISP-INTERNALS RESULTLISP-INTERNALS CARCONS NUMBERSLISP-INTERNALS ORGLOBAL +GLOBAL +GLOBAL  CDRCONS CARCONS CDRCONS CARCONS  CONS-RESTLISP-INTERNALS@h@@n@(j@&@& C$@@A@A'Cj @"@@A@A"C  $x#C @A $D`$@ *GLOBAL *GLOBAL  CDRCONS MULTIPLY-GENERICNEW-MATH CARCONS CDRCONS CARCONS  CONS-RESTLISP-INTERNALS@h@@n@(j@&@& C$@@A@A'Cj @"@@A@A"C$A B#C @A $Db$@ -GLOBAL -GLOBAL   CDRCONS CARCONS  CONS-RESTLISP-INTERNALS~@h@@n@(j@$@$@@A@Aj"@$@@A@A%C@" x$ C@A  D@!| /LISP-INTERNALS /LISP-INTERNALS  DIVIDE-GENERICNEW-MATH CDRCONS DIVIDE-GENERICNEW-MATH CARCONS  CONS-RESTLISP-INTERNALS~@h@@n@(j@$@$@@A@Aj"@$@@A@A%C A"B$ C@A  DbE!F 1+GLOBAL 1+GLOBAL0 | 1-GLOBAL 1-GLOBAL | ^LISP-INTERNALS ^LISP-INTERNALS   ERRORLISP-INTERNALS MULTIPLY-GENERICNEW-MATH /LISP-INTERNALS ABSLISP-INTERNALS INTEGERPVINCULUM"CD@@A@A" Cb&@`$@p(0@A @A"p@A@A'G&D&A! B0$$x A @"B@AjD)^ not yet defined for non-integer powers. EXPTLISP-INTERNALS EXPTLISP-INTERNALS ^LISP-INTERNALS E#F LOGIORGLOBAL LOGIORGLOBAL  CDRCONS CARCONS CDRCONS CARCONS  CONS-RESTLISP-INTERNALS@h@@n@(j@&@& C$@@A@A'Cj @"@@A@A"C` $x#C @A $D`$@ LOGXORGLOBAL LOGXORGLOBAL  CDRCONS CARCONS CDRCONS CARCONS  CONS-RESTLISP-INTERNALS@h@@n@(j@&@& C$@@A@A'Cj @"@@A@A"Cp $x#C @A $D`$@ LOGANDGLOBAL LOGANDGLOBAL  CDRCONS CARCONS CDRCONS CARCONS  CONS-RESTLISP-INTERNALS@h@@n@(j@&@& C$@@A@A'Cj @"@@A@A"C $x#C @A $Dd$@ LOGEQVGLOBAL LOGEQVGLOBAL  CDRCONS CARCONS CDRCONS CARCONS  CONS-RESTLISP-INTERNALS@h@@n@(j@&@& C$@@A@A'Cj @"@@A@A"C $x#C @A $Dd$@ LOGNANDGLOBAL LOGNANDGLOBAL"DxpE| LOGNORGLOBAL LOGNORGLOBAL`"DxpE| LOGANDC1GLOBAL LOGANDC1GLOBALp!Dx#| LOGANDCLISP-INTERNALS LOGANDCLISP-INTERNALSp#DxD| LOGORC1GLOBAL LOGORC1GLOBALp!Dx`#| LOGORC2GLOBAL LOGORC2GLOBALp#Dx`D|  BOOLE-CLRLISP-INTERNALS  BOOLE-SETLISP-INTERNALS BOOLE-1LISP-INTERNALS BOOLE-2LISP-INTERNALS BOOLE-C1LISP-INTERNALS BOOLE-C2LISP-INTERNALS  BOOLE-ANDLISP-INTERNALS  BOOLE-IORLISP-INTERNALS  BOOLE-XORLISP-INTERNALS  BOOLE-EQVLISP-INTERNALS   BOOLE-NANDLISP-INTERNALS   BOOLE-NORLISP-INTERNALS   BOOLE-ANDC1LISP-INTERNALS   BOOLE-ANDC2LISP-INTERNALS   BOOLE-ORC1LISP-INTERNALS  BOOLE-ORC2LISP-INTERNALS BOOLELISP-INTERNALS BOOLELISP-INTERNALS " # $ % & '()*+,0!@ |B@ C@@A@A+@A *@A )@A (@A '@A &@A %@A $@A #@A "@A @A @A @A @A @A @A jDp%Dx` D|p#Dx`%|p%Dx D|p#Dx%|` $DxpE| $DxpE| $|p $|` $| $|p%|p#|$D"DdD`D DPBLISP-INTERNALS DPBLISP-INTERNALS   ERRORLISP-INTERNALS FIELD-PASS-BIGNUMNEW-MATH FIELD-PASS-FIXNUMNEW-MATH MVBIND-2LISP-INTERNALS GENERIC-MATH-TYPE-COERCERNEW-MATH A$B C`@%@Fs!@A  @A E$@"@kFFsd @A @A E$@"@kFE @%FYou can't dpb those! LDBLISP-INTERNALS LDBLISP-INTERNALS  ERRORLISP-INTERNALS FIELD-PASS-BIGNUMNEW-MATH CONVERT-FIXNUM-TO-BIGNUMNEW-MATH FIELD-PASS-FIXNUMNEW-MATHFs#@A @A"E`@ @iFFsd @A @AaC("@ @iFE#FYou can't ldb that! ASHGLOBAL ASHGLOBAL  ASH-GENERICNEW-MATH E#F INTEGER-LENGTHLISP-INTERNALS INTEGER-LENGTHLISP-INTERNALS!$) * ERRORLISP-INTERNALS+Fs!@A @A p@A@A` @P D a*@(*p@A  @A`D@@@+|Fsd @A )@A b@@ATD@ a(@ $ `@AT&@`s'@A@Al&@P&D a$@$p@A $@A!(Dx3 aD @@@%"x!(Dx3 aD@ D|EAF) Not an integer to INTEGER-LENGTH LOGCOUNTLISP-INTERNALS LOGCOUNTLISP-INTERNALS.&(*#$ / 0 ERRORLISP-INTERNALS,  %COUNT-BITSLISP-INTERNALS$  %COUNT-BITSLISP-INTERNALS!  %COUNT-BITSLISP-INTERNALS  %COUNT-BITSLISP-INTERNALS  %COUNT-BITSLISP-INTERNALS  %COUNT-BITSLISP-INTERNALS1Fs!@A  @A p@A@AlEAF!GFsd @A /@A b@@ATD@ a,@ 4 `@AT*@`s+@A$@A/lA@ B1,&x&p@A @A(D  `@ATD@m@@B $D(x&&x * C1,"x"p@A *@A$D `@ATB D$x& ""x EAF/Not an integer to LOG-COUNT  %COUNT-BITSLISP-INTERNALS  %COUNT-BITSLISP-INTERNALS  `"@!@A @A"D `D@ D"x'l @@A LOGBITPLISP-INTERNALS LOGBITPLISP-INTERNALS LDBLISP-INTERNALS `Bq!Cp"BEp@A @AjDhD EIGHT-BIT-FIXNUMPLISP-INTERNALS EIGHT-BIT-FIXNUMPLISP-INTERNALS qpl@A @AhDqpn@A @AhDjD BYTE PRIMITIVES BYTE PRIMITIVES   CONSCONS EIGHT-BIT-FIXNUMPLISP-INTERNALS ERRORLISP-INTERNALS0"0 p@A@AA@B B@@B0@A@A"CD@@A@A!"D E#F&BYTE can't handle negative field sizes  BYTE-SIZE PRIMITIVES  BYTE-SIZE PRIMITIVES   ERRORLISP-INTERNALS CARCONSFs!@A  @A'`"@"p@A @A D"DFsb @A  @A!GA@B@AjD That isn't a byte specifier BYTE-POSITION-FIXNUMLISP-INTERNALS BYTE-POSITION-FIXNUMLISP-INTERNALS0 DpED  BYTE-POSITION PRIMITIVES  BYTE-POSITION PRIMITIVES ERRORLISP-INTERNALS CDRCONS BYTE-POSITION-FIXNUMLISP-INTERNALS Fs!@A @A!GFsb @A @A!GA@B@AjDThat isn't a byte specifier LDB-TESTLISP-INTERNALS LDB-TESTLISP-INTERNALS LDBLISP-INTERNALS A"BEp@A @AjDhD  MASK-FIELDLISP-INTERNALS  MASK-FIELDLISP-INTERNALS DPBLISP-INTERNALSdA @`B@A D|  DEPOSIT-FIELDLISP-INTERNALS  DEPOSIT-FIELDLISP-INTERNALS DPBLISP-INTERNALS LDBLISP-INTERNALS"A B("@%F MOST-POSITIVE-FIXNUMLISP-INTERNALS MOST-NEGATIVE-FIXNUMLISP-INTERNALS