(FILECREATED "11-Sep-86 16:47:03" ("compiled on " {ERIS}<LISPCORE>LIBRARY>CMLARITH.;39) 
" 8-Sep-86 16:14:13" "COMPILE-FILEd" in "Xerox Lisp  8-Sep-86 ..." dated " 8-Sep-86 17:32:09")
(FILECREATED "11-Sep-86 16:42:40" {ERIS}<LISPCORE>LIBRARY>CMLARITH.;39 123984 changes to: (STRUCTURES 
RATIO COMPLEX) (VARS CMLARITHCOMS) (MACROS .CMLUNBOX. .CMLIQUOTREM.) (FNS ISQRT PRIMEP PHASE SIGNUM 
%%SIGNUM NUMERATOR DENOMINATOR RATIONALP RATIONAL RATIONALIZE %%RATIO-PRINT %%BUILD-RATIO 
%%RATIONALIZE-FLOAT %%RATIO* %%RATIO/ %%RATIO-TIMES-QUOTIENT %%RATIO+ %%RATIO- %%RATIO-PLUS-DIFFERENCE
 %%RATIO-INTEGER* %%RATIO-INTEGER+ %%RATIO-INTEGER- COMPLEX REALPART IMAGPART %%COMPLEX+ %%COMPLEX- 
%%COMPLEX* %%COMPLEX/ %%COMPLEX-ABS %%COMPLEX-MINUS %%COMPLEX-TIMESI CONJUGATE %%COMPLEX-PRINT 
NEW-MINUSP CL:ZEROP EVENP ODDP PLUSP %%= %%> = /= < > <= >= + - CL:* / %%/ 1+ 1- CL:GCD %%GCD LCM 
FLOAT \FLOAT CL:FLOOR TRUNCATE CEILING ROUND CL:MOD REM FFLOOR FCEILING FTRUNCATE FROUND DECODE-FLOAT 
SCALE-FLOAT FLOAT-RADIX FLOAT-SIGN FLOAT-DIGITS FLOAT-PRECISION INTEGER-DECODE-FLOAT NEW-LESSP NEW-EQP
 NEW-ABS NEW-MINUS NEW-SLOWIPLUS2 NEW-SLOWIDIFFERENCE NEW-SLOWITIMES2 NEW-SLOWIQUOTIENT NEW-IREMAINDER
 NEW-SLOWIGREATERP %%+ %%- %%* LOGIOR LOGEQV LOGNAND LOGNOR LOGANDC1 LOGANDC2 LOGORC1 LOGORC2 BOOLE 
LOGTEST LOGBITP ASH LOGCOUNT %%LOGCOUNT INTEGER-LENGTH BYTE-SIZE BYTE-POSITION LDB-TEST MASK-FIELD 
DEPOSIT-FIELD) previous date: "20-Aug-86 20:33:58" {ERIS}<LISPCORE>LIBRARY>CMLARITH.;38)
(RPAQQ CMLARITHCOMS ((* * CMLARITH. Common Lisp Arithmetic. Covers all of Common Lisp arithmetic 
except for higher math functions. Covers sections 2.1-2.1.4, 12.1-12.4, and %12.6-12.10 Doesn't cover 
sections %12.5-12.5.3. -- By Kelly Roach *) (COMS (* Miscellaneous. *) (FNS ISQRT PRIMEP PHASE SIGNUM 
%%SIGNUM)) (COMS (* Section %2.1.2 Ratios. *) (STRUCTURES RATIO) (DECLARE: DONTEVAL@LOAD DOCOPY (P (* 
The following makes NUMBERP true on ratios *) (\SETTYPEMASK (\TYPENUMBERFROMNAME (QUOTE RATIO)) (LOGOR
 \TT.NUMBERP \TT.ATOM)))) (FNS NUMERATOR DENOMINATOR RATIONALP RATIONAL RATIONALIZE %%RATIO-PRINT 
%%BUILD-RATIO %%RATIONALIZE-FLOAT %%RATIO* %%RATIO/ %%RATIO-TIMES-QUOTIENT %%RATIO+ %%RATIO- 
%%RATIO-PLUS-DIFFERENCE %%RATIO-INTEGER* %%RATIO-INTEGER+ %%RATIO-INTEGER-)) (COMS (* Section %2.1.4 
Complex Numbers. *) (STRUCTURES COMPLEX) (DECLARE: DONTEVAL@LOAD DOCOPY (P (* Make it so that COMPLEX 
is NUMBERP *) (\SETTYPEMASK (\TYPENUMBERFROMNAME (QUOTE COMPLEX)) (LOGOR \TT.NUMBERP \TT.ATOM)))) (FNS
 COMPLEX REALPART IMAGPART %%COMPLEX+ %%COMPLEX- %%COMPLEX* %%COMPLEX/ %%COMPLEX-ABS %%COMPLEX-MINUS 
%%COMPLEX-TIMESI CONJUGATE %%COMPLEX-PRINT)) (COMS (* Section 12.2 Predicates on Numbers. *) (* MINUSP
 is made to work on ratios. Otherwise, backwards compatible. *) (FNS NEW-MINUSP) (DECLARE: 
DONTEVAL@LOAD DOCOPY (P (MOVD (QUOTE NEW-MINUSP) (QUOTE MINUSP)))) (FNS CL:ZEROP) (FNS EVENP ODDP 
PLUSP)) (COMS (* Section 12.3 Comparisons on Numbers. *) (FNS %%= %%>) (FNS = %%= /= < > <= >=) (PROP 
DMACRO = /= < > <= >=) (* MAX and MIN are OK because they use GREATERP and GREATERP is fixed by this 
file to work on ratios. *)) (COMS (* Section 12.4 Arithmetic Operations. *) (FNS + - CL:* / %%/ 1+ 1-)
 (PROP DMACRO + - CL:* / 1+ 1-) (DECLARE: DONTEVAL@LOAD DOCOPY (P (MOVD (QUOTE +) (QUOTE PLUS)) (MOVD 
(QUOTE -) (QUOTE DIFFERENCE)) (MOVD (QUOTE 1+) (QUOTE ADD1)) (MOVD (QUOTE 1-) (QUOTE SUB1)) (MOVD (
QUOTE CL:*) (QUOTE TIMES)))) (* INCF and DECF implemented by CMLSETF. *) (* CONJUGATE implemented in 
section %2.1.4 above. *) (FNS CL:GCD %%GCD LCM)) (COMS (* Section 12.6 Type Conversions and Component 
Extractions on Numbers. *) (* * LLFLOAT replacements. LLFLOAT ufns seem OK once we modify \FLOAT 
appropriately. *) (FNS FLOAT \FLOAT) (* NUMERATOR and DENOMINATOR implemented in section %2.1.2 above.
 *) (FNS CL:FLOOR TRUNCATE CEILING ROUND CL:MOD REM FFLOOR FCEILING FTRUNCATE FROUND) (* Page 218 
functions. *) (FNS DECODE-FLOAT SCALE-FLOAT FLOAT-RADIX FLOAT-SIGN FLOAT-DIGITS FLOAT-PRECISION 
INTEGER-DECODE-FLOAT) (* EXPT COMPLEX REALPART and IMAGPART are defined by CMLFLOAT. *)) (COMS (* * 
LLARITH replacements. Either you have to live with these replacements or you have to start fixing 
CLISP for loops, the history mechanism etc. Larry tried taking these out and the things I had fixed by
 putting these replacements in started breaking again. These replacements are supposed to be good for 
you in any case. *) (COMS (* Non ufns *) (* GREATERP and LESSP are made to work on ratios. EQP, ABS, 
and MINUS is fixed to work on ratios and complexs. *) (FNS NEW-LESSP NEW-EQP NEW-ABS NEW-MINUS) (
DECLARE: DONTEVAL@LOAD DOCOPY (P (MOVD (QUOTE %%>) (QUOTE GREATERP)) (MOVD (QUOTE NEW-LESSP) (QUOTE 
LESSP)) (MOVD (QUOTE NEW-EQP) (QUOTE EQP)) (MOVD (QUOTE NEW-ABS) (QUOTE ABS)) (MOVD (QUOTE NEW-MINUS) 
(QUOTE MINUS))))) (COMS (* New LLARITH UFNS *) (COMS (* INTEGER ARITH UFNS .UNBOX. is made to 
understand RATIOs so integer arith ufns must be recompiled. \IQUOTREM has not changed, but \IQUOTREM 
uses .UNBOX. and NEW-SLOWIQUOTIENT and NEW-IREMAINDER use \IQUOTREM. *) (DECLARE: EVAL@COMPILE 
DONTCOPY (MACROS .CMLUNBOX. .CMLIQUOTREM.)) (FNS NEW-SLOWIPLUS2 NEW-SLOWIDIFFERENCE NEW-SLOWITIMES2 
NEW-SLOWIQUOTIENT NEW-IREMAINDER NEW-SLOWIGREATERP)) (DECLARE: DONTEVAL@LOAD DOCOPY (P (\SETUFNENTRY (
CAR (\FINDOP (QUOTE IPLUS2))) (QUOTE NEW-SLOWIPLUS2) 2 0) (\SETUFNENTRY (CAR (\FINDOP (QUOTE 
IDIFFERENCE))) (QUOTE NEW-SLOWIDIFFERENCE) 2 0) (\SETUFNENTRY (CAR (\FINDOP (QUOTE ITIMES2))) (QUOTE 
NEW-SLOWITIMES2) 2 0) (\SETUFNENTRY (CAR (\FINDOP (QUOTE IQUOTIENT))) (QUOTE NEW-SLOWIQUOTIENT) 2 0) (
\SETUFNENTRY (CAR (\FINDOP (QUOTE IREMAINDER))) (QUOTE NEW-IREMAINDER) 2 0) (\SETUFNENTRY (CAR (
\FINDOP (QUOTE IGREATERP))) (QUOTE NEW-SLOWIGREATERP) 2 0))))) (COMS (* New general arithmetic UFNs 
which know about ratio and complex *) (* NOTE: %%/ CAN NOT COMPILE INTO THE EXISTING QUOTIENT OPCODE. 
This is because %%/ is supposed to produce a rational when numerator is not evenly divisible by 
denominator. Therefore, there is no MACRO for %%/ below. *) (PROP DOPVAL %%+ %%- %%* %%>) (FNS %%+ %%-
 %%* %%/) (DECLARE: DONTEVAL@LOAD DOCOPY (P (\SETUFNENTRY (CAR (\FINDOP (QUOTE PLUS2))) (QUOTE %%+) 2 
0) (\SETUFNENTRY (CAR (\FINDOP (QUOTE DIFFERENCE))) (QUOTE %%-) 2 0) (\SETUFNENTRY (CAR (\FINDOP (
QUOTE TIMES2))) (QUOTE %%*) 2 0) (\SETUFNENTRY (CAR (\FINDOP (QUOTE GREATERP))) (QUOTE %%>) 2 0)))) (
COMS (* Section 12.7 Logical Operations on Numbers. *) (* Page 221 functions. LOGAND LOGXOR are OK. *)
 (FNS LOGIOR LOGEQV LOGNAND LOGNOR LOGANDC1 LOGANDC2 LOGORC1 LOGORC2) (* Page 222.0 BOOLE and 
constants. *) (FNS BOOLE) (INITVARS (BOOLE-CLR 0) (BOOLE-SET 1) (BOOLE-1 2) (BOOLE-2 3) (BOOLE-C1 4) (
BOOLE-C2 5) (BOOLE-AND 6) (BOOLE-IOR 7) (BOOLE-XOR 8) (BOOLE-EQV 9) (BOOLE-NAND 10) (BOOLE-NOR 11) (
BOOLE-ANDC1 12) (BOOLE-ANDC2 13) (BOOLE-ORC1 14) (BOOLE-ORC2 15)) (* Remainder of section 12.7 LOGNOT 
is OK. *) (FNS LOGTEST LOGBITP) (FNS ASH) (FNS LOGCOUNT %%LOGCOUNT) (FNS INTEGER-LENGTH)) (COMS (* 
Section 12.8 Byte Manipulations Functions. *) (* BYTE macro already implemented. Should be function. *
) (FNS BYTE-SIZE BYTE-POSITION) (* LDB macro already implemented. Should be function. *) (FNS LDB-TEST
 MASK-FIELD) (* DPB macro already implemented. Should be function. *) (FNS DEPOSIT-FIELD)) (DECLARE: 
EVAL@COMPILE DONTCOPY (FILES (LOADCOMP) LLFLOAT LLCODE LLBIGNUM)) (PROP FILETYPE CMLARITH) (DECLARE: 
DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA) (NLAML) (LAMA DEPOSIT-FIELD 
MASK-FIELD LDB-TEST BYTE-POSITION BYTE-SIZE LOGCOUNT LOGBITP LOGTEST BOOLE LOGORC2 LOGORC1 LOGANDC2 
LOGANDC1 LOGNOR LOGNAND LOGEQV LOGIOR INTEGER-DECODE-FLOAT FLOAT-PRECISION FLOAT-DIGITS FLOAT-SIGN 
FLOAT-RADIX DECODE-FLOAT FROUND FTRUNCATE FCEILING FFLOOR REM CL:MOD ROUND CEILING TRUNCATE CL:FLOOR 
FLOAT LCM %%GCD CL:GCD / CL:* - + >= <= > < /= = PLUSP ODDP EVENP CL:ZEROP %%COMPLEX-PRINT 
%%COMPLEX-TIMESI %%COMPLEX-MINUS %%COMPLEX-ABS %%COMPLEX/ %%COMPLEX* %%COMPLEX- %%COMPLEX+ IMAGPART 
REALPART COMPLEX %%RATIO-INTEGER- %%RATIO-INTEGER+ %%RATIO-INTEGER* %%RATIO-PLUS-DIFFERENCE %%RATIO- 
%%RATIO+ %%RATIO-TIMES-QUOTIENT %%RATIO/ %%RATIO* %%BUILD-RATIO RATIONALIZE RATIONAL DENOMINATOR 
NUMERATOR %%SIGNUM SIGNUM PHASE PRIMEP ISQRT)))))
ISQRT D1
(L (0 INTEGER)) W
@3 �Jj@�E@	1kHk�m�

YdHk�j�m��j
ԺJk�I�IIJ�m�
[dd�@�K���Z��o@
(124Q CL:ERROR 75Q ASH 53Q ASH 34Q ASH 31Q ASH 15Q INTEGER-LENGTH)
NIL
( 120Q "Isqrt: ~S argument must be a nonnegative integer")
PRIMEP D1
(L (0 X)) h
@dl��l@�h�
@l
h�k�j�h��j@l

h��lkllIdj
��KH�Ij
h�@K
	\
�L
�Jl�KJԻ���(124Q \MVLIST 121Q TRUNCATE 111Q %%= 76Q %%= 52Q %%= 47Q REM 25Q %%=)
NIL
()
PHASE D1
(L (0 NUMBER) F 0 %%PI) 

@	�@	@	
j@�Po(17Q CL:ATAN 14Q COMPLEX-REALPART 10Q COMPLEX-IMAGPART 3 COMPLEXP)
NIL
( 32Q 0.0)
SIGNUM D1
(L (0 NUMBER)) (
@dj�d�d	�@	�@	�km�@d	
(45Q %%/ 42Q ABS 27Q PLUSP 22Q RATIONALP 14Q \FZEROP)
NIL
()
%%SIGNUM D1
(L (0 X)) -

@d	��k�j�@�m�
@�H@�	��j��H(44Q \FZEROP 4 PLUSP)
(40Q FLOATP)
()
RATIO-DENOMINATOR D1
(L (0 OBJECT)) 
@�NIL
(3 RATIO)
()
setf-RATIO-DENOMINATOR D1
(L (1 VALUE 0 OBJECT)) 
@AANIL
(3 RATIO)
()
(REMPROP (QUOTE RATIO-DENOMINATOR) (QUOTE SETF-METHOD-EXPANDER))
(PUTPROPS RATIO-DENOMINATOR SETF-INVERSE setf-RATIO-DENOMINATOR)
RATIO-NUMERATOR D1
(L (0 OBJECT)) 
@�NIL
(3 RATIO)
()
setf-RATIO-NUMERATOR D1
(L (1 VALUE 0 OBJECT)) 
@AANIL
(3 RATIO)
()
(REMPROP (QUOTE RATIO-NUMERATOR) (QUOTE SETF-METHOD-EXPANDER))
(PUTPROPS RATIO-NUMERATOR SETF-INVERSE setf-RATIO-NUMERATOR)
RATIO-P D1
(L (0 OBJECT)) 
@`�NIL
(4 RATIOTYPE#)
()
COPY-RATIO D1
(L (0 OBJECT)) 	
`@
(6 NCREATE2)
(2 RATIOTYPE#)
()
(DEFPRINT (QUOTE RATIO) (FUNCTION (LAMBDA (X STREAM) (APPLY* (FUNCTION %%RATIO-PRINT) X STREAM 0) T)))
%%internal-make-RATIO D1
(L (0 -args-)) \e
HkJdI�(�g1Hk��KdJ�)�g�`dI�dL�ag�Jk�a��Jl�Z��ag�Kk�a��Kl�[��NIL
(113Q :DENOMINATOR 70Q :NUMERATOR 50Q RATIOTYPE# 44Q :READ-ONLY 22Q :READ-ONLY)
()
%%MAKE-RATIO D1
(L (1 DENOMINATOR 0 NUMERATOR)) `d@�dA�NIL
(2 RATIOTYPE#)
()
(PUTPROP (QUOTE RATIO) (QUOTE STRUCTURE-CONSTRUCTOR) (QUOTE %%internal-make-RATIO))
(PUTPROP (QUOTE RATIO) (QUOTE %%SLOT-DESCRIPTIONS) (QUOTE ((NUMERATOR :READ-ONLY) (DENOMINATOR 
:READ-ONLY))))
(/DECLAREDATATYPE (QUOTE RATIO) (QUOTE (POINTER POINTER)) (QUOTE ((RATIO 0 POINTER) (RATIO 2 POINTER))
) (QUOTE 4))
(\SETTYPEMASK (\TYPENUMBERFROMNAME (QUOTE RATIO)) (LOGOR \TT.NUMBERP \TT.ATOM))
NUMERATOR D1
(L (0 RATIONAL)) $

@
Hd3 �@`�@	gHo(41Q CHECK-TYPE-FAIL 25Q RATIO-NUMERATOR)
(31Q RATIONAL 16Q RATIOTYPE#)
( 36Q (OR INTEGER RATIO))
DENOMINATOR D1
(L (0 RATIONAL)) $

@
Hd3 �k`�@	gHo(41Q CHECK-TYPE-FAIL 25Q RATIO-DENOMINATOR)
(31Q RATIONAL 16Q RATIOTYPE#)
( 36Q (OR INTEGER RATIO))
RATIONALP D1
(I 0 NUMBER) 
@d3 �i	(11Q RATIO-P)
NIL
()
RATIONAL D1
(L (0 NUMBER)) {
@aHYd3 �@l�<@		Z
�J
�K	�KM
	�jL�NkML�

NL
kM

Id`�`�@		@		
gHo(170Q CHECK-TYPE-FAIL 154Q %%MAKE-COMPLEX 151Q RATIONAL 146Q IMAGPART 142Q RATIONAL 137Q REALPART 112Q %%BUILD-RATIO 107Q ASH 102Q ASH 74Q %%BUILD-RATIO 71Q ASH 54Q TRUNCATE 51Q SCALE-FLOAT 43Q FLOAT-PRECISION 30Q \MVLIST 25Q DECODE-FLOAT)
(160Q NUMBER 130Q COMPLEXTYPE# 121Q RATIOTYPE#)
( 165Q (OR INTEGER FLOAT RATIO COMPLEX))
RATIONALIZE D1
(L (0 NUMBER)) G
@
HYd3 ���`�@Idl�@	`�@		@		
gHo(104Q CHECK-TYPE-FAIL 70Q %%MAKE-COMPLEX 65Q RATIONALIZE 62Q IMAGPART 56Q RATIONALIZE 53Q REALPART 37Q %%RATIONALIZE-FLOAT)
(74Q NUMBER 44Q COMPLEXTYPE# 17Q RATIOTYPE#)
( 101Q (OR OR INTEGER RATIO FLOAT COMPLEX))
%%RATIO-PRINT D1
(P 3 \THISFILELINELENGTH P 2 *PRINT-RADIX* P 1 BOTTOM P 0 TOP I 1 STREAM I 0 NUMBER F 4 \THISFILELINELENGTH F 5 *READTABLE*) i@	@	
U�j�oA
�gHIhA
��9T�H	I	A�k���T�A	�HA
�oA
�IA
i(145Q \PRINDATUM 137Q PRIN3 126Q \PRINDATUM 115Q FRESHLINE 74Q NCHARS 70Q NCHARS 53Q \PRINDATUM 35Q PRIN1 7 DENOMINATOR 3 NUMERATOR)
(100Q STREAM 41Q / 16Q READTABLEP)
( 133Q "/" 31Q "|.")
%%BUILD-RATIO D1
(L (1 Y 0 X)) S@A
	1H
�H
Zj�6J�,@A
[k
�@K
b�AK
b�jA�j@�jA�
	��I@A
(120Q %%MAKE-RATIO 107Q \FZEROP 103Q %%MAKE-RATIO 62Q %%/ 52Q %%/ 44Q %%= 37Q %%GCD 7 \MVLIST 4 TRUNCATE)
NIL
()
%%RATIONALIZE-FLOAT D1
(P 11Q DEN P 10Q NUM P 7 OLDDEN P 6 OLDNUM P 5 F P 4 R P 3 EXPT P 2 XDEN P 1 XNUM P 0 SIGN I 0 X) �

�@		_
�O_
�O
�Ij�jo�KlԻ@	�oI�J�KkջLlּk�j__�k_j�4OO�L
�)Kj�OK
_��jK�OjK�
_�HO�O
JI�YJ
	_
�O
�NMO^��_�OMO_�԰�(215Q \MVLIST 212Q TRUNCATE 201Q %%/ 165Q ASH 145Q ASH 131Q %%= 55Q DECODE-FLOAT 11Q \MVLIST 6 INTEGER-DECODE-FLOAT)
NIL
( 62Q 55202363Q 43Q 100000000Q)
%%RATIO* D1
(L (1 Y 0 X)) @	1A	�@	�A	�HJIK(34Q %%RATIO-TIMES-QUOTIENT 24Q DENOMINATOR 17Q DENOMINATOR 12Q NUMERATOR 3 NUMERATOR)
NIL
()
%%RATIO/ D1
(L (1 Y 0 X)) /@	1A	�@	�A	�jI�HJjK�jI�HJKI(54Q %%RATIO-TIMES-QUOTIENT 44Q %%RATIO-TIMES-QUOTIENT 24Q DENOMINATOR 17Q DENOMINATOR 12Q NUMERATOR 3 NUMERATOR)
NIL
()
%%RATIO-TIMES-QUOTIENT D1
(L (3 K2 2 H2 1 K1 0 H1)) R@C
BA

Hk
�@H
b�CH
b�Ik
�BI
b�AI
b�@B�AC�
Ik
�HHI
(117Q %%MAKE-RATIO 107Q %%= 65Q %%/ 55Q %%/ 47Q %%= 37Q %%/ 27Q %%/ 21Q %%= 11Q %%GCD 4 %%GCD)
NIL
()
%%RATIO+ D1
(L (1 Y 0 X)) @Ah(5 %%RATIO-PLUS-DIFFERENCE)
NIL
()
%%RATIO- D1
(L (1 Y 0 X)) @Ai(5 %%RATIO-PLUS-DIFFERENCE)
NIL
()
%%RATIO-PLUS-DIFFERENCE D1
(L (2 DIFFERENCEFLG 1 Y 0 X)) �
@	�	@	�A	�A	�IK
�B�jJպLk
�HK�JI��IK�
IL
�HKL
�JM��^L
_�K_�Ok
�KO
_�NO
�M_k
�OO
�NNMO�
(203Q %%MAKE-RATIO 170Q %%= 160Q %%= 150Q %%/ 137Q %%/ 130Q %%= 113Q %%GCD 101Q %%/ 72Q %%/ 64Q %%MAKE-RATIO 46Q %%= 32Q %%GCD 24Q DENOMINATOR 17Q NUMERATOR 12Q DENOMINATOR 3 NUMERATOR)
NIL
()
%%RATIO-INTEGER* D1
(L (1 Y 0 X)) LAj�.A�$@	
HA
Yk
�AI
b�HI
X�	��jHk
�@	A�@	A�H
(111Q %%MAKE-RATIO 103Q NUMERATOR 74Q NUMERATOR 67Q %%= 56Q \FZEROP 51Q %%/ 41Q %%/ 32Q %%= 25Q %%GCD 15Q DENOMINATOR)
NIL
()
%%RATIO-INTEGER+ D1
(L (1 Y 0 X)) 
@	
@	HA��H
(22Q %%MAKE-RATIO 12Q RATIO-NUMERATOR 3 RATIO-DENOMINATOR)
NIL
()
%%RATIO-INTEGER- D1
(L (1 Y 0 X)) 
@	
@	HA��H
(22Q %%MAKE-RATIO 12Q RATIO-NUMERATOR 3 RATIO-DENOMINATOR)
NIL
()
COMPLEX-IMAGPART D1
(L (0 OBJECT)) 
@�NIL
(3 COMPLEX)
()
setf-COMPLEX-IMAGPART D1
(L (1 VALUE 0 OBJECT)) 
@AANIL
(3 COMPLEX)
()
(REMPROP (QUOTE COMPLEX-IMAGPART) (QUOTE SETF-METHOD-EXPANDER))
(PUTPROPS COMPLEX-IMAGPART SETF-INVERSE setf-COMPLEX-IMAGPART)
COMPLEX-REALPART D1
(L (0 OBJECT)) 
@�NIL
(3 COMPLEX)
()
setf-COMPLEX-REALPART D1
(L (1 VALUE 0 OBJECT)) 
@AANIL
(3 COMPLEX)
()
(REMPROP (QUOTE COMPLEX-REALPART) (QUOTE SETF-METHOD-EXPANDER))
(PUTPROPS COMPLEX-REALPART SETF-INVERSE setf-COMPLEX-REALPART)
COMPLEXP D1
(L (0 OBJECT)) 
@`�NIL
(4 COMPLEXTYPE#)
()
COPY-COMPLEX D1
(L (0 OBJECT)) 	
`@
(6 NCREATE2)
(2 COMPLEXTYPE#)
()
(DEFPRINT (QUOTE COMPLEX) (FUNCTION (LAMBDA (X STREAM) (APPLY* (FUNCTION %%COMPLEX-PRINT) X STREAM 0) 
T)))
%%internal-make-COMPLEX D1
(L (0 -args-)) \e
HkJdI�(�g1Hk��KdJ�)�g�`dI�dL�ag�Jk�a��Jl�Z��ag�Kk�a��Kl�[��NIL
(113Q :IMAGPART 70Q :REALPART 50Q COMPLEXTYPE# 44Q :READ-ONLY 22Q :READ-ONLY)
()
%%MAKE-COMPLEX D1
(L (1 IMAGPART 0 REALPART)) `d@�dA�NIL
(2 COMPLEXTYPE#)
()
(PUTPROP (QUOTE COMPLEX) (QUOTE STRUCTURE-CONSTRUCTOR) (QUOTE %%internal-make-COMPLEX))
(PUTPROP (QUOTE COMPLEX) (QUOTE %%SLOT-DESCRIPTIONS) (QUOTE ((REALPART :READ-ONLY) (IMAGPART 
:READ-ONLY))))
(/DECLAREDATATYPE (QUOTE COMPLEX) (QUOTE (POINTER POINTER)) (QUOTE ((COMPLEX 0 POINTER) (COMPLEX 2 
POINTER))) (QUOTE 4))
(\SETTYPEMASK (\TYPENUMBERFROMNAME (QUOTE COMPLEX)) (LOGOR \TT.NUMBERP \TT.ATOM))
COMPLEX D1
(L (0 -args-)) ze
kaQlH�j�la�I^]`�Md3 �;�Jdj:�Il�IJ
igLoZ\[`�Kd3 �ٿIJ
l�IJ
igNoY��(165Q CHECK-TYPE-FAIL 150Q %%MAKE-COMPLEX 132Q %%MAKE-COMPLEX 105Q CHECK-TYPE-FAIL 70Q %%MAKE-COMPLEX)
(155Q REALPART 145Q FLOATP 114Q RATIOTYPE# 75Q IMAGPART 64Q FLOATP 32Q RATIOTYPE#)
( 162Q (OR RATIONAL FLOAT) 102Q (OR RATIONAL FLOAT))
REALPART D1
(L (0 NUMBER)) %

@
Hd`�@	3�@gHo(42Q CHECK-TYPE-FAIL 20Q COMPLEX-REALPART)
(32Q NUMBER 11Q COMPLEXTYPE#)
( 37Q (OR COMPLEX NUMBER))
IMAGPART D1
(L (0 NUMBER)) 1
@
HYd`�@	l�oI3�jgHo(56Q CHECK-TYPE-FAIL 21Q COMPLEX-IMAGPART)
(46Q NUMBER 12Q COMPLEXTYPE#)
( 53Q (OR COMPLEX FLOAT NUMBER) 33Q 0.0)
%%COMPLEX+ D1
(L (1 Y 0 X)) @	A	�@	A	�
(24Q COMPLEX 20Q IMAGPART 14Q IMAGPART 7 REALPART 3 REALPART)
NIL
()
%%COMPLEX- D1
(L (1 Y 0 X)) @	A	�@	A	�
(24Q COMPLEX 20Q IMAGPART 14Q IMAGPART 7 REALPART 3 REALPART)
NIL
()
%%COMPLEX* D1
(L (1 Z2 0 Z1)) )@	1@	�A	�A	�HJ�IK��IJ�HK��
(46Q COMPLEX 24Q IMAGPART 17Q REALPART 12Q IMAGPART 3 REALPART)
NIL
()
%%COMPLEX/ D1
(L (1 Z2 0 Z1)) =@	Q@	�A	�A	�JdּKdֽHJ�IK��LM�
IJ�HK��LM�

(72Q COMPLEX 67Q %%/ 52Q %%/ 24Q IMAGPART 17Q REALPART 12Q IMAGPART 3 REALPART)
NIL
()
%%COMPLEX-ABS D1
(L (0 Z)) 
@	@	
Hd�Id��	(24Q CL:SQRT 7 COMPLEX-IMAGPART 3 COMPLEX-REALPART)
NIL
()
%%COMPLEX-MINUS D1
(L (0 Z)) 
j@	�j@	�
(16Q COMPLEX 12Q IMAGPART 4 REALPART)
NIL
()
%%COMPLEX-TIMESI D1
(L (0 Z)) 
j@	�@	
(14Q COMPLEX 11Q REALPART 4 IMAGPART)
NIL
()
CONJUGATE D1
(P 1 $$TYPE-VALUE P 0 ETYPECASE0348 I 0 NUMBER) /
@
HYd`�@	j@	�
3�@gHo(54Q CHECK-TYPE-FAIL 32Q %%MAKE-COMPLEX 26Q COMPLEX-IMAGPART 21Q COMPLEX-REALPART)
(44Q NUMBER 12Q COMPLEXTYPE#)
( 51Q (OR COMPLEX NUMBER))
%%COMPLEX-PRINT D1
(L (1 STREAM 0 COMPLEX) F 1 *READTABLE*) 0

AoQ�
Hm��oH�lH�@	@	
(55Q FORMAT 51Q COMPLEX-IMAGPART 45Q COMPLEX-REALPART)
(10Q READTABLEP)
( 30Q 200000Q 4 "~CC(~S ~S)")
NEW-MINUSP D1
(I 0 NUMBER) 
j@�NIL
NIL
()
(MOVD (QUOTE NEW-MINUSP) (QUOTE MINUSP))
CL:ZEROP D1
(L (0 NUMBER)) 
@j
(4 %%=)
NIL
()
EVENP D1
(L (0 -args-)) &e
ka!ldH�a�IJ
[j�K�K	(43Q \FZEROP 25Q CL:MOD)
NIL
()
ODDP D1
(L (0 -args-)) (e
ka!ldH�a�IJ
[j�K�K	h�(43Q \FZEROP 25Q CL:MOD)
NIL
()
PLUSP D1
(L (0 NUMBER)) 
@j�NIL
NIL
()
%%= D1
(NAME = P 11Q $$TYPE-VALUE P 10Q CTYPECASE0364 P 7 $$TYPE-VALUE P 6 CTYPECASE0361 P 5 $$TYPE-VALUE P 4 CTYPECASE0358 P 3 $$TYPE-VALUE P 2 CTYPECASE0355 P 1 $$TYPE-VALUE P 0 CTYPECASE0352 I 1 Y I 0 X) 
�
@A:���
w@
H

Id3 �O�A
J
Kdl�@A
`�@A	
���
=jA	
K3�higJob��`�oA
L
Md`��@	A	:����@	A	:l�@A:Md3 ��`�@A	
����A	j
igLob��Idl�U�A
N
Odl��_3 �Od`�@A
`�@A	
�gA	j
igNob��`�YA
O
	Od`��@	A	
�$@	A	
3�@	A
�
@	j
igOob��igHob��h(634Q CHECK-TYPE-FAIL 612Q CHECK-TYPE-FAIL 574Q %%= 570Q COMPLEX-IMAGPART 562Q %%= 556Q COMPLEX-REALPART 545Q %%= 542Q COMPLEX-IMAGPART 536Q COMPLEX-IMAGPART 530Q %%= 525Q COMPLEX-REALPART 521Q COMPLEX-REALPART 454Q CHECK-TYPE-FAIL 437Q %%= 433Q COMPLEX-IMAGPART 425Q %%= 422Q COMPLEX-REALPART 405Q FEQP 321Q CHECK-TYPE-FAIL 304Q %%= 300Q COMPLEX-IMAGPART 266Q %%= 263Q COMPLEX-REALPART 223Q RATIO-DENOMINATOR 217Q RATIO-DENOMINATOR 204Q RATIO-NUMERATOR 200Q RATIO-NUMERATOR 135Q CHECK-TYPE-FAIL 112Q %%= 107Q COMPLEX-IMAGPART 74Q %%= 71Q COMPLEX-REALPART 54Q FEQP)
(624Q X 601Q Y 511Q COMPLEXTYPE# 466Q COMPLEXTYPE# 444Q Y 412Q COMPLEXTYPE# 375Q RATIOTYPE# 311Q Y 253Q COMPLEXTYPE# 236Q FLOATP 170Q RATIOTYPE# 147Q RATIOTYPE# 125Q Y 61Q COMPLEXTYPE#)
( 631Q (OR INTEGER RATIO FLOAT COMPLEX) 607Q (OR COMPLEX NUMBER) 451Q (OR FLOAT OR INTEGER RATIO COMPLEX)
 316Q (OR RATIO FLOAT INTEGER COMPLEX) 132Q (OR FLOAT COMPLEX NUMBER))
%%> D1
(NAME > P 7 $$TYPE-VALUE P 6 CTYPECASE0376 P 5 $$TYPE-VALUE P 4 CTYPECASE0373 P 3 $$TYPE-VALUE P 2 CTYPECASE0370 P 1 $$TYPE-VALUE P 0 CTYPECASE0367 I 1 Y I 0 X) 
	@
H

Id3 �C�A
J
Kd3 ��@A�l�@A�K`�A	@�A	�igJob��l�?A
L
Md3 ���l�@A�M`�A	@�A	�igLob��I`�]A
N
Od3 ��@	@	A��l�@	@	�A�O`�@	A	�A	@	��igNob��igHob���(400Q CHECK-TYPE-FAIL 356Q CHECK-TYPE-FAIL 337Q DENOMINATOR 333Q NUMERATOR 326Q DENOMINATOR 322Q NUMERATOR 301Q DENOMINATOR 275Q NUMERATOR 260Q DENOMINATOR 254Q NUMERATOR 213Q CHECK-TYPE-FAIL 175Q NUMERATOR 167Q DENOMINATOR 110Q CHECK-TYPE-FAIL 72Q NUMERATOR 64Q DENOMINATOR)
(370Q X 346Q Y 313Q RATIOTYPE# 226Q RATIOTYPE# 203Q Y 161Q RATIOTYPE# 100Q Y 56Q RATIOTYPE#)
( 375Q (OR INTEGER FLOAT RATIO) 353Q (OR INTEGER FLOAT RATIO) 210Q (OR OR INTEGER FLOAT RATIO) 105Q (OR INTEGER FLOAT RATIO))
= D1
(L (0 -args-)) I	e
ka!Hl2MdL�NZ�!ia_�O�Oh_�Mk�]��O&_���
�IK
�hJ��(100Q %%=)
NIL
()
%%= D1
(NAME = P 11Q $$TYPE-VALUE P 10Q CTYPECASE0391 P 7 $$TYPE-VALUE P 6 CTYPECASE0388 P 5 $$TYPE-VALUE P 4 CTYPECASE0385 P 3 $$TYPE-VALUE P 2 CTYPECASE0382 P 1 $$TYPE-VALUE P 0 CTYPECASE0379 I 1 Y I 0 X) 
�
@A:���
w@
H

Id3 �O�A
J
Kdl�@A
`�@A	
���
=jA	
K3�higJob��`�oA
L
Md`��@	A	:����@	A	:l�@A:Md3 ��`�@A	
����A	j
igLob��Idl�U�A
N
Odl��_3 �Od`�@A
`�@A	
�gA	j
igNob��`�YA
O
	Od`��@	A	
�$@	A	
3�@	A
�
@	j
igOob��igHob��h(634Q CHECK-TYPE-FAIL 612Q CHECK-TYPE-FAIL 574Q %%= 570Q COMPLEX-IMAGPART 562Q %%= 556Q COMPLEX-REALPART 545Q %%= 542Q COMPLEX-IMAGPART 536Q COMPLEX-IMAGPART 530Q %%= 525Q COMPLEX-REALPART 521Q COMPLEX-REALPART 454Q CHECK-TYPE-FAIL 437Q %%= 433Q COMPLEX-IMAGPART 425Q %%= 422Q COMPLEX-REALPART 405Q FEQP 321Q CHECK-TYPE-FAIL 304Q %%= 300Q COMPLEX-IMAGPART 266Q %%= 263Q COMPLEX-REALPART 223Q RATIO-DENOMINATOR 217Q RATIO-DENOMINATOR 204Q RATIO-NUMERATOR 200Q RATIO-NUMERATOR 135Q CHECK-TYPE-FAIL 112Q %%= 107Q COMPLEX-IMAGPART 74Q %%= 71Q COMPLEX-REALPART 54Q FEQP)
(624Q X 601Q Y 511Q COMPLEXTYPE# 466Q COMPLEXTYPE# 444Q Y 412Q COMPLEXTYPE# 375Q RATIOTYPE# 311Q Y 253Q COMPLEXTYPE# 236Q FLOATP 170Q RATIOTYPE# 147Q RATIOTYPE# 125Q Y 61Q COMPLEXTYPE#)
( 631Q (OR INTEGER RATIO FLOAT COMPLEX) 607Q (OR COMPLEX NUMBER) 451Q (OR FLOAT OR INTEGER RATIO COMPLEX)
 316Q (OR RATIO FLOAT INTEGER COMPLEX) 132Q (OR FLOAT COMPLEX NUMBER))
/= D1
(L (0 -args-)) Je
Hk2JdI�K1IZ�%ia�L�
Mh\�Jk�Z��M&���
�J
L
�h�K[��i�hJ��(67Q %%=)
NIL
()
< D1
(L (0 -args-)) X	e
ka!Hl2MdL��NZh�J
I�J[�Kd�!ia_�O�Oh_�Mk�]��O&_���
K
�hK��NIL
NIL
()
> D1
(L (0 -args-)) X	e
ka!Hl2MdL��NZh�IJ
�J[�Kd�!ia_�O�Oh_�Mk�]��O&_���
K
�hK��NIL
NIL
()
<= D1
(L (0 -args-)) Z	e
ka!Hl2MdL��NZh�IJ
�h�J[�Kd�!ia_�O�Oh_�Mk�]��O&_���
K
�hK��NIL
NIL
()
>= D1
(L (0 -args-)) Z	e
ka!Hl2MdL��NZh�J
I�h�J[�Kd�!ia_�O�Oh_�Mk�]��O&_���
K
�hK��NIL
NIL
()
(PUTPROPS = DMACRO (DEFMACRO (N &REST NS) (COND ((CDR NS) (LET ((NNAME (GENSYM))) (BQUOTE (LET (((\, 
NNAME) (\, N))) (AND (\,@ (for X in NS collect (BQUOTE (%%= (\, NNAME) (\, X)))))))))) (T (BQUOTE (%%=
 (\, N) (\, (CAR NS))))))))
(PUTPROPS /= DMACRO (DEFMACRO (N &REST NS) (COND (NS (COND ((CDR NS) (LET ((VARS (for X in (CONS N NS)
 collect (LIST (GENSYM (QUOTE /=)) X)))) (BQUOTE (LET (\, VARS) (AND (\,@ (for X on VARS join (for Y 
on (CDR VARS) collect (BQUOTE (NOT (= (\, (CAAR X)) (\, (CAAR Y))))))))))))) (T (BQUOTE (NOT (= (\, N)
 (\, (CAR NS)))))))) (T T))))
(PUTPROPS < DMACRO (DEFMACRO (N &REST NS) (COND ((NULL NS) T) ((CDR NS) (LET ((VARS (FOR X IN (CONS N 
NS) COLLECT (LIST (GENSYM (QUOTE /=)) X)))) (BQUOTE ((OPENLAMBDA (\, (MAPCAR VARS (QUOTE CAR))) (AND (
\,@ (for X on VARS while (CDR X) collect (BQUOTE (LESSP (\, (CAAR X)) (\, (CAADR X)))))))) (\,@ (
MAPCAR VARS (QUOTE CADR))))))) (T (BQUOTE (LESSP (\, N) (\, (CAR NS))))))))
(PUTPROPS > DMACRO (DEFMACRO (N &REST NS) (COND ((NULL NS) T) ((CDR NS) (LET ((VARS (FOR X IN (CONS N 
NS) COLLECT (LIST (GENSYM (QUOTE /=)) X)))) (BQUOTE ((OPENLAMBDA (\, (MAPCAR VARS (QUOTE CAR))) (AND (
\,@ (for X on VARS while (CDR X) collect (BQUOTE (GREATERP (\, (CAAR X)) (\, (CAADR X)))))))) (\,@ (
MAPCAR VARS (QUOTE CADR))))))) (T (BQUOTE (GREATERP (\, N) (\, (CAR NS))))))))
(PUTPROPS <= DMACRO (DEFMACRO (N &REST NS) (COND ((NULL NS) T) ((CDR NS) (LET ((VARS (FOR X IN (CONS N
 NS) COLLECT (LIST (GENSYM (QUOTE /=)) X)))) (BQUOTE ((OPENLAMBDA (\, (MAPCAR VARS (QUOTE CAR))) (AND 
(\,@ (for X on VARS while (CDR X) collect (BQUOTE (LEQ (\, (CAAR X)) (\, (CAADR X)))))))) (\,@ (MAPCAR
 VARS (QUOTE CADR))))))) (T (BQUOTE (LEQ (\, N) (\, (CAR NS))))))))
(PUTPROPS >= DMACRO (DEFMACRO (N &REST NS) (COND ((NULL NS) T) ((CDR NS) (LET ((VARS (FOR X IN (CONS N
 NS) COLLECT (LIST (GENSYM (QUOTE >=)) X)))) (BQUOTE ((OPENLAMBDA (\, (MAPCAR VARS (QUOTE CAR))) (AND 
(\,@ (for X on VARS while (CDR X) collect (BQUOTE (NOT (< (\, (CAAR X)) (\, (CAADR X))))))))) (\,@ (
MAPCAR VARS (FUNCTION CADR))))))) (T (BQUOTE (GEQ (\, N) (\, (CAR NS))))))))
+ D1
(P 3 J P 2 R P 1 A P 0 N) %e
0Hj�jka�k�KH�Kk�[a�JIԺ��JNIL
NIL
()
- D1
(P 3 J P 2 R P 1 A P 0 N) *e
0Hk�ka�jI�ka�k�KH�Kk�[a�JIպ��JNIL
NIL
()
CL:* D1
(P 3 J P 2 R P 1 A P 0 N) %e
0Hj�kka�k�KH�Kk�[a�JIֺ��JNIL
NIL
()
/ D1
(L (0 -args-)) M	e
ka!Hl2MdL�N�/kI
a_�O�Oh_�Mk�]��O&_���
�IK
�JZ��I(102Q %%/ 35Q %%/)
NIL
()
%%/ D1
(NAME / P 11Q $$TYPE-VALUE P 10Q CTYPECASE0406 P 7 $$TYPE-VALUE P 6 CTYPECASE0403 P 5 $$TYPE-VALUE P 4 CTYPECASE0400 P 3 $$TYPE-VALUE P 2 CTYPECASE0397 P 1 $$TYPE-VALUE P 0 CTYPECASE0394 I 1 N2 I 0 N1) 
�
@
H

Id3 ����A
J
Kd3 �1�@d`�d`��A`�A`�@A
j�@A�@A
l�@A�Kd`�A	@�A	
`�@j
A
igJob��l�VA
L
Md3 ���l�@A�Md`�A	@�A	
`�@o
A
igLob��Id`�[�A
N
Od3 ��@	@	A�
l�@A�Od`�@A
`�@j
A
igNob��`�eA
O
	Od3 ��@Aj

l�@Ao

Od`�A	@�A	
`�@A
igOob��igHob��:(701Q CHECK-TYPE-FAIL 657Q CHECK-TYPE-FAIL 641Q %%COMPLEX/ 625Q %%/ 622Q NUMERATOR 614Q DENOMINATOR 575Q %%COMPLEX/ 572Q %%MAKE-COMPLEX 553Q %%COMPLEX/ 550Q %%MAKE-COMPLEX 505Q CHECK-TYPE-FAIL 470Q %%COMPLEX/ 464Q %%MAKE-COMPLEX 450Q %%RATIO/ 417Q %%BUILD-RATIO 412Q DENOMINATOR 406Q NUMERATOR 343Q CHECK-TYPE-FAIL 326Q %%COMPLEX/ 322Q %%MAKE-COMPLEX 303Q %%/ 300Q NUMERATOR 272Q DENOMINATOR 211Q CHECK-TYPE-FAIL 174Q %%COMPLEX/ 170Q %%MAKE-COMPLEX 154Q %%/ 151Q NUMERATOR 143Q DENOMINATOR 114Q %%BUILD-RATIO 100Q IMOD)
(671Q N1 646Q N2 632Q COMPLEXTYPE# 605Q RATIOTYPE# 517Q COMPLEXTYPE# 475Q N2 455Q COMPLEXTYPE# 440Q RATIOTYPE# 357Q RATIOTYPE# 333Q N2 310Q COMPLEXTYPE# 263Q RATIOTYPE# 201Q N2 161Q COMPLEXTYPE# 134Q RATIOTYPE# 71Q MAX.INTEGER 63Q MIN.INTEGER 53Q MAX.INTEGER 44Q MIN.INTEGER)
( 676Q (OR INTEGER FLOAT RATIO COMPLEX) 654Q (OR INTEGER FLOAT RATIO COMPLEX) 567Q 0.0 502Q (OR INTEGER FLOAT RATIO COMPLEX)
 340Q (OR OR INTEGER FLOAT RATIO COMPLEX) 317Q 0.0 206Q (OR INTEGER FLOAT RATIO COMPLEX))
1+ D1
(L (0 NUMBER)) 
@k�NIL
NIL
()
1- D1
(L (0 NUMBER)) 
@k�NIL
NIL
()
(PUTPROPS + DMACRO (DEFMACRO (&REST NUMBERS) (COND ((NULL NUMBERS) 0) (T (BQUOTE (PLUS (\., NUMBERS)))
))))
(PUTPROPS - DMACRO (DEFMACRO (NUMBER &REST NUMBERS) (COND ((NULL NUMBERS) (BQUOTE (DIFFERENCE 0 (\, 
NUMBER)))) (T (for X in NUMBERS do (SETQ NUMBER (BQUOTE (DIFFERENCE (\, NUMBER) (\, X)))) finally (
RETURN NUMBER))))))
(PUTPROPS CL:* DMACRO (DEFMACRO (&REST NUMBERS) (COND ((NULL NUMBERS) 1) (T (BQUOTE (TIMES (\., 
NUMBERS)))))))
(PUTPROPS / DMACRO (DEFMACRO (NUMBER &REST NUMBERS) (COND ((NULL NUMBERS) (BQUOTE (%%/ 1 (\, NUMBER)))
) (T (for X in NUMBERS do (SETQ NUMBER (BQUOTE (%%/ (\, NUMBER) (\, X)))) finally (RETURN NUMBER))))))
(PUTPROPS 1+ DMACRO (DEFMACRO (X) (BQUOTE (PLUS (\, X) 1))))
(PUTPROPS 1- DMACRO (DEFMACRO (X) (BQUOTE (DIFFERENCE (\, X) 1))))
(MOVD (QUOTE +) (QUOTE PLUS))
(MOVD (QUOTE -) (QUOTE DIFFERENCE))
(MOVD (QUOTE 1+) (QUOTE ADD1))
(MOVD (QUOTE 1-) (QUOTE SUB1))
(MOVD (QUOTE CL:*) (QUOTE TIMES))
CL:GCD D1
(L (0 -args-)) he
Hk2JdI�K1I�ja�L�
Mh\�Jk�Z��M&���
3 �oI

�I
	ZI[�J
\3 �oL
�JL
Zdk��K��(134Q %%GCD 126Q CL:ERROR 100Q ABS 72Q CL:ERROR)
NIL
( 122Q "GCD: ~S is not an integer." 65Q "GCD: ~S is not an integer.")
%%GCD D1
(L (1 V 0 U)) �@	A	2Hj�H�kI
�kH
�k	��Ij�Hk�j�Ik�j�J�Hdk�j��jIհHm�
�Im�
�Jk԰�m�
\j�Ld�d	��HK
k�j�Lm�
\��L	�LX�jLչHIհ�(206Q PLUSP 177Q ASH 163Q ASH 154Q \FZEROP 137Q ASH 124Q ASH 115Q ASH 45Q \FZEROP 37Q %%= 31Q %%= 7 ABS 3 ABS)
NIL
()
LCM D1
(L (0 -args-)) �e
kaAHl2
OdN�O�I3 �%�,a_�O�Oh__�Ok�_��O&_���oI
�I	[J\�K
]3 �oM
�M	KM

K�[dj�޿L��(161Q %%/ 156Q %%GCD 151Q ABS 144Q CL:ERROR 116Q ABS 111Q CL:ERROR)
NIL
( 140Q "LCM: ~S is not an integer." 105Q "LCM: ~S is not an integer.")
FLOAT D1
(L (1 OTHER 0 NUMBER)) @NIL
(3 FLOATP)
()
\FLOAT D1
(P 2 SIGN P 1 LO P 0 HI I 0 X) �
@����@d3 ���dl�B�@�@�
jHn��%Ij�Hj�n��H�kظ�n��Hٸn��I�kعkZ�Jl�HIi
k�2j
j
j@�@�k�@�j�k�j�n��@��k�

Jl�HIi
@		�@	@	�@l
ib��Y(245Q \LISPERROR 234Q RATIO-DENOMINATOR 230Q RATIO-NUMERATOR 223Q RATIO-P 217Q \BIGNUM.TO.FLOAT 212Q \MAKEFLOAT 126Q \MAKEFLOAT)
NIL
()
CL:FLOOR D1
(L (0 -args-)) Oe
kaAlH�k�la�IJ
	[
�K
]j�#M�M	�jJ�I	�jI�Lk�MJ�
LM
(114Q VALUES 106Q VALUES 70Q PLUSP 56Q \FZEROP 33Q \MVLIST 30Q TRUNCATE)
NIL
()
TRUNCATE D1
(L (0 -args-)) �
e
ka�lH�k�la�h[�Jk��I^]d3 ��I�ol�I�dM`�I	I	۰UigNoY��l�:O`�IJ
	igOoZ�hl�?J__d3 ���l�IJ�	[IKJ��\KL
O`�igOoZ��O`�igOo�I__d3 ���J__d3 ���k�IJ۰�(321Q CHECK-TYPE-FAIL 270Q CHECK-TYPE-FAIL 241Q VALUES 225Q \FIXP.FROM.FLOATP 165Q CHECK-TYPE-FAIL 147Q TRUNCATE 144Q %%/ 116Q CHECK-TYPE-FAIL 77Q RATIO-DENOMINATOR 73Q RATIO-NUMERATOR)
(310Q NUMBER 301Q RATIOTYPE# 257Q DIVISOR 250Q RATIOTYPE# 154Q DIVISOR 135Q RATIOTYPE# 106Q NUMBER 65Q RATIOTYPE#)
( 316Q (OR INTEGER FLOAT RATIO) 265Q (OR OR INTEGER FLOAT RATIO) 162Q (OR INTEGER FLOAT RATIO) 113Q (OR INTEGER FLOAT RATIO))
CEILING D1
(L (0 -args-)) Oe
kaAlH�k�la�IJ
	[
�K
]j�#M�M	�jJ�jI�I	�Lk�MJ�
LM
(114Q VALUES 106Q VALUES 74Q PLUSP 56Q \FZEROP 33Q \MVLIST 30Q TRUNCATE)
NIL
()
ROUND D1
(L (0 -args-)) �	e
kaqlH�k�i�la�J�K	l
�o�IK
	]
�M
_L�OL
�Nk�j�jK�.Nk�OK�
jL�_O�OO
�Ndk�j��jK��Nk�OK�
NO
(211Q VALUES 202Q VALUES 150Q %%= 126Q VALUES 77Q %%= 56Q \MVLIST 53Q TRUNCATE 40Q %%/ 33Q ABS)
NIL
( 45Q .5)
CL:MOD D1
(L (1 DIVISOR 0 NUMBER)) -
@A

Hdj��Hd	��jA�@	�j@�HA�H(40Q PLUSP 25Q \FZEROP 4 REM)
NIL
()
REM D1
(L (1 DIVISOR 0 NUMBER)) 
@A
	

o	H(23Q CL:DECLARE 7 \MVLIST 4 TRUNCATE)
NIL
( 20Q (IGNORE TRU))
FFLOOR D1
(L (0 -args-)) -e
kaAlH�k�la�IJ
	[
�K
�LM
(52Q VALUES 33Q \MVLIST 30Q CL:FLOOR)
(46Q FLOATP)
()
FCEILING D1
(L (0 -args-)) -e
kaAlH�k�la�IJ
	[
�K
�LM
(52Q VALUES 33Q \MVLIST 30Q CEILING)
(46Q FLOATP)
()
FTRUNCATE D1
(L (0 -args-)) -e
kaAlH�k�la�IJ
	[
�K
�LM
(52Q VALUES 33Q \MVLIST 30Q TRUNCATE)
(46Q FLOATP)
()
FROUND D1
(L (0 -args-)) -e
kaAlH�k�la�IJ
	[
�K
�LM
(52Q VALUES 33Q \MVLIST 30Q ROUND)
(46Q FLOATP)
()
DECODE-FLOAT D1
(L (0 FLOAT)) G
@bddo
��ojo��n?�@�
��@�l~�@�j�o�o(104Q VALUES 34Q VALUES 16Q %%=)
(3 FLOATP)
( 101Q -1.0 74Q 1.0 31Q 1.0 24Q 0.0 13Q 0.0)
SCALE-FLOAT D1
(I 1 INTEGER I 0 FLOAT) 2@bdo
�o@�@�Al��@��l��@�
i
(57Q \MAKEFLOAT 15Q %%=)
(3 FLOATP)
( 22Q 0.0 12Q 0.0)
FLOAT-RADIX D1
(L (0 FLOAT)) 
o	l(6 CL:DECLARE)
NIL
( 3 (IGNORE FLOAT))
FLOAT-SIGN D1
(L (0 -args-)) (e
kalH�kI��la�jI�jJ��JjJ�NIL
(23Q FLOATP)
()
FLOAT-DIGITS D1
(L (0 FLOAT)) 
@l�lo@
(20Q CL:ERROR)
NIL
( 14Q "Float-digits: ~A not a float")
FLOAT-PRECISION D1
(L (0 FLOAT)) 
@j�@d�d	�j	(22Q FLOAT-DIGITS 14Q \FZEROP)
NIL
()
INTEGER-DECODE-FLOAT D1
(L (0 FLOAT)) ;
@bddo
��jdk��l����@�
�@�l��@�j�k�m�(70Q VALUES 26Q VALUES 16Q %%=)
(3 FLOATP)
( 13Q 0.0)
NEW-LESSP D1
(I 1 Y I 0 X) A@�NIL
NIL
()
NEW-EQP D1
(I 1 Y I 0 X) 8@A�3@d3��A3�@A
@A�@dl�@�
A�
�l
�@A
(65Q EQDEFP 23Q %%=)
NIL
()
NEW-ABS D1
(P 1 $$TYPE-VALUE P 0 CTYPECASE0433 I 0 X) f
@
HYd3 ��j@�j@�@l�o@��o@�Id`��j@	��j@	�@	
`�@	igHob��(137Q CHECK-TYPE-FAIL 122Q %%COMPLEX-ABS 107Q %%MAKE-RATIO 104Q DENOMINATOR 77Q NUMERATOR 67Q NUMERATOR)
(127Q X 114Q COMPLEXTYPE# 56Q RATIOTYPE#)
( 134Q (OR INTEGER SINGLE-FLOAT RATIO COMPLEX) 45Q 0.0 35Q 0.0)
NEW-MINUS D1
(I 0 N) 
j@�NIL
NIL
()
(MOVD (QUOTE %%>) (QUOTE GREATERP))
(MOVD (QUOTE NEW-LESSP) (QUOTE LESSP))
(MOVD (QUOTE NEW-EQP) (QUOTE EQP))
(MOVD (QUOTE NEW-ABS) (QUOTE ABS))
(MOVD (QUOTE NEW-MINUS) (QUOTE MINUS))
NEW-SLOWIPLUS2 D1
(NAME IPLUS P 5 $$TYPE-VALUE P 4 SIGNX P 3 LY P 2 HY P 1 LX P 0 HX I 1 Y I 0 X) 
P@dl�@��@�
�dk�$�j@�j�@�n���@ӹAdl�A�A��A�
�Kl�@	b��@	�@	@	�b��@
M3��e@l
ib��dk�,�jA�j�A�n���AӻHn��Hdn��J��Gn��J�k�ٰ?l�A	b��A	�A	A	�b��oA
M3�@A
Al
ib��RJظIdn��K���Hdn���j�kظIn��K�k�فKعLJn���LHn���HI�(323Q \LISPERROR 313Q \BIGNUM.PLUS 267Q RATIO-DENOMINATOR 263Q RATIO-NUMERATOR 256Q RATIO-P 246Q \FIXP.FROM.FLOATP 152Q \LISPERROR 123Q RATIO-DENOMINATOR 117Q RATIO-NUMERATOR 112Q RATIO-P 102Q \FIXP.FROM.FLOATP)
NIL
()
NEW-SLOWIDIFFERENCE D1
(NAME IDIFFERENCE P 5 $$TYPE-VALUE P 4 SIGNX P 3 LY P 2 HY P 1 LX P 0 HX I 1 Y I 0 X) 
bP@dl�@��@�
�dk�$�j@�j�@�n���@ӹAdl�A�A��A�
�Ll�@	b��@	�@	@	�b��@
M3��h@l
ib��dk�.�jA�j�A[�n���AӻAj��Kj�MJj�Vn��J�kغ�Ll�A	b��A	�A	A	�b��lA
M3�@A
Al
ib��On��Jٺn��K�kػHn��Kj� K�Hdn��J��n��J�k�ٰ	��Jn���HJ�L�9JظIdn��K���Hdn���j�kظIn��K�k�فKعLJn���LHn����pHI�(421Q \FZEROP 326Q \LISPERROR 316Q \BIGNUM.DIFFERENCE 272Q RATIO-DENOMINATOR 266Q RATIO-NUMERATOR 261Q RATIO-P 250Q \FIXP.FROM.FLOATP 152Q \LISPERROR 123Q RATIO-DENOMINATOR 117Q RATIO-NUMERATOR 112Q RATIO-P 102Q \FIXP.FROM.FLOATP)
NIL
()
NEW-SLOWITIMES2 D1
(NAME ITIMES P 10Q $$TYPE-VALUE P 7 CARRY P 6 LR P 5 HR P 4 SIGN P 3 LY P 2 LX P 1 HY P 0 HX I 1 Y I 0 X) 2	@j�Aj�j�j]�@dl�@��@�
�dk�$�j@�j�@�n���@ӺAdl�B�A��A�
�Ll�@	b��@	�@	@	�b��@
O3��p@l
ib��dk�5�jA�j�A�n���AӻHn��k@o��@Jj�NHj�Wn��H�kظ�Ml�A	b��wA	�A	A	�b��dA
O3�@A
Al
ib��Fn��Hٸn��J�kغi�Idn��0�Ao���Kj�Ij�n��I�kع�n��Iٹn��K�kػLh�Ij�Hj�KJ��IH��Kd�k�j�KNdn��J��n��Jk��پk�Jؾj_�MHO��]n��#Kj��aL���\Mn���SNj��LoKj�NK�Dn@H�[Hn@��-Jj�J���"J	���L���Kk��Mj��Nj��o	��L�?Nj�,Mdj�5�n��M�k�]�*H�Jdn��HkԸJn��ັ�-n��Mٽn��N�kؾMN�(752Q \FZEROP 704Q \FZEROP 354Q \LISPERROR 344Q \BIGNUM.TIMES 317Q RATIO-DENOMINATOR 313Q RATIO-NUMERATOR 306Q RATIO-P 275Q \FIXP.FROM.FLOATP 170Q \LISPERROR 140Q RATIO-DENOMINATOR 134Q RATIO-NUMERATOR 127Q RATIO-P 117Q \FIXP.FROM.FLOATP)
NIL
( 746Q -20000000000Q 632Q -20000000000Q 420Q -20000000000Q 236Q -20000000000Q)
NEW-SLOWIQUOTIENT D1
(NAME IQUOTIENT P 11Q $$TYPE-VALUE P 10Q SIGNREMAINDER P 7 SIGNQUOTIENT P 6 LY P 5 HY P 4 LX P 3 HX P 2 LZ P 1 HZ P 0 CNT I 1 Y I 0 X F 12Q \OVERFLOW) �

jddc@dl�@��@�
�dk�$�j@�j�@�n���@ӼAdl�C�A��A�
�Ml�@	b��@	�@	@	�b��@
	O3��
�@l
ib��dk�-�jA�j�A�n���AӾKn��dLj�KKj�Tn��K�kػ�Jl�A	b��~A	�A	A	�b��kA
	O3��
JAl
ib��Pn��Kٻn��L�kؼi__�Mn��)Nj�Mj�n��M�kؽ�n��Mٽn��N�kؾOh�_�Kj�zMj�$Lj�Ndj�Wi�oA
jk�'L�j�O��
BJj�
-Idj�
4�n��I�k�Y�
(LN�Ndn���Hkظ��NL�LNټJkغN�HkٸjH�Jະ�Mj�XN]j�O�O�Nk�Kn��Lj�\j�l�MK�LN�KdM���n�M��M�Ndn��MkԽNn���Hkذ�O��O��Lj��Kn��Mdj𲴿Nk�@A
n��NL��kؼkٻJkغN�Mdk�j�Nn�ؾM�HkٸjH��
I�Jdn��IkԹJn���KM�MK��NdL񳿿KM�NL�LNټj��n��Iٹn��J�kغIJ�(1035Q \BIGNUM.QUOTIENT 502Q ERROR 330Q \LISPERROR 276Q RATIO-DENOMINATOR 272Q RATIO-NUMERATOR 265Q RATIO-P 254Q \FIXP.FROM.FLOATP 157Q \LISPERROR 126Q RATIO-DENOMINATOR 122Q RATIO-NUMERATOR 115Q RATIO-P 105Q \FIXP.FROM.FLOATP)
NIL
( 476Q "DIVIDE BY ZERO")
NEW-IREMAINDER D1
(P 11Q $$TYPE-VALUE P 10Q SIGNREMAINDER P 7 SIGNQUOTIENT P 6 LY P 5 HY P 4 LX P 3 HX P 2 LZ P 1 HZ P 0 CNT I 1 Y I 0 X F 12Q \OVERFLOW) �

jddc@dl�@��@�
�dk�$�j@�j�@�n���@ӼAdl�C�A��A�
�Ml�@	b��@	�@	@	�b��@
	O3��
�@l
ib��dk�-�jA�j�A�n���AӾKn��dLj�KKj�Tn��K�kػ�Jl�A	b��~A	�A	A	�b��kA
	O3��
JAl
ib��Pn��Kٻn��L�kؼi__�Mn��)Nj�Mj�n��M�kؽ�n��Mٽn��N�kؾOh�_�Kj�zMj�$Lj�Ndj�Wi�oA
jk�'L�j�O��
BLj�
-Kdj�
4�n��K�k�[�
(LN�Ndn���Hkظ��NL�LNټJkغN�HkٸjH�Jະ�Mj�XN]j�O�O�Nk�Kn��Lj�\j�l�MK�LN�KdM���n�M��M�Ndn��MkԽNn���Hkذ�O��O��Lj��Kn��Mdj𲴿Nk�@A
n��NL��kؼkٻJkغN�Mdk�j�Nn�ؾM�HkٸjH��
I�Jdn��IkԹJn���KM�MK��NdL񳿿KM�NL�LNټj��n��Kٻn��L�kؼKL�(1035Q \BIGNUM.REMAINDER 502Q ERROR 330Q \LISPERROR 276Q RATIO-DENOMINATOR 272Q RATIO-NUMERATOR 265Q RATIO-P 254Q \FIXP.FROM.FLOATP 157Q \LISPERROR 126Q RATIO-DENOMINATOR 122Q RATIO-NUMERATOR 115Q RATIO-P 105Q \FIXP.FROM.FLOATP)
NIL
( 476Q "DIVIDE BY ZERO")
NEW-SLOWIGREATERP D1
(NAME IGREATERP P 4 $$TYPE-VALUE P 3 LY P 2 HY P 1 LX P 0 HX I 1 Y I 0 X) �@@dl�@��@�
�dk�$�j@�j�@�n���@ӹAdl�A�A��A�
�Kl�@	b��@	�@	@	�b��@
L3��V@l
ib��dk��jA�j�A�n���AӻHdJ�D�IK�l�A	b��A	�A	A	�b��~A
L3�@A
k�Al
ib��_n��Jn���(306Q \LISPERROR 274Q \BIGNUM.COMPARE 250Q RATIO-DENOMINATOR 244Q RATIO-NUMERATOR 237Q RATIO-P 227Q \FIXP.FROM.FLOATP 152Q \LISPERROR 123Q RATIO-DENOMINATOR 117Q RATIO-NUMERATOR 112Q RATIO-P 102Q \FIXP.FROM.FLOATP)
NIL
()
(\SETUFNENTRY (CAR (\FINDOP (QUOTE IPLUS2))) (QUOTE NEW-SLOWIPLUS2) 2 0)
(\SETUFNENTRY (CAR (\FINDOP (QUOTE IDIFFERENCE))) (QUOTE NEW-SLOWIDIFFERENCE) 2 0)
(\SETUFNENTRY (CAR (\FINDOP (QUOTE ITIMES2))) (QUOTE NEW-SLOWITIMES2) 2 0)
(\SETUFNENTRY (CAR (\FINDOP (QUOTE IQUOTIENT))) (QUOTE NEW-SLOWIQUOTIENT) 2 0)
(\SETUFNENTRY (CAR (\FINDOP (QUOTE IREMAINDER))) (QUOTE NEW-IREMAINDER) 2 0)
(\SETUFNENTRY (CAR (\FINDOP (QUOTE IGREATERP))) (QUOTE NEW-SLOWIGREATERP) 2 0)
(PUTPROPS %%+ DOPVAL (2 PLUS2))
(PUTPROPS %%- DOPVAL (2 DIFFERENCE))
(PUTPROPS %%* DOPVAL (2 TIMES2))
(PUTPROPS %%> DOPVAL (2 GREATERP))
%%+ D1
(NAME + P 11Q $$TYPE-VALUE P 10Q CTYPECASE0448 P 7 $$TYPE-VALUE P 6 CTYPECASE0445 P 5 $$TYPE-VALUE P 4 CTYPECASE0442 P 3 $$TYPE-VALUE P 2 CTYPECASE0439 P 1 $$TYPE-VALUE P 0 CTYPECASE0436 I 1 N2 I 0 N1) 
�
@
H

Id3 �O�A
J
Kd3 ��@A�l�@A�Kd`�A@
`�@j
A
igJob��l�TA
L
Md3 ���l�@A�Md`�@A	A	��`�@o
A
igLob��Id`�[�A
N
Od3 ��@A
l�@	@	�A�Od`�@A
`�@j
A
igNob��`�WA
O
	Od3 ��@Aj

l�@Ao

Od`��`�@A
igOob��igHob��(574Q CHECK-TYPE-FAIL 552Q CHECK-TYPE-FAIL 534Q %%COMPLEX+ 506Q %%COMPLEX+ 503Q %%MAKE-COMPLEX 464Q %%COMPLEX+ 461Q %%MAKE-COMPLEX 416Q CHECK-TYPE-FAIL 401Q %%COMPLEX+ 375Q %%MAKE-COMPLEX 361Q %%RATIO+ 336Q DENOMINATOR 332Q NUMERATOR 320Q %%RATIO-INTEGER+ 254Q CHECK-TYPE-FAIL 237Q %%COMPLEX+ 233Q %%MAKE-COMPLEX 212Q DENOMINATOR 206Q NUMERATOR 124Q CHECK-TYPE-FAIL 107Q %%COMPLEX+ 103Q %%MAKE-COMPLEX 67Q %%RATIO-INTEGER+)
(564Q N1 541Q N2 525Q COMPLEXTYPE# 516Q RATIOTYPE# 430Q COMPLEXTYPE# 406Q N2 366Q COMPLEXTYPE# 351Q RATIOTYPE# 270Q RATIOTYPE# 244Q N2 221Q COMPLEXTYPE# 176Q RATIOTYPE# 114Q N2 74Q COMPLEXTYPE# 57Q RATIOTYPE#)
( 571Q (OR INTEGER FLOAT RATIO COMPLEX) 547Q (OR INTEGER FLOAT RATIO COMPLEX) 500Q 0.0 413Q (OR INTEGER FLOAT RATIO COMPLEX)
 251Q (OR OR INTEGER FLOAT RATIO COMPLEX) 230Q 0.0 121Q (OR INTEGER FLOAT RATIO COMPLEX))
%%- D1
(NAME - P 11Q $$TYPE-VALUE P 10Q CTYPECASE0463 P 7 $$TYPE-VALUE P 6 CTYPECASE0460 P 5 $$TYPE-VALUE P 4 CTYPECASE0457 P 3 $$TYPE-VALUE P 2 CTYPECASE0454 P 1 $$TYPE-VALUE P 0 CTYPECASE0451 I 1 N2 I 0 N1) 
�
@
H

Id3 �S�A
J
Kd3 ��@A�l�@A�Kd`�@k
A
`�@j
A
igJob��l�TA
L
Md3 ���l�@A�Md`�@A	A	��`�@o
A
igLob��Id`�[�A
N
Od3 ��@A
l�@	@	�A�Od`�@A
`�@j
A
igNob��`�WA
O
	Od3 ��@Aj

l�@Ao

Od`��`�@A
igOob��igHob��{(600Q CHECK-TYPE-FAIL 556Q CHECK-TYPE-FAIL 540Q %%COMPLEX- 512Q %%COMPLEX- 507Q %%MAKE-COMPLEX 470Q %%COMPLEX- 465Q %%MAKE-COMPLEX 422Q CHECK-TYPE-FAIL 405Q %%COMPLEX- 401Q %%MAKE-COMPLEX 365Q %%RATIO- 342Q DENOMINATOR 336Q NUMERATOR 324Q %%RATIO-INTEGER- 260Q CHECK-TYPE-FAIL 243Q %%COMPLEX- 237Q %%MAKE-COMPLEX 216Q DENOMINATOR 212Q NUMERATOR 130Q CHECK-TYPE-FAIL 113Q %%COMPLEX- 107Q %%MAKE-COMPLEX 73Q %%RATIO- 67Q %%MAKE-RATIO)
(570Q N1 545Q N2 531Q COMPLEXTYPE# 522Q RATIOTYPE# 434Q COMPLEXTYPE# 412Q N2 372Q COMPLEXTYPE# 355Q RATIOTYPE# 274Q RATIOTYPE# 250Q N2 225Q COMPLEXTYPE# 202Q RATIOTYPE# 120Q N2 100Q COMPLEXTYPE# 57Q RATIOTYPE#)
( 575Q (OR INTEGER FLOAT RATIO COMPLEX) 553Q (OR INTEGER FLOAT RATIO COMPLEX) 504Q 0.0 417Q (OR INTEGER FLOAT RATIO COMPLEX)
 255Q (OR OR INTEGER FLOAT RATIO COMPLEX) 234Q 0.0 125Q (OR INTEGER FLOAT RATIO COMPLEX))
%%* D1
(NAME CL:* P 11Q $$TYPE-VALUE P 10Q CTYPECASE0478 P 7 $$TYPE-VALUE P 6 CTYPECASE0475 P 5 $$TYPE-VALUE P 4 CTYPECASE0472 P 3 $$TYPE-VALUE P 2 CTYPECASE0469 P 1 $$TYPE-VALUE P 0 CTYPECASE0466 I 1 N2 I 0 N1) 
�
A
H

Id3 �O�@
J
Kd3 ��@A�l�@A�Kd`�@A
`�@Aj

igJob��l�T@
L
Md3 ���l�@A�Md`�@	@	�A�`�@Ao

igLob��Id`�[�@
N
Od3 ��A@
l�@A	A	��Od`�A@
`�@Aj

igNob��`�X@
O
	Od3 ���`�@j
A
Odl�@o
A
`�@A
igOob��igHob��~(575Q CHECK-TYPE-FAIL 553Q CHECK-TYPE-FAIL 535Q %%COMPLEX* 521Q %%COMPLEX* 515Q %%MAKE-COMPLEX 473Q %%COMPLEX* 467Q %%MAKE-COMPLEX 416Q CHECK-TYPE-FAIL 401Q %%COMPLEX* 376Q %%MAKE-COMPLEX 361Q %%RATIO* 337Q DENOMINATOR 333Q NUMERATOR 320Q %%RATIO-INTEGER* 254Q CHECK-TYPE-FAIL 237Q %%COMPLEX* 234Q %%MAKE-COMPLEX 211Q DENOMINATOR 205Q NUMERATOR 124Q CHECK-TYPE-FAIL 107Q %%COMPLEX* 104Q %%MAKE-COMPLEX 67Q %%RATIO-INTEGER*)
(565Q N2 542Q N1 526Q COMPLEXTYPE# 460Q RATIOTYPE# 430Q COMPLEXTYPE# 406Q N1 366Q COMPLEXTYPE# 351Q RATIOTYPE# 270Q RATIOTYPE# 244Q N1 221Q COMPLEXTYPE# 176Q RATIOTYPE# 114Q N1 74Q COMPLEXTYPE# 57Q RATIOTYPE#)
( 572Q (OR INTEGER FLOAT RATIO COMPLEX) 550Q (OR OR INTEGER RATIO FLOAT COMPLEX) 512Q 0.0 413Q (OR INTEGER FLOAT RATIO COMPLEX)
 251Q (OR OR INTEGER FLOAT RATIO COMPLEX) 231Q 0.0 121Q (OR INTEGER FLOAT RATIO COMPLEX))
%%/ D1
(NAME / P 11Q $$TYPE-VALUE P 10Q CTYPECASE0493 P 7 $$TYPE-VALUE P 6 CTYPECASE0490 P 5 $$TYPE-VALUE P 4 CTYPECASE0487 P 3 $$TYPE-VALUE P 2 CTYPECASE0484 P 1 $$TYPE-VALUE P 0 CTYPECASE0481 I 1 N2 I 0 N1) 
�
@
H

Id3 ����A
J
Kd3 �1�@d`�d`��A`�A`�@A
j�@A�@A
l�@A�Kd`�A	@�A	
`�@j
A
igJob��l�VA
L
Md3 ���l�@A�Md`�A	@�A	
`�@o
A
igLob��Id`�[�A
N
Od3 ��@	@	A�
l�@A�Od`�@A
`�@j
A
igNob��`�eA
O
	Od3 ��@Aj

l�@Ao

Od`�A	@�A	
`�@A
igOob��igHob��:(701Q CHECK-TYPE-FAIL 657Q CHECK-TYPE-FAIL 641Q %%COMPLEX/ 625Q %%/ 622Q NUMERATOR 614Q DENOMINATOR 575Q %%COMPLEX/ 572Q %%MAKE-COMPLEX 553Q %%COMPLEX/ 550Q %%MAKE-COMPLEX 505Q CHECK-TYPE-FAIL 470Q %%COMPLEX/ 464Q %%MAKE-COMPLEX 450Q %%RATIO/ 417Q %%BUILD-RATIO 412Q DENOMINATOR 406Q NUMERATOR 343Q CHECK-TYPE-FAIL 326Q %%COMPLEX/ 322Q %%MAKE-COMPLEX 303Q %%/ 300Q NUMERATOR 272Q DENOMINATOR 211Q CHECK-TYPE-FAIL 174Q %%COMPLEX/ 170Q %%MAKE-COMPLEX 154Q %%/ 151Q NUMERATOR 143Q DENOMINATOR 114Q %%BUILD-RATIO 100Q IMOD)
(671Q N1 646Q N2 632Q COMPLEXTYPE# 605Q RATIOTYPE# 517Q COMPLEXTYPE# 475Q N2 455Q COMPLEXTYPE# 440Q RATIOTYPE# 357Q RATIOTYPE# 333Q N2 310Q COMPLEXTYPE# 263Q RATIOTYPE# 201Q N2 161Q COMPLEXTYPE# 134Q RATIOTYPE# 71Q MAX.INTEGER 63Q MIN.INTEGER 53Q MAX.INTEGER 44Q MIN.INTEGER)
( 676Q (OR INTEGER FLOAT RATIO COMPLEX) 654Q (OR INTEGER FLOAT RATIO COMPLEX) 567Q 0.0 502Q (OR INTEGER FLOAT RATIO COMPLEX)
 340Q (OR OR INTEGER FLOAT RATIO COMPLEX) 317Q 0.0 206Q (OR INTEGER FLOAT RATIO COMPLEX))
(\SETUFNENTRY (CAR (\FINDOP (QUOTE PLUS2))) (QUOTE %%+) 2 0)
(\SETUFNENTRY (CAR (\FINDOP (QUOTE DIFFERENCE))) (QUOTE %%-) 2 0)
(\SETUFNENTRY (CAR (\FINDOP (QUOTE TIMES2))) (QUOTE %%*) 2 0)
(\SETUFNENTRY (CAR (\FINDOP (QUOTE GREATERP))) (QUOTE %%>) 2 0)
LOGIOR D1
(L (0 N)) Ae
Hdl�kala�k�kaj�Hj�jkalala��lJH�IJa�Jk�Z��INIL
NIL
()
LOGEQV D1
(L (0 -args-)) Ge
Hk2JdI��KI�m�
I��I�Ja�L�
Mh\�Jk�Z��M&���JI
I�m����NIL
NIL
()
LOGNAND D1
(L (1 INTEGER2 0 INTEGER1)) @A�m��NIL
NIL
()
LOGNOR D1
(L (1 INTEGER2 0 INTEGER1)) @A�m��NIL
NIL
()
LOGANDC1 D1
(L (1 INTEGER2 0 INTEGER1)) @m��A�NIL
NIL
()
LOGANDC2 D1
(L (1 INTEGER2 0 INTEGER1)) @Am���NIL
NIL
()
LOGORC1 D1
(L (1 INTEGER2 0 INTEGER1)) @m��A�NIL
NIL
()
LOGORC2 D1
(L (1 INTEGER2 0 INTEGER1)) @Am���NIL
NIL
()
BOOLE D1
(L (2 INTEGER2 1 INTEGER1 0 OP)) �@dj�jk�m�@dl�Al�B@dl�Am��l�Bm��@dl�AB�l�AB
@dl�AB�l	�AB
@dl
�AB
l�AB
@dl�AB
l
�AB
@dl�AB
l�AB
o@
(246Q CL:ERROR 235Q LOGORC2 223Q LOGORC1 206Q LOGANDC2 174Q LOGANDC1 157Q LOGNOR 145Q LOGNAND 130Q LOGEQV 103Q LOGIOR)
NIL
( 242Q "~S is not of type (mod 16).")
(RPAQ? BOOLE-CLR 0)
(RPAQ? BOOLE-SET 1)
(RPAQ? BOOLE-1 2)
(RPAQ? BOOLE-2 3)
(RPAQ? BOOLE-C1 4)
(RPAQ? BOOLE-C2 5)
(RPAQ? BOOLE-AND 6)
(RPAQ? BOOLE-IOR 7)
(RPAQ? BOOLE-XOR 8)
(RPAQ? BOOLE-EQV 9)
(RPAQ? BOOLE-NAND 10)
(RPAQ? BOOLE-NOR 11)
(RPAQ? BOOLE-ANDC1 12)
(RPAQ? BOOLE-ANDC2 13)
(RPAQ? BOOLE-ORC1 14)
(RPAQ? BOOLE-ORC2 15)
LOGTEST D1
(L (1 INTEGER2 0 INTEGER1)) 	@A�j�h�NIL
NIL
()
LOGBITP D1
(L (1 INTEGER 0 INDEX)) A@
k�k�(4 RSH)
NIL
()
ASH D1
(I 1 COUNT I 0 INTEGER) 5Aj�Aj�@@jA�
@j�jAdl�@A
dj��@d�b�kٰ�(43Q \BIGNUM.LSH 20Q RSH)
NIL
()
LOGCOUNT D1
(L (0 INTEGER)) P
@
�@d3 ��j@�@m��@	`�)j@�@m��@�jH�I
�IJ	ԹHX��o@
(115Q CL:ERROR 76Q %%LOGCOUNT 26Q %%LOGCOUNT)
(53Q BIGNUM 33Q BIGNUMTYPE#)
( 111Q "Argument not integer, ~A.")
%%LOGCOUNT D1
(L (0 N)) 

jX@dj�Hdk��b�HkԸ��NIL
NIL
()
INTEGER-LENGTH D1
(I 0 INTEGER) �
j@�m�@�b�o@��n
@�Cl@�"l@�l@�@j�jkll@�lll@@�l @�lll�@�lln@� n@�n@�l	l
n@�lln@@�n @�l
ln�@�ll@m�
	l�(250Q INTEGER-LENGTH 245Q ASH)
NIL
( 16Q 200000Q)
BYTE-SIZE D1
(L (0 BYTESPEC)) 
@
NIL
NIL
()
BYTE-POSITION D1
(L (0 BYTESPEC)) 
@
NIL
NIL
()
LDB-TEST D1
(L (1 INTEGER 0 BYTESPEC)) @A
j�h�(4 MASK-FIELD)
NIL
()
MASK-FIELD D1
(L (1 INTEGER 0 BYTESPEC)) @
@

kI�k�H�A�NIL
NIL
()
DEPOSIT-FIELD D1
(L (2 INTEGER 1 BYTESPEC 0 NEWBYTE)) BA
A

kI�k�H�
@A
��(25Q LOGANDC2)
NIL
()
(PUTPROPS CMLARITH FILETYPE COMPILE-FILE)
(PUTPROPS CMLARITH COPYRIGHT ("Xerox Corporation" 1985 1986))
STOP