(DEFINE-FILE-INFO READTABLE "XCL" PACKAGE "LISP")
(IL:FILECREATED "29-Oct-93 09:31:20" ("compiled on " 
IL:|{DSK}<king>export>lispcore>sources>CLTL2>CMLARITH.;1|) "19-Feb-93 17:03:08" "COMPILE-FILEd" IL:|in|
 "Medley 19-Feb-93 ..." IL:|dated| "19-Feb-93 18:20:42")
(IL:FILECREATED "24-Mar-92 14:23:15" IL:|{DSK}<usr>local>lde>lispcore>sources>CMLARITH.;2| 68401 
IL:|changes| IL:|to:| (IL:VARS IL:CMLARITHCOMS) (IL:FUNCTIONS UPGRADED-COMPLEX-PART-TYPE) (IL:FNS LCM)
 IL:|previous| IL:|date:| "16-May-90 12:46:36" IL:|{DSK}<usr>local>lde>lispcore>sources>CMLARITH.;1|)
(IL:RPAQQ IL:CMLARITHCOMS ((IL:* IL:|;;;| "Common Lisp Arithmetic ") (IL:COMS (IL:* IL:|;;| 
"Error utilities") (IL:FUNCTIONS %NOT-NUMBER-ERROR %NOT-NONCOMPLEX-NUMBER-ERROR %NOT-INTEGER-ERROR 
%NOT-RATIONAL-ERROR %NOT-FLOAT-ERROR)) (IL:COMS (IL:* IL:|;;;| "Section 2.1.2 Ratios. ") (IL:COMS (
IL:STRUCTURES RATIO) (IL:* IL:|;;| "The following makes NUMBERP true on ratios") (IL:DECLARE\: 
IL:DONTEVAL@LOAD IL:DOCOPY (IL:P (IL:\\SETTYPEMASK (IL:\\TYPENUMBERFROMNAME (QUOTE RATIO)) (IL:LOGOR 
IL:\\TT.NUMBERP IL:\\TT.ATOM))))) (IL:FUNCTIONS DENOMINATOR NUMERATOR RATIONALP %RATIO-PRINT 
%BUILD-RATIO RATIONAL RATIONALIZE) (IL:FUNCTIONS %RATIO-PLUS %RATIO-TIMES)) (IL:COMS (IL:* IL:|;;;| 
"Section 2.1.4 Complex Numbers.") (IL:COMS (IL:STRUCTURES COMPLEX) (IL:* IL:|;;| 
"So we don't inherit the deftype from defstruct") (IL:TYPES COMPLEX) (IL:* IL:|;;| 
"Make Complex  NUMBERP") (IL:DECLARE\: IL:DONTEVAL@LOAD IL:DOCOPY (IL:P (IL:\\SETTYPEMASK (
IL:\\TYPENUMBERFROMNAME (QUOTE COMPLEX)) (IL:LOGOR IL:\\TT.NUMBERP IL:\\TT.ATOM))))) (IL:FUNCTIONS 
COMPLEX REALPART IMAGPART CONJUGATE PHASE UPGRADED-COMPLEX-PART-TYPE %COMPLEX-PRINT %COMPLEX-+ 
%COMPLEX-- %COMPLEX-* %COMPLEX-/ %COMPLEX-ABS)) (IL:COMS (IL:* IL:|;;;| "Datatype predicates") (IL:* 
IL:|;;| "cl:integerp is defined in cmlpred (has an optimizer)") (IL:* IL:|;;| 
"cl:floatp is defined in cmltypes (has an optimizer). il:floatp is defined on llbasic") (IL:* IL:|;;| 
"cl:complexp is a defstruct predicate (compiles in line)") (IL:* IL:|;;| 
"cl:numberp is defined in cmltypes (has an optimizer). il:numberp is defined on llbasic")) (IL:COMS (
IL:* IL:|;;;| "Section 12.2 Predicates on Numbers (generic).") (IL:* IL:|;;| 
"cl:zerop  is not shared with il:zerop, although they are equivalent. There is no il;plusp ") (IL:COMS
 (IL:FUNCTIONS ZEROP PLUSP) (XCL:OPTIMIZERS ZEROP PLUSP)) (IL:* IL:|;;| 
"cl:minusp is shared with il:minusp, but must be redefined to work with ratios. Old version resides in llarith"
) (IL:COMS (IL:FUNCTIONS MINUSP) (XCL:OPTIMIZERS MINUSP)) (IL:* IL:|;;| 
"Both cl:evenp and cl:oddp are shared with il:. The functions are extended by allowing a second optional modulus argument. Another version of il:oddp exists on llarith, but the definition of il:evenp has disappeared"
) (IL:COMS (IL:FUNCTIONS EVENP ODDP) (XCL:OPTIMIZERS EVENP ODDP))) (IL:COMS (IL:* IL:|;;;| 
"Section 12.3 Comparisons on Numbers. (generic)") (IL:COMS (IL:FUNCTIONS %= %/= %> %< %>= %<=) (IL:PROP
 IL:DOPVAL %= %> %<) (IL:* IL:\; "For the byte compiler") (IL:PROP IL:DMACRO %> %< %>= %<=) (
IL:DECLARE\: IL:DONTEVAL@LOAD IL:DOCOPY (IL:P (IL:* IL:|;;| "Backward compatibility") (IL:* IL:\; 
" il:%= is listed as the punt function for the = opcode") (IL:MOVD (QUOTE %=) (QUOTE IL:%=)) (IL:* IL:\;
 "Greaterp is the UFN for the greaterp opcode. Effectively redefines the opcode") (IL:MOVD (QUOTE %>) 
(QUOTE IL:GREATERP)) (IL:* IL:\; "Interlisp Greaterp and Lessp are defined in llarith") (IL:MOVD (
QUOTE %<) (QUOTE IL:LESSP))))) (IL:* IL:|;;| 
"=, <, >, <=, and >= are shared with il:, but cl:/= is NOT shared (?!)") (IL:COMS (IL:DECLARE\: 
IL:DONTCOPY IL:DOEVAL@COMPILE (IL:FUNCTIONS %COMPARISON-MACRO)) (IL:FNS = /= < > <= >=) (IL:FUNCTIONS 
%COMPARISON-OPTIMIZER) (XCL:OPTIMIZERS = /= < > <= >=)) (IL:* IL:|;;| 
"Note: the related predicates EQL, EQUAL, and EQUALP should be consulted if any of the above change. EQL is on LLNEW (?), EQUAL and EQUALP on CMLTYPES."
) (IL:* IL:|;;| 
"cl:min and cl:max are shared with il: (defined in llarith). They  are written in terms of GREATERP and hence work on ratios. Note (min) returns #.max.integer , which is an extension on the CLtl spec. We only optimize the case of two args"
) (XCL:OPTIMIZERS MIN MAX)) (IL:COMS (IL:* IL:|;;;| "Section 12.4 Arithmetic Operations (generic). ") 
(IL:COMS (IL:FUNCTIONS %+ %- %* %/) (IL:* IL:\; 
"NOTE: %/ cannot compile out to the existinq quotient opcode because it produces ratios rather than truncating"
) (IL:PROP IL:DOPVAL %+ %- %*) (IL:* IL:\; "For the byte compiler") (IL:PROP IL:DMACRO %+ %- %*) (
IL:DECLARE\: IL:DONTEVAL@LOAD IL:DOCOPY (IL:P (IL:* IL:|;;| "Backward compatibility") (IL:MOVD (QUOTE 
%/) (QUOTE IL:%/)) (IL:* IL:|;;| 
"Redefine UFNs for generic plus, difference, and times. Old UFN defined in llarith.") (IL:MOVD (QUOTE 
%+) (QUOTE IL:\\SLOWPLUS2)) (IL:MOVD (QUOTE %-) (QUOTE IL:\\SLOWDIFFERENCE)) (IL:MOVD (QUOTE %*) (
QUOTE IL:\\SLOWTIMES2))))) (IL:COMS (IL:FNS + - * /) (IL:FUNCTIONS 1+ 1- %RECIPROCOL) (XCL:OPTIMIZERS 
+ - * / 1+ 1-) (IL:* IL:\; "For the byte compiler") (IL:PROP IL:DMACRO + *) (IL:* IL:|;;| 
"Redefine Interlisp generic arithmetic to work with ratios") (IL:DECLARE\: IL:DONTEVAL@LOAD IL:DOCOPY 
(IL:P (IL:MOVD (QUOTE +) (QUOTE IL:PLUS)) (IL:* IL:|;;| 
"Don't need to redefine difference since it is defined in terms of the difference opcode (redefined above)"
) (IL:MOVD (QUOTE *) (QUOTE IL:TIMES)) (IL:* IL:|;;| 
"So Interlisp quotient will do something reasonable with ratios") (IL:* (IL:MOVD (QUOTE IL:NEW-QUOTIENT
) (QUOTE IL:QUOTIENT))) (IL:* IL:|;;| 
"because QUOTIENT is already defined in LLARITH to do something useful with ratios. AR 8062.")))) (IL:*
 IL:|;;| "INCF and DECF implemented by CMLSETF.") (IL:FUNCTIONS %GCD %LCM) (IL:FNS GCD LCM)) (IL:COMS 
(IL:* IL:|;;| "Optimizers for Interlisp functions, so that they compile open with the PavCompiler.") (
IL:* IL:|;;| "optimizer of IL:minus") (XCL:OPTIMIZERS IL:MINUS) (XCL:OPTIMIZERS IL:PLUS IL:IPLUS 
IL:FPLUS IL:TIMES IL:ITIMES IL:FTIMES IL:RSH) (IL:PROP IL:DOPVAL IL:PLUS2 IL:IPLUS2 IL:FPLUS2 IL:TIMES2
 IL:ITIMES2 IL:FTIMES2)) (IL:COMS (IL:* IL:|;;;| 
"Section 12.5 Irrational and Transcendental functions. Most of these will be found on cmlfloat.") (
IL:FUNCTIONS ISQRT) (IL:* IL:|;;| "Abs is shared with il: abs ia also defined in llarith.") (
IL:FUNCTIONS ABS %ABS) (IL:FUNCTIONS SIGNUM %SIGNUM)) (IL:COMS (IL:* IL:|;;;| 
"Section 12.6 Type Conversions and Component Extractions on Numbers.") (IL:* IL:|;;| 
"Float implemented in cmlfloat  ") (IL:DECLARE\: IL:DONTCOPY IL:DOEVAL@COMPILE (IL:FILES IL:UNBOXEDOPS
)) (IL:* IL:\; "These should be exported from xcl") (IL:COMS (IL:FUNCTIONS XCL::STRUNCATE XCL::SFLOOR 
XCL::SCEILING XCL::SROUND) (XCL:OPTIMIZERS XCL::STRUNCATE XCL::SROUND)) (IL:* IL:\; 
"Round is shared with il: (?!)") (IL:COMS (IL:DECLARE\: IL:DONTCOPY IL:DOEVAL@COMPILE (IL:FUNCTIONS 
%INTEGER-COERCE-MACRO)) (IL:FUNCTIONS TRUNCATE FLOOR CEILING ROUND) (IL:FUNCTIONS 
%INTEGER-COERCE-OPTIMIZER) (XCL:OPTIMIZERS TRUNCATE FLOOR CEILING ROUND)) (IL:COMS (IL:FUNCTIONS 
FTRUNCATE FFLOOR FCEILING FROUND) (XCL:OPTIMIZERS FTRUNCATE FFLOOR FCEILING FROUND)) (IL:COMS (
IL:FUNCTIONS MOD REM)) (IL:* IL:|;;| 
"Should IL:remainder be equivalent to cl:rem?. Thereis no IL:mod in the IRM, although it has a macro which makes it equivalent to imod."
) (IL:* IL:|;;| "See cmlfloat for ffloor and friends, decode-float and friends")) (IL:COMS (IL:* 
IL:|;;;| "Section 12.7 Logical Operations on Numbers.") (IL:* IL:|;;| 
"LOGXOR and LOGAND are shared with IL. (definitions in llarith)") (IL:COMS (IL:FUNCTIONS 
%LOGICAL-OPTIMIZER) (XCL:OPTIMIZERS LOGXOR LOGAND)) (IL:COMS (IL:FUNCTIONS %LOGIOR %LOGEQV) (IL:PROP 
IL:DOPVAL %LOGIOR) (IL:* IL:\; "for the byte compiler") (IL:PROP IL:DMACRO %LOGIOR)) (IL:COMS (IL:FNS 
LOGIOR LOGEQV) (XCL:OPTIMIZERS LOGIOR LOGEQV)) (IL:COMS (IL:FUNCTIONS LOGNAND LOGNOR LOGANDC1 LOGANDC2
 LOGORC1 LOGORC2) (XCL:OPTIMIZERS LOGNAND LOGNOR LOGANDC1 LOGANDC2 LOGORC1 LOGORC2)) (IL:COMS (
IL:VARIABLES BOOLE-CLR BOOLE-SET BOOLE-1 BOOLE-2 BOOLE-C1 BOOLE-C2 BOOLE-AND BOOLE-IOR BOOLE-XOR 
BOOLE-EQV BOOLE-NAND BOOLE-NOR BOOLE-ANDC1 BOOLE-ANDC2 BOOLE-ORC1 BOOLE-ORC2) (IL:FUNCTIONS BOOLE)) (
IL:* IL:|;;| "Lognot is shared with IL.(in addarith) ") (IL:COMS (IL:FUNCTIONS LOGTEST LOGBITP) (
XCL:OPTIMIZERS LOGTEST)) (IL:COMS (IL:FUNCTIONS ASH) (IL:PROP IL:DOPVAL ASH) (IL:* IL:\; 
"For the byte compiler") (IL:PROP IL:DMACRO ASH)) (IL:COMS (IL:FUNCTIONS LOGCOUNT %LOGCOUNT) (
IL:DECLARE\: IL:DONTCOPY IL:DOEVAL@COMPILE (IL:FILES (IL:LOADCOMP) IL:LLBIGNUM)) (IL:* IL:\; 
"Should be in llbignum") (IL:FUNCTIONS %BIGNUM-LOGCOUNT)) (IL:FUNCTIONS INTEGER-LENGTH) (IL:* IL:|;;| 
"OPTIMIZERS FOR IL:LLSH AND IL:LRSH") (IL:COMS (IL:FUNCTIONS %LLSH8 %LLSH1 %LRSH8 %LRSH1) (IL:PROP 
IL:DOPVAL %LLSH8 %LLSH1 %LRSH8 %LRSH1) (XCL:OPTIMIZERS IL:LLSH IL:LRSH))) (IL:COMS (IL:* IL:|;;;| 
"Section 12.8 Byte Manipulations Functions.") (IL:COMS (IL:FUNCTIONS BYTE BYTE-SIZE BYTE-POSITION) (IL:*
 IL:|;;| 
"Byte doesn't need an optimizer since the side-effects data-base will do constant folding, but the byte-compiler can profit from an optimizer"
) (IL:FUNCTIONS OPTIMIZE-BYTE) (IL:PROP IL:DMACRO BYTE)) (IL:COMS (IL:DECLARE\: IL:DONTCOPY 
IL:DOEVAL@COMPILE (IL:FUNCTIONS %MAKE-BYTE-MASK-1 %MAKE-BYTE-MASK-0)) (IL:FUNCTIONS LDB DPB MASK-FIELD
 DEPOSIT-FIELD) (IL:FUNCTIONS %CONSTANT-BYTESPEC-P) (XCL:OPTIMIZERS LDB DPB MASK-FIELD DEPOSIT-FIELD))
 (IL:COMS (IL:FUNCTIONS LDB-TEST) (XCL:OPTIMIZERS LDB-TEST))) (IL:DECLARE\: IL:DONTCOPY 
IL:DOEVAL@COMPILE (IL:LOCALVARS . T)) (IL:PROP (IL:MAKEFILE-ENVIRONMENT IL:FILETYPE) IL:CMLARITH) (
IL:DECLARE\: IL:DONTEVAL@LOAD IL:DOEVAL@COMPILE IL:DONTCOPY IL:COMPILERVARS (IL:ADDVARS (IL:NLAMA) (
IL:NLAML) (IL:LAMA LOGEQV LOGIOR LCM GCD / * - + >= <= > < /= =)))))
%NOT-NUMBER-ERROR :D8
(IL:L (0 OBJECT)) #
gggg@g@
(32 ERROR)
(25 :VALUE 19 :NAME 14 NUMBER 9 :EXPECTED-TYPE 4 XCL:TYPE-MISMATCH)
()
%NOT-NONCOMPLEX-NUMBER-ERROR :D8
(IL:L (0 OBJECT)) 3
@3�o@
gggg@g@
(48 ERROR 14 ERROR)
(41 :VALUE 35 :NAME 30 NUMBER 25 :EXPECTED-TYPE 20 XCL:TYPE-MISMATCH)
( 8 "Arg a complex number~%~s")
%NOT-INTEGER-ERROR :D8
(IL:L (0 OBJECT)) #
gggg@g@
(32 ERROR)
(25 :VALUE 19 :NAME 14 INTEGER 9 :EXPECTED-TYPE 4 XCL:TYPE-MISMATCH)
()
%NOT-RATIONAL-ERROR :D8
(IL:L (0 OBJECT)) #
gggg@g@
(32 ERROR)
(25 :NAME 19 :VALUE 14 RATIONAL 9 :EXPECTED-TYPE 4 XCL:TYPE-MISMATCH)
()
%NOT-FLOAT-ERROR :D8
(IL:L (0 OBJECT)) #
gggg@g@
(32 ERROR)
(25 :VALUE 19 :NAME 14 FLOAT 9 :EXPECTED-TYPE 4 XCL:TYPE-MISMATCH)
()
(SET-PARSED-STRUCTURE (QUOTE RATIO) T (QUOTE (PS RATIO NIL (NUMERATOR DENOMINATOR) DATATYPE NIL NIL 
"RATIO-" ((%MAKE-RATIO (NUMERATOR DENOMINATOR))) %RATIO-P %RATIO-PRINT NIL NIL 0 NIL ((NUMERATOR 
:READ-ONLY T NIL (RATIO 0 IL:POINTER) RATIO-NUMERATOR) (DENOMINATOR :READ-ONLY T NIL (RATIO 2 IL:POINTER
) RATIO-DENOMINATOR)) NIL NIL (IL:POINTER IL:POINTER) NIL (:ACCESSOR :PREDICATE) NIL NIL NIL)))
(SI::%STRUCTURE-DECLARE-DATATYPE (QUOTE RATIO) (QUOTE (IL:POINTER IL:POINTER)) (QUOTE ((RATIO 0 
IL:POINTER) (RATIO 2 IL:POINTER))) 4 (QUOTE STRUCTURE-OBJECT))
(IL:PUTPROP (QUOTE RATIO) (QUOTE :TYPE-EXPANDER) (QUOTE TYPE-EXPAND-STRUCTURE))
%RATIO-P :D8
(IL:L (0 OBJECT)) 
@�NIL
(5 RATIO)
()
(ESTABLISH-PREDICATE (QUOTE RATIO))
RATIO-NUMERATOR :D8
(IL:L (0 RATIO)) 

@�NIL
(5 RATIO)
()
RATIO-DENOMINATOR :D8
(IL:L (0 RATIO)) 

@�NIL
(5 RATIO)
()
(ESTABLISH-SETFS-AND-OPTIMIZERS (QUOTE RATIO))
%MAKE-RATIO :D8
(IL:L (1 DENOMINATOR 0 NUMERATOR)) 
l
H@HAHNIL
NIL
()
(IL:\\SETTYPEMASK (IL:\\TYPENUMBERFROMNAME (QUOTE RATIO)) (IL:LOGOR IL:\\TT.NUMBERP IL:\\TT.ATOM))
DENOMINATOR :D8
(IL:L (0 RATIONAL)) 
@d���@�3 �k@	(28 %NOT-RATIONAL-ERROR)
(14 RATIO 6 RATIO)
()
NUMERATOR :D8
(IL:L (0 RATIONAL)) 
@d���@�3 �@@	(28 %NOT-RATIONAL-ERROR)
(14 RATIO 6 RATIO)
()
RATIONALP :D8
(IL:L (0 NUMBER)) 
@d3 �i�NIL
(11 RATIO)
()
|definline-RATIONALP| :D8
(IL:L (2 IL:$$CTX 1 IL:$$ENV 0 IL:$$WHOLE)) 
@
oHNIL
NIL
( 9 (LAMBDA (NUMBER) (BLOCK RATIONALP (OR (INTEGERP NUMBER) (%RATIO-P NUMBER)))))
(IL:PUTPROP (QUOTE RATIONALP) (QUOTE COMPILER:OPTIMIZER-LIST) (ADJOIN (QUOTE |definline-RATIONALP|) (
GET (QUOTE RATIONALP) (QUOTE COMPILER:OPTIMIZER-LIST))))
%RATIO-PRINT :D8
(IL:L (1 STREAM 0 NUMBER) IL:P 8 *PRINT-RADIX* IL:P 7 IL:\\THISFILELINELENGTH IL:P 6 *PRINT-RADIX* IL:P 5 *PRINT-BASE* IL:F 9 *PRINT-BASE* IL:F 10 *READTABLE* IL:F 11 IL:\\THISFILELINELENGTH IL:F 12 *PRINT-RADIX*) 
	@�@�2W�j�oA
gHIhA
W�{gW�[�l�Kl��l��h�lK�	Wdl�o�<l�o�1Wl�o�$gW�l

L	o�W�*kH	�I	�J�Aj�A��W�A	� J�HA
oA
IA
A
���	��(276 IL:NCHARS 268 IL:\\SOUT 261 IL:\\PRINDATUM 254 IL:\\SOUT 243 IL:\\PRINDATUM 229 IL:FRESHLINE 204 IL:NCHARS 197 IL:NCHARS 185 CONCATENATE 180 CONCATENATE 168 PRINC-TO-STRING 107 STRING 60 IL:\\PRINDATUM 43 IL:PRIN1)
(216 STREAM 151 STRING 77 READTABLEP 70 STRING 48 / 25 READTABLEP 13 RATIO 5 RATIO)
( 248 "/" 175 "r" 144 "x" 131 "o" 120 "b" 37 "|.")
%BUILD-RATIO :D8
(IL:L (1 Y 0 X)) <
@dA�j�A�A

Hk�@H�b�AH�b�jA�j@�jA�
@A
(57 %MAKE-RATIO 49 %MAKE-RATIO 15 %GCD)
NIL
()
RATIONAL :D8
(IL:L (0 NUMBER)) Q
@
HY��I3 �@Hd���@	��"@�	@�	
@	(78 %NOT-NUMBER-ERROR 71 %MAKE-COMPLEX 66 RATIONAL 53 RATIONAL 32 %RATIONAL-FLOAT)
(59 COMPLEX 46 COMPLEX 38 COMPLEX 24 IL:FLOATP 10 RATIO)
()
RATIONALIZE :D8
(IL:L (0 NUMBER)) Q
@
HY��I3 �@Hd���@	��"@�	@�	
@	(78 %NOT-NUMBER-ERROR 71 %MAKE-COMPLEX 66 RATIONALIZE 53 RATIONALIZE 32 %RATIONALIZE-FLOAT)
(59 COMPLEX 46 COMPLEX 38 COMPLEX 24 IL:FLOATP 10 RATIO)
()
%RATIO-PLUS :D8
(IL:L (3 DENOMINATOR-2 2 NUMERATOR-2 1 DENOMINATOR-1 0 NUMERATOR-1)) VAC
AHk�@C�BA��AC�
AH۹@CH��BI��ZH
�C�Kk�CKۼJKۺLk�Ik�JJIL�
(83 %MAKE-RATIO 49 %GCD 28 %MAKE-RATIO 6 %GCD)
NIL
()
%RATIO-TIMES :D8
(IL:L (3 DENOMINATOR-2 2 NUMERATOR-2 1 DENOMINATOR-1 0 NUMERATOR-1)) Z@C
BA

Hk�@H�b�CH�b�Ik�BI�b�AI�b�@B�AC�
Ik�HjI�jH�jI�
HI
(87 %MAKE-RATIO 79 %MAKE-RATIO 13 %GCD 6 %GCD)
NIL
()
(SET-PARSED-STRUCTURE (QUOTE COMPLEX) T (QUOTE (PS COMPLEX NIL (REALPART IMAGPART) DATATYPE NIL NIL 
"COMPLEX-" ((%MAKE-COMPLEX (REALPART IMAGPART))) COMPLEXP %COMPLEX-PRINT NIL NIL 0 NIL ((REALPART 
:READ-ONLY T NIL (COMPLEX 0 IL:POINTER) COMPLEX-REALPART) (IMAGPART :READ-ONLY T NIL (COMPLEX 2 
IL:POINTER) COMPLEX-IMAGPART)) NIL NIL (IL:POINTER IL:POINTER) NIL (:ACCESSOR :PREDICATE) NIL NIL NIL)
))
(SI::%STRUCTURE-DECLARE-DATATYPE (QUOTE COMPLEX) (QUOTE (IL:POINTER IL:POINTER)) (QUOTE ((COMPLEX 0 
IL:POINTER) (COMPLEX 2 IL:POINTER))) 4 (QUOTE STRUCTURE-OBJECT))
(IL:PUTPROP (QUOTE COMPLEX) (QUOTE :TYPE-EXPANDER) (QUOTE TYPE-EXPAND-STRUCTURE))
COMPLEXP :D8
(IL:L (0 OBJECT)) 
@�NIL
(5 COMPLEX)
()
(ESTABLISH-PREDICATE (QUOTE COMPLEX))
COMPLEX-REALPART :D8
(IL:L (0 COMPLEX)) 

@�NIL
(5 COMPLEX)
()
COMPLEX-IMAGPART :D8
(IL:L (0 COMPLEX)) 

@�NIL
(5 COMPLEX)
()
(ESTABLISH-SETFS-AND-OPTIMIZERS (QUOTE COMPLEX))
%MAKE-COMPLEX :D8
(IL:L (1 IMAGPART 0 REALPART)) 
l
H@HAHNIL
NIL
()
|type-expand-COMPLEX| :D8
(IL:L (0 SI::%$$TYPE-FORM)) z

@�g
Hg�o
��ggggoggogHhhgogHhhhhhhNIL
(96 QUOTE 86 TYPEP 73 QUOTE 63 TYPEP 58 AND 48 IL:LAMBDA 43 SATISFIES 38 COMPLEX 33 AND 17 * 8 *)
( 91 (COMPLEX-IMAGPART IL:X) 68 (COMPLEX-REALPART IL:X) 53 (IL:X) 24 (:DATATYPE COMPLEX))
(IL:PUTPROP (QUOTE COMPLEX) (QUOTE :TYPE-EXPANDER) (QUOTE |type-expand-COMPLEX|))
(IL:\\SETTYPEMASK (IL:\\TYPENUMBERFROMNAME (QUOTE COMPLEX)) (IL:LOGOR IL:\\TT.NUMBERP IL:\\TT.ATOM))
COMPLEX :D8
(IL:L (0 IL:|-args-|)) ve
kaQlH�j�la�I[\��L3 �:J]^d���N3 �Jj�IIJ
M��IJ
J	K��IJ
I	(115 %NOT-NONCOMPLEX-NUMBER-ERROR 108 %MAKE-COMPLEX 88 %NOT-NONCOMPLEX-NUMBER-ERROR 81 %MAKE-COMPLEX 61 %MAKE-COMPLEX)
(103 IL:FLOATP 95 IL:FLOATP 75 IL:FLOATP 68 IL:FLOATP 42 RATIO 27 RATIO)
()
REALPART :D8
(IL:L (0 NUMBER)) 
@d���@�3�@@	(28 %NOT-NUMBER-ERROR)
(14 COMPLEX 6 COMPLEX)
()
IMAGPART :D8
(IL:L (0 NUMBER)) ,
@d���@�d��o3�j@	(41 %NOT-NUMBER-ERROR)
(23 IL:FLOATP 14 COMPLEX 6 COMPLEX)
( 29 0.0)
CONJUGATE :D8
(IL:L (0 NUMBER)) /
@d���@�j@��
3�@@	(44 %NOT-NUMBER-ERROR 32 %MAKE-COMPLEX)
(24 COMPLEX 15 COMPLEX 6 COMPLEX)
()
PHASE :D8
(IL:L (0 NUMBER)) 9
@dj��o��@�@�
j@�oo(38 ATAN)
(31 COMPLEX 23 COMPLEX 15 COMPLEX)
( 54 0.0 48 3.1415927 9 0.0)
UPGRADED-COMPLEX-PART-TYPE :D8
(IL:L (0 TYPE)) 
@g
�go@
(28 ERROR 10 SUBTYPEP)
(16 NUMBER 5 NUMBER)
( 22 "Type ~s can't be part of a complex number")
%COMPLEX-PRINT :D8
(IL:L (1 STREAM 0 NUMBER) IL:F 5 IL:\\THISFILELINELENGTH IL:F 6 *READTABLE*) �@�@�2U�%lH	�I	�A��U�A	�AV��[�(�KLlJ�oA
oA
HA
oA
IA
oA
(141 IL:\\SOUT 130 IL:\\PRINDATUM 123 IL:\\SOUT 112 IL:\\PRINDATUM 105 IL:\\SOUT 94 IL:\\SOUT 55 IL:FRESHLINE 36 IL:NCHARS 29 IL:NCHARS)
(73 STREAM 63 READTABLEP 43 STREAM 13 COMPLEX 5 COMPLEX)
( 135 ")" 117 " " 99 "(" 88 "C")
%COMPLEX-+ :D8
(IL:L (3 IMAG-2 2 REAL-2 1 IMAG-1 0 REAL-1)) )Aj��@B�C
Cj��@B�A
@B�AC�
(38 COMPLEX 26 COMPLEX 12 COMPLEX)
NIL
()
%COMPLEX-- :D8
(IL:L (3 IMAG-2 2 REAL-2 1 IMAG-1 0 REAL-1)) +Aj��@B�jC�
Cj��@B�A
@B�AC�
(40 COMPLEX 28 COMPLEX 14 COMPLEX)
NIL
()
%COMPLEX-* :D8
(IL:L (3 IMAG-2 2 REAL-2 1 IMAG-1 0 REAL-1)) 5Aj��@B�@C�
Cj��@B�AB�
@B�AC��AB�@C��
(50 COMPLEX 30 COMPLEX 14 COMPLEX)
NIL
()
%COMPLEX-/ :D8
(IL:L (3 IMAG-2 2 REAL-2 1 IMAG-1 0 REAL-1)) m
jA��&Bd�Cd��
@B�H
j@C��H

jC��@B
AB

Bd�Cd��
@B�AC��H
AB�@C��H

(106 COMPLEX 101 %/ 88 %/ 64 COMPLEX 59 %/ 52 %/ 39 COMPLEX 34 %/ 23 %/)
NIL
()
%COMPLEX-ABS :D8
(IL:L (0 Z)) 1
@��
@��

H�H��I�I����
�	(46 SQRT)
(15 COMPLEX 5 COMPLEX)
()
ZEROP :D8
(IL:L (0 NUMBER)) 
j@�NIL
NIL
()
PLUSP :D8
(IL:L (0 NUMBER)) 
@j�NIL
NIL
()
|optimize-ZEROP| :D8
(IL:L (2 IL:$$CTX 1 IL:$$ENV 0 IL:$$WHOLE)) 
@

gjHhNIL
(10 =)
()
(IL:PUTPROP (QUOTE ZEROP) (QUOTE COMPILER:OPTIMIZER-LIST) (ADJOIN (QUOTE |optimize-ZEROP|) (GET (QUOTE
 ZEROP) (QUOTE COMPILER:OPTIMIZER-LIST))))
|optimize-PLUSP| :D8
(IL:L (2 IL:$$CTX 1 IL:$$ENV 0 IL:$$WHOLE)) 
@

gHoNIL
(10 >)
( 16 (0))
(IL:PUTPROP (QUOTE PLUSP) (QUOTE COMPILER:OPTIMIZER-LIST) (ADJOIN (QUOTE |optimize-PLUSP|) (GET (QUOTE
 PLUSP) (QUOTE COMPILER:OPTIMIZER-LIST))))
MINUSP :D8
(IL:L (0 NUMBER)) 
j@�NIL
NIL
()
|optimize-MINUSP| :D8
(IL:L (2 IL:$$CTX 1 IL:$$ENV 0 IL:$$WHOLE)) 
@

gHoNIL
(10 <)
( 16 (0))
(IL:PUTPROP (QUOTE MINUSP) (QUOTE COMPILER:OPTIMIZER-LIST) (ADJOIN (QUOTE |optimize-MINUSP|) (GET (
QUOTE MINUSP) (QUOTE COMPILER:OPTIMIZER-LIST))))
EVENP :D8
(IL:L (1 MODULUS 0 INTEGER)) A�@k�j�j@A
�(15 MOD)
NIL
()
ODDP :D8
(IL:L (1 MODULUS 0 INTEGER)) A�@k�k�j@A
�h�(15 MOD)
NIL
()
|optimize-EVENP| :D8
(IL:L (2 IL:$$CTX 1 IL:$$ENV 0 IL:$$WHOLE)) 0@!H
�HZ�J�ggIoogNIL
(45 COMPILER:PASS 24 LOGAND 19 EQ)
( 37 (0) 30 (1))
(IL:PUTPROP (QUOTE EVENP) (QUOTE COMPILER:OPTIMIZER-LIST) (ADJOIN (QUOTE |optimize-EVENP|) (GET (QUOTE
 EVENP) (QUOTE COMPILER:OPTIMIZER-LIST))))
|optimize-ODDP| :D8
(IL:L (2 IL:$$CTX 1 IL:$$ENV 0 IL:$$WHOLE)) 0@!H
�HZ�J�ggIoogNIL
(45 COMPILER:PASS 24 LOGAND 19 EQ)
( 37 (1) 30 (1))
(IL:PUTPROP (QUOTE ODDP) (QUOTE COMPILER:OPTIMIZER-LIST) (ADJOIN (QUOTE |optimize-ODDP|) (GET (QUOTE 
ODDP) (QUOTE COMPILER:OPTIMIZER-LIST))))
%= :D8
(IL:NAME = IL:L (1 Y 0 X)) 
i@1Hd3 �Q�AYd3 ��@A�j���@A
Id��h��@A�����
jA��A	��>AZ[d3 ��i����K���J���@A������jA��Hd��k�Ad3 ��d��,�@�A�:����@�A�:d���@A
����^@A���_jA����NAd��(�@�A���0@�A��3���A@���j@��@	(358 %NOT-NUMBER-ERROR 236 IL:FEQP 87 %NOT-NUMBER-ERROR 36 IL:FEQP)
(348 COMPLEX 336 COMPLEX 319 COMPLEX 311 COMPLEX 300 COMPLEX 292 COMPLEX 283 COMPLEX 274 COMPLEX 265 COMPLEX 253 COMPLEX 242 COMPLEX 227 IL:FLOATP 217 RATIO 209 RATIO 194 RATIO 186 RATIO 177 RATIO 162 RATIO 151 COMPLEX 135 COMPLEX 126 COMPLEX 118 RATIO 110 IL:FLOATP 93 IL:FLOATP 77 COMPLEX 61 COMPLEX 52 COMPLEX 44 RATIO 28 IL:FLOATP)
()
|expand-%/=| :D8
(IL:L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM)) !@!H
�H
�ggIJhhNIL
(21 %= 16 NOT)
()
(IL:SETF-MACRO-FUNCTION (QUOTE %/=) (QUOTE |expand-%/=|))
%> :D8
(IL:NAME > IL:L (1 Y 0 X)) �@1Hd3 �;�AYd3 ��@A���@A�I��A�@�A��A	��.AZd3 ��i����J���A�@�A��H��eA[d3 ��@�@�A����@�@�A��K���@�A��A�@���@	(230 %NOT-NONCOMPLEX-NUMBER-ERROR 65 %NOT-NONCOMPLEX-NUMBER-ERROR)
(219 RATIO 211 RATIO 202 RATIO 194 RATIO 186 RATIO 174 RATIO 166 RATIO 158 IL:FLOATP 147 RATIO 139 RATIO 123 RATIO 113 RATIO 103 RATIO 95 RATIO 87 IL:FLOATP 71 IL:FLOATP 55 RATIO 45 RATIO 37 RATIO 26 IL:FLOATP)
()
%< :D8
(IL:L (1 Y 0 X)) A@�NIL
NIL
()
|expand-%>=| :D8
(IL:L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM)) !@!H
�H
�ggIJhhNIL
(21 %< 16 NOT)
()
(IL:SETF-MACRO-FUNCTION (QUOTE %>=) (QUOTE |expand-%>=|))
|expand-%<=| :D8
(IL:L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM)) !@!H
�H
�ggIJhhNIL
(21 %> 16 NOT)
()
(IL:SETF-MACRO-FUNCTION (QUOTE %<=) (QUOTE |expand-%<=|))
(IL:PUTPROPS %= IL:DOPVAL (2 =))
(IL:PUTPROPS %> IL:DOPVAL (2 IL:GREATERP))
(IL:PUTPROPS %< IL:DOPVAL (2 IL:SWAP IL:GREATERP))
(IL:PUTPROPS %> IL:DMACRO (= . IL:GREATERP))
(IL:PUTPROPS %< IL:DMACRO (= . IL:LESSP))
(IL:PUTPROPS %>= IL:DMACRO (= . IL:GEQ))
(IL:PUTPROPS %<= IL:DMACRO (= . IL:LEQ))
(IL:MOVD (QUOTE %=) (QUOTE IL:%=))
(IL:MOVD (QUOTE %>) (QUOTE IL:GREATERP))
(IL:MOVD (QUOTE %<) (QUOTE IL:LESSP))
= :D8
(IL:L (0 ARGS)) 9e
kH�o	�kalId3�	�JH�iIJa��hJk�Z��(35 %NOT-NUMBER-ERROR 17 ERROR)
NIL
( 12 "= requires at least one argument")
/= :D8
(IL:L (0 ARGS)) <e
kH�o	�k!IdH�ia�Ik�[H�i�JKa��h�hK��Ik�Y��(17 ERROR)
NIL
( 12 "/= requires at least one argument")
< :D8
(IL:L (0 ARGS)) Be
kH�o	�kalId3���I	�JH�iJadI�h�Jk�Z��(42 %NOT-NUMBER-ERROR 17 ERROR)
(35 COMPLEX)
( 12 "< requires at least one argument")
> :D8
(IL:L (0 ARGS)) De
kH�o	�kalId3���I	�JH�iJa�IK�hK�Jk�Z��(42 %NOT-NUMBER-ERROR 17 ERROR)
(35 COMPLEX)
( 12 "> requires at least one argument")
<= :D8
(IL:L (0 ARGS)) De
kH�o	�kalId3���I	�JH�iJa�IK�hK�Jk�Z��(42 %NOT-NUMBER-ERROR 17 ERROR)
(35 COMPLEX)
( 12 "<= requires at least one argument")
>= :D8
(IL:L (0 ARGS)) Be
kH�o	�kalId3���I	�JH�iJadI�h�Jk�Z��(42 %NOT-NUMBER-ERROR 17 ERROR)
(35 COMPLEX)
( 12 ">= requires at least one argument")
%COMPARISON-OPTIMIZER :D8
(IL:L (3 THIRD-NUMBER 2 SECOND-NUMBER 1 FIRST-NUMBER 0 PREDICATE)) CB�gC�@ABhgog@o@gChhhABhNIL
(45 SI::%$$COMPARISON-MIDDLE-NUMBER 32 AND 22 IL:OPENLAMBDA 6 COMPILER:PASS)
( 38 (SI::%$$COMPARISON-FIRST-NUMBER SI::%$$COMPARISON-MIDDLE-NUMBER) 27 (SI::%$$COMPARISON-FIRST-NUMBER SI::%$$COMPARISON-MIDDLE-NUMBER))
|optimize-=| :D8
(IL:L (2 IL:$$CTX 1 IL:$$ENV 0 IL:$$WHOLE)) �
@�	H
�HZd�
�Jh�h�J�L�gM�gIKhKM]gogh__�M^�OhIh
_�O�OggOh&_��ggOhh__�N��NIL
(128 SI::%$$=FIRST-NUMBER 123 %= 106 SI::%$$=FIRST-NUMBER 101 %= 64 AND 54 IL:OPENLAMBDA 38 %= 30 COMPILER:PASS)
( 59 (SI::%$$=FIRST-NUMBER))
(IL:PUTPROP (QUOTE =) (QUOTE COMPILER:OPTIMIZER-LIST) (ADJOIN (QUOTE |optimize-=|) (GET (QUOTE =) (
QUOTE COMPILER:OPTIMIZER-LIST))))
|optimize-/=| :D8
(IL:L (2 IL:$$CTX 1 IL:$$ENV 0 IL:$$WHOLE)) 0@QH
�HZd�
�Jh�h�J�L�gM��gIKhNIL
(39 %/= 30 COMPILER:PASS)
()
(IL:PUTPROP (QUOTE /=) (QUOTE COMPILER:OPTIMIZER-LIST) (ADJOIN (QUOTE |optimize-/=|) (GET (QUOTE /=) (
QUOTE COMPILER:OPTIMIZER-LIST))))
|optimize-<| :D8
(IL:L (2 IL:$$CTX 1 IL:$$ENV 0 IL:$$WHOLE)) .@QH
�HZd�
�J\d�
�L�gIKMg(37 %COMPARISON-OPTIMIZER)
(43 COMPILER:PASS 29 %<)
()
(IL:PUTPROP (QUOTE <) (QUOTE COMPILER:OPTIMIZER-LIST) (ADJOIN (QUOTE |optimize-<|) (GET (QUOTE <) (
QUOTE COMPILER:OPTIMIZER-LIST))))
|optimize->| :D8
(IL:L (2 IL:$$CTX 1 IL:$$ENV 0 IL:$$WHOLE)) .@QH
�HZd�
�J\d�
�L�gIKMg(37 %COMPARISON-OPTIMIZER)
(43 COMPILER:PASS 29 %>)
()
(IL:PUTPROP (QUOTE >) (QUOTE COMPILER:OPTIMIZER-LIST) (ADJOIN (QUOTE |optimize->|) (GET (QUOTE >) (
QUOTE COMPILER:OPTIMIZER-LIST))))
|optimize-<=| :D8
(IL:L (2 IL:$$CTX 1 IL:$$ENV 0 IL:$$WHOLE)) .@QH
�HZd�
�J\d�
�L�gIKMg(37 %COMPARISON-OPTIMIZER)
(43 COMPILER:PASS 29 %<=)
()
(IL:PUTPROP (QUOTE <=) (QUOTE COMPILER:OPTIMIZER-LIST) (ADJOIN (QUOTE |optimize-<=|) (GET (QUOTE <=) (
QUOTE COMPILER:OPTIMIZER-LIST))))
|optimize->=| :D8
(IL:L (2 IL:$$CTX 1 IL:$$ENV 0 IL:$$WHOLE)) .@QH
�HZd�
�J\d�
�L�gIKMg(37 %COMPARISON-OPTIMIZER)
(43 COMPILER:PASS 29 %>=)
()
(IL:PUTPROP (QUOTE >=) (QUOTE COMPILER:OPTIMIZER-LIST) (ADJOIN (QUOTE |optimize->=|) (GET (QUOTE >=) (
QUOTE COMPILER:OPTIMIZER-LIST))))
|optimize-MIN| :D8
(IL:L (2 IL:$$CTX 1 IL:$$ENV 0 IL:$$WHOLE)) 7@QHd�
�Hh�h�H[d�
�Kh�h�K�J�M�oILhgNIL
(52 COMPILER:PASS)
( 40 (IL:OPENLAMBDA (SI::%$$MIN-X SI::%$$MIN-Y) (IF (< SI::%$$MIN-X SI::%$$MIN-Y) SI::%$$MIN-X SI::%$$MIN-Y)))
(IL:PUTPROP (QUOTE MIN) (QUOTE COMPILER:OPTIMIZER-LIST) (ADJOIN (QUOTE |optimize-MIN|) (GET (QUOTE MIN
) (QUOTE COMPILER:OPTIMIZER-LIST))))
|optimize-MAX| :D8
(IL:L (2 IL:$$CTX 1 IL:$$ENV 0 IL:$$WHOLE)) 7@QHd�
�Hh�h�H[d�
�Kh�h�K�J�M�oILhgNIL
(52 COMPILER:PASS)
( 40 (IL:OPENLAMBDA (SI::%$$MAX-X SI::%$$MAX-Y) (IF (> SI::%$$MAX-X SI::%$$MAX-Y) SI::%$$MAX-X SI::%$$MAX-Y)))
(IL:PUTPROP (QUOTE MAX) (QUOTE COMPILER:OPTIMIZER-LIST) (ADJOIN (QUOTE |optimize-MAX|) (GET (QUOTE MAX
) (QUOTE COMPILER:OPTIMIZER-LIST))))
%+ :D8
(IL:NAME + IL:L (1 Y 0 X)) 
�@AHd3 �J�AYd3 ��@A���@A�Id���@kA�A�����A	��SAZd3 ��i����Jd���@A�A������@oA�A�Hd�����A[d3 ��@�@�Ak��@�@��A�Kd��)�@�@�A�A�����$@jA�A�����A\d3 ��i���@�@�AjLd���@�@�Ao�����@�@�A�A�@	(461 %NOT-NUMBER-ERROR 454 %COMPLEX-+ 407 %COMPLEX-+ 369 %COMPLEX-+ 320 %COMPLEX-+ 287 %RATIO-PLUS 212 %RATIO-PLUS 168 %COMPLEX-+ 80 %NOT-NUMBER-ERROR 64 %RATIO-PLUS)
(447 COMPLEX 439 COMPLEX 431 COMPLEX 423 COMPLEX 413 COMPLEX 394 COMPLEX 386 COMPLEX 377 IL:FLOATP 360 COMPLEX 352 COMPLEX 344 RATIO 326 COMPLEX 313 COMPLEX 305 COMPLEX 293 COMPLEX 280 RATIO 272 RATIO 264 RATIO 256 RATIO 247 RATIO 234 RATIO 226 RATIO 218 IL:FLOATP 203 RATIO 195 RATIO 176 RATIO 161 COMPLEX 153 COMPLEX 139 COMPLEX 129 RATIO 121 RATIO 111 RATIO 102 IL:FLOATP 86 IL:FLOATP 70 COMPLEX 57 RATIO 49 RATIO 38 RATIO 26 IL:FLOATP)
( 402 0.0 147 0.0)
%- :D8
(IL:NAME - IL:L (1 Y 0 X)) 
�@AHd3 �L�AYd3 ��@A���@A�Id���@kjA��A�����A	��SAZd3 ��i����Jd���@A�A������@oA�A�Hd�����A[d3 ��@�@�jA�k��@�@��A�Kd��+�@�@�jA��A����� @jA�A�����A\d3 ��i���@�@�AjLd���@�@�Ao�����@�@�A�A�@	(467 %NOT-NUMBER-ERROR 460 %COMPLEX-- 413 %COMPLEX-- 375 %COMPLEX-- 326 %COMPLEX-- 293 %RATIO-PLUS 216 %RATIO-PLUS 170 %COMPLEX-- 82 %NOT-NUMBER-ERROR 66 %RATIO-PLUS)
(453 COMPLEX 445 COMPLEX 437 COMPLEX 429 COMPLEX 419 COMPLEX 400 COMPLEX 392 COMPLEX 383 IL:FLOATP 366 COMPLEX 358 COMPLEX 350 RATIO 332 COMPLEX 319 COMPLEX 311 COMPLEX 299 COMPLEX 286 RATIO 277 RATIO 268 RATIO 260 RATIO 251 RATIO 238 RATIO 230 RATIO 222 IL:FLOATP 205 RATIO 197 RATIO 178 RATIO 163 COMPLEX 155 COMPLEX 141 COMPLEX 131 RATIO 123 RATIO 113 RATIO 104 IL:FLOATP 88 IL:FLOATP 72 COMPLEX 59 RATIO 50 RATIO 38 RATIO 26 IL:FLOATP)
( 408 0.0 149 0.0)
%* :D8
(IL:NAME * IL:L (1 Y 0 X)) 
�@AHd3 �J�AYd3 ��@A���@A�Id���@kA�A�����A	��SAZd3 ��i����Jd���@A�A������@oA�A�Hd�����A[d3 ��@�@�Ak��@�@��A�Kd��)�@�@�A�A�����$@jA�A�����A\d3 ��i���@�@�AjLd���@�@�Ao�����@�@�A�A�@	(461 %NOT-NUMBER-ERROR 454 %COMPLEX-* 407 %COMPLEX-* 369 %COMPLEX-* 320 %COMPLEX-* 287 %RATIO-TIMES 212 %RATIO-TIMES 168 %COMPLEX-* 80 %NOT-NUMBER-ERROR 64 %RATIO-TIMES)
(447 COMPLEX 439 COMPLEX 431 COMPLEX 423 COMPLEX 413 COMPLEX 394 COMPLEX 386 COMPLEX 377 IL:FLOATP 360 COMPLEX 352 COMPLEX 344 RATIO 326 COMPLEX 313 COMPLEX 305 COMPLEX 293 COMPLEX 280 RATIO 272 RATIO 264 RATIO 256 RATIO 247 RATIO 234 RATIO 226 RATIO 218 IL:FLOATP 203 RATIO 195 RATIO 176 RATIO 161 COMPLEX 153 COMPLEX 139 COMPLEX 129 RATIO 121 RATIO 111 RATIO 102 IL:FLOATP 86 IL:FLOATP 70 COMPLEX 57 RATIO 49 RATIO 38 RATIO 26 IL:FLOATP)
( 402 0.0 147 0.0)
%/ :D8
(IL:NAME / IL:L (1 Y 0 X)) @d
��A
�@dA�j�A�@AHd3 �w�AYd3 �3�@d`�d`��A`�A`�@A�@A
��@A�Id���@kA�A�����A	��SAZd3 ��i����Jd���A�@�A�����@oA�A�Hd�����A[d3 ��@�@�kA��@�@�A��Kd��)�@�@�A�A�����$@jA�A�����A\d3 ��i���@�@�AjLd���@�@�Ao�����@�@�A�A�@	(526 %NOT-NUMBER-ERROR 519 %COMPLEX-/ 472 %COMPLEX-/ 434 %COMPLEX-/ 385 %COMPLEX-/ 352 %RATIO-TIMES 277 %RATIO-TIMES 233 %COMPLEX-/ 145 %NOT-NUMBER-ERROR 129 %RATIO-TIMES 85 %BUILD-RATIO)
(512 COMPLEX 504 COMPLEX 496 COMPLEX 488 COMPLEX 478 COMPLEX 459 COMPLEX 451 COMPLEX 442 IL:FLOATP 425 COMPLEX 417 COMPLEX 409 RATIO 391 COMPLEX 378 COMPLEX 370 COMPLEX 358 COMPLEX 345 RATIO 337 RATIO 329 RATIO 321 RATIO 312 RATIO 299 RATIO 291 RATIO 283 IL:FLOATP 268 RATIO 260 RATIO 241 RATIO 226 COMPLEX 218 COMPLEX 204 COMPLEX 195 RATIO 185 RATIO 176 RATIO 167 IL:FLOATP 151 IL:FLOATP 135 COMPLEX 122 RATIO 114 RATIO 103 RATIO 91 IL:FLOATP 72 IL:MAX.INTEGER 64 IL:MIN.INTEGER 54 IL:MAX.INTEGER 45 IL:MIN.INTEGER)
( 467 0.0 212 0.0)
(IL:PUTPROPS %+ IL:DOPVAL (2 IL:PLUS2))
(IL:PUTPROPS %- IL:DOPVAL (2 IL:DIFFERENCE))
(IL:PUTPROPS %* IL:DOPVAL (2 IL:TIMES2))
(IL:PUTPROPS %+ IL:DMACRO (= . IL:PLUS))
(IL:PUTPROPS %- IL:DMACRO (= . IL:DIFFERENCE))
(IL:PUTPROPS %* IL:DMACRO (= . IL:TIMES))
(IL:MOVD (QUOTE %/) (QUOTE IL:%/))
(IL:MOVD (QUOTE %+) (QUOTE IL:\\SLOWPLUS2))
(IL:MOVD (QUOTE %-) (QUOTE IL:\\SLOWDIFFERENCE))
(IL:MOVD (QUOTE %*) (QUOTE IL:\\SLOWTIMES2))
+ :D8
(IL:L (0 ARGS)) .e
Hj�jkalId3�	�JH�IIJaԹJk�Z��(26 %NOT-NUMBER-ERROR)
NIL
()
- :D8
(IL:L (0 ARGS)) 6e
Hdj�o	k�jka�kalJH�IIJaչJk�Z��(19 ERROR)
NIL
( 14 "- requires at least one argument")
* :D8
(IL:L (0 ARGS)) .e
Hj�kkalId3�	�JH�IIJaֹJk�Z��(26 %NOT-NUMBER-ERROR)
NIL
()
/ :D8
(IL:L (0 ARGS)) =e
Hdj�o	k�ka	kalJH�IIJa
�Jk�Z��(52 %/ 30 %RECIPROCOL 19 ERROR)
NIL
( 14 "/ requires at least one argument")
1+ :D8
(IL:L (0 NUMBER)) 
@k�NIL
NIL
()
1- :D8
(IL:L (0 NUMBER)) 
@k�NIL
NIL
()
%RECIPROCOL :D8
(IL:L (0 NUMBER)) 
@�o@�k@
(18 %/)
NIL
( 8 1.0)
|optimize-+| :D8
(IL:L (2 IL:$$CTX 1 IL:$$ENV 0 IL:$$WHOLE)) %@1H�j
�HZ�I
�gIKh�J��NIL
(25 %+)
()
(IL:PUTPROP (QUOTE +) (QUOTE COMPILER:OPTIMIZER-LIST) (ADJOIN (QUOTE |optimize-+|) (GET (QUOTE +) (
QUOTE COMPILER:OPTIMIZER-LIST))))
|optimize--| :D8
(IL:L (2 IL:$$CTX 1 IL:$$ENV 0 IL:$$WHOLE)) 3@QH
�HZ�gjIhI�J\�K
�gKMh�L��NIL
(38 %- 16 %-)
()
(IL:PUTPROP (QUOTE -) (QUOTE COMPILER:OPTIMIZER-LIST) (ADJOIN (QUOTE |optimize--|) (GET (QUOTE -) (
QUOTE COMPILER:OPTIMIZER-LIST))))
|optimize-*| :D8
(IL:L (2 IL:$$CTX 1 IL:$$ENV 0 IL:$$WHOLE)) %@1H�k
�HZ�I
�gIKh�J��NIL
(25 %*)
()
(IL:PUTPROP (QUOTE *) (QUOTE COMPILER:OPTIMIZER-LIST) (ADJOIN (QUOTE |optimize-*|) (GET (QUOTE *) (
QUOTE COMPILER:OPTIMIZER-LIST))))
|optimize-/| :D8
(IL:L (2 IL:$$CTX 1 IL:$$ENV 0 IL:$$WHOLE)) 1@QH
�HZ�gIhI�J\�K
�gKMh�L��NIL
(36 %/ 16 %RECIPROCOL)
()
(IL:PUTPROP (QUOTE /) (QUOTE COMPILER:OPTIMIZER-LIST) (ADJOIN (QUOTE |optimize-/|) (GET (QUOTE /) (
QUOTE COMPILER:OPTIMIZER-LIST))))
|optimize-1+| :D8
(IL:L (2 IL:$$CTX 1 IL:$$ENV 0 IL:$$WHOLE)) 
@

gHoNIL
(10 +)
( 16 (1))
(IL:PUTPROP (QUOTE 1+) (QUOTE COMPILER:OPTIMIZER-LIST) (ADJOIN (QUOTE |optimize-1+|) (GET (QUOTE 1+) (
QUOTE COMPILER:OPTIMIZER-LIST))))
|optimize-1-| :D8
(IL:L (2 IL:$$CTX 1 IL:$$ENV 0 IL:$$WHOLE)) 
@

gHoNIL
(10 -)
( 16 (1))
(IL:PUTPROP (QUOTE 1-) (QUOTE COMPILER:OPTIMIZER-LIST) (ADJOIN (QUOTE |optimize-1-|) (GET (QUOTE 1-) (
QUOTE COMPILER:OPTIMIZER-LIST))))
(IL:PUTPROPS + IL:DMACRO (IL:ARGS (IL:|if| (IL:GREATERP (IL:LENGTH IL:ARGS) 1) IL:|then| (IL:BQUOTE (
IL:PLUS (IL:\\\,@ IL:ARGS))) IL:|else| (QUOTE IL:IGNOREMACRO))))
(IL:PUTPROPS * IL:DMACRO (IL:ARGS (IL:|if| (IL:GREATERP (IL:LENGTH IL:ARGS) 1) IL:|then| (IL:BQUOTE (
IL:TIMES (IL:\\\,@ IL:ARGS))) IL:|else| (QUOTE IL:IGNOREMACRO))))
(IL:MOVD (QUOTE +) (QUOTE IL:PLUS))
(IL:MOVD (QUOTE *) (QUOTE IL:TIMES))
%GCD :D8
(IL:L (1 Y 0 X)) �j@�j@Հ@bjA�jAՀAb@j�Adj�@k�@k�kj
@k�k�Ak�k�H
@dk�k��jAհ@m��b�Am��b�HkԸ��m��Ydj�@H�k�k�Im��Y��Ij�Ib�jI�b�@Aհ�NIL
NIL
()
%LCM :D8
(IL:L (1 Y 0 X)) E
@k�AAk�@@j�Aj�jj@�j@Հ@bjA�jAՀAb@A

Hk�@A�@H�A�(50 %GCD)
NIL
()
GCD :D8
(IL:L (0 ARGS)) Fe
Hdj�jk�ka

jI�jI�Ikala
lJH�Idk�IJa
�Jk�Z��(61 %GCD 38 %GCD)
NIL
()
LCM :D8
(IL:L (0 ARGS)) Fe
Hdj�kk�ka

jI�jI�Ikala
lJH�Idj�IJa
�Jk�Z��(61 %LCM 38 %LCM)
NIL
()
IL:|optimize-MINUS| :D8
(IL:L (2 IL:$$CTX 1 IL:$$ENV 0 IL:$$WHOLE)) 
@

gjHhNIL
(10 -)
()
(IL:PUTPROP (QUOTE IL:MINUS) (QUOTE COMPILER:OPTIMIZER-LIST) (ADJOIN (QUOTE IL:|optimize-MINUS|) (GET 
(QUOTE IL:MINUS) (QUOTE COMPILER:OPTIMIZER-LIST))))
IL:|optimize-PLUS| :D8
(IL:L (2 IL:$$CTX 1 IL:$$ENV 0 IL:$$WHOLE)) %@1H�j
�HZ�I
�gIKh�J��NIL
(25 IL:PLUS2)
()
(IL:PUTPROP (QUOTE IL:PLUS) (QUOTE COMPILER:OPTIMIZER-LIST) (ADJOIN (QUOTE IL:|optimize-PLUS|) (GET (
QUOTE IL:PLUS) (QUOTE COMPILER:OPTIMIZER-LIST))))
IL:|optimize-IPLUS| :D8
(IL:L (2 IL:$$CTX 1 IL:$$ENV 0 IL:$$WHOLE)) 7@1H�j
�H�HZ�I
�gIKh�J��gIoNIL
(44 IL:IPLUS2 29 IL:IPLUS2)
( 50 (0))
(IL:PUTPROP (QUOTE IL:IPLUS) (QUOTE COMPILER:OPTIMIZER-LIST) (ADJOIN (QUOTE IL:|optimize-IPLUS|) (GET 
(QUOTE IL:IPLUS) (QUOTE COMPILER:OPTIMIZER-LIST))))
IL:|optimize-FPLUS| :D8
(IL:L (2 IL:$$CTX 1 IL:$$ENV 0 IL:$$WHOLE)) %@1H�j
�HZ�I
�gIKh�J��NIL
(25 IL:FPLUS2)
()
(IL:PUTPROP (QUOTE IL:FPLUS) (QUOTE COMPILER:OPTIMIZER-LIST) (ADJOIN (QUOTE IL:|optimize-FPLUS|) (GET 
(QUOTE IL:FPLUS) (QUOTE COMPILER:OPTIMIZER-LIST))))
IL:|optimize-TIMES| :D8
(IL:L (2 IL:$$CTX 1 IL:$$ENV 0 IL:$$WHOLE)) %@1H�j
�HZ�I
�gIKh�J��NIL
(25 IL:TIMES2)
()
(IL:PUTPROP (QUOTE IL:TIMES) (QUOTE COMPILER:OPTIMIZER-LIST) (ADJOIN (QUOTE IL:|optimize-TIMES|) (GET 
(QUOTE IL:TIMES) (QUOTE COMPILER:OPTIMIZER-LIST))))
IL:|optimize-ITIMES| :D8
(IL:L (2 IL:$$CTX 1 IL:$$ENV 0 IL:$$WHOLE)) %@1H�j
�HZ�I
�gIKh�J��NIL
(25 IL:ITIMES2)
()
(IL:PUTPROP (QUOTE IL:ITIMES) (QUOTE COMPILER:OPTIMIZER-LIST) (ADJOIN (QUOTE IL:|optimize-ITIMES|) (
GET (QUOTE IL:ITIMES) (QUOTE COMPILER:OPTIMIZER-LIST))))
IL:|optimize-FTIMES| :D8
(IL:L (2 IL:$$CTX 1 IL:$$ENV 0 IL:$$WHOLE)) )@1H�o
�HZ�I
�gIKh�J��NIL
(29 IL:FTIMES2)
( 12 1.0)
(IL:PUTPROP (QUOTE IL:FTIMES) (QUOTE COMPILER:OPTIMIZER-LIST) (ADJOIN (QUOTE IL:|optimize-FTIMES|) (
GET (QUOTE IL:FTIMES) (QUOTE COMPILER:OPTIMIZER-LIST))))
IL:|optimize-RSH| :D8
(IL:L (2 IL:$$CTX 1 IL:$$ENV 0 IL:$$WHOLE)) !@!H
�H
�gIgJhhNIL
(22 IL:IMINUS 16 IL:LSH)
()
(IL:PUTPROP (QUOTE IL:RSH) (QUOTE COMPILER:OPTIMIZER-LIST) (ADJOIN (QUOTE IL:|optimize-RSH|) (GET (
QUOTE IL:RSH) (QUOTE COMPILER:OPTIMIZER-LIST))))
(IL:PUTPROPS IL:PLUS2 IL:DOPVAL (2 IL:PLUS2))
(IL:PUTPROPS IL:IPLUS2 IL:DOPVAL (2 IL:IPLUS2))
(IL:PUTPROPS IL:FPLUS2 IL:DOPVAL (2 IL:FPLUS2))
(IL:PUTPROPS IL:TIMES2 IL:DOPVAL (2 IL:TIMES2))
(IL:PUTPROPS IL:ITIMES2 IL:DOPVAL (2 IL:ITIMES2))
(IL:PUTPROPS IL:FTIMES2 IL:DOPVAL (2 IL:FTIMES2))
ISQRT :D8
(IL:L (0 INTEGER)) r
@3 �j@�.ggog@g@go
	�@	1kHk�m���YdHk�k�m��j�ԺIJ�m��Jk�I�IKdd�@��KY��(58 INTEGER-LENGTH 51 ERROR)
(40 :MESSAGE 34 :VALUE 28 :NAME 18 :EXPECTED-TYPE 13 XCL:TYPE-MISMATCH)
( 45 "a nonnegative integer" 23 (INTEGER 0))
ABS :D8
(IL:L (0 NUMBER)) o

@
Hd3 ��j@�j@�@��o@��o@�Hd��'�j@���j@��@�
��@	@	(108 %NOT-NUMBER-ERROR 101 %COMPLEX-ABS 88 %MAKE-RATIO)
(94 COMPLEX 81 RATIO 72 RATIO 60 RATIO 50 RATIO 24 IL:FLOATP)
( 40 0.0 31 0.0)
|expand-%ABS| :D8
(IL:L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM)) 
@

oHhNIL
NIL
( 10 (IL:OPENLAMBDA (X) (IF (< X 0) (- 0 X) X)))
(IL:SETF-MACRO-FUNCTION (QUOTE %ABS) (QUOTE |expand-%ABS|))
SIGNUM :D8
(IL:L (0 NUMBER)) T
j@��@@
HY��I3 �@j�km�Hd���@j�oo��@d	
@	(81 %NOT-NUMBER-ERROR 74 %/ 69 ABS)
(61 COMPLEX 37 IL:FLOATP 16 RATIO)
( 55 -1.0 49 1.0)
|expand-%SIGNUM| :D8
(IL:L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM)) 
@

oHhNIL
NIL
( 10 (IL:OPENLAMBDA (X) (COND ((EQ X 0) 0) ((PLUSP X) 1) (T -1))))
(IL:SETF-MACRO-FUNCTION (QUOTE %SIGNUM) (QUOTE |expand-%SIGNUM|))
XCL::STRUNCATE :D8
(IL:L (1 DIVISOR 0 NUMBER)) t
A�9@d���@	d���@�@��3 �@@	
Hd3 ��@A���@�
A�
��H��@A
	A	(113 %NOT-NONCOMPLEX-NUMBER-ERROR 106 XCL::STRUNCATE 101 %/ 56 %NOT-NONCOMPLEX-NUMBER-ERROR 17 IL:\\FIXP.FROM.FLOATP)
(93 RATIO 75 IL:FLOATP 41 RATIO 33 RATIO 24 RATIO 9 IL:FLOATP)
()
XCL::SFLOOR :D8
(IL:L (1 DIVISOR 0 NUMBER)) G
A�@	
H@��Hj@��Hk�@A

@A
j��Hjd@�A��Hk�A��Hk�(43 REM 33 XCL::STRUNCATE 8 XCL::STRUNCATE)
NIL
()
XCL::SCEILING :D8
(IL:L (1 DIVISOR 0 NUMBER)) B
A�@	
H@��Hj@��Hk�@A

@A
j��jd@�A�Hk�A��H(43 REM 33 XCL::STRUNCATE 8 XCL::STRUNCATE)
NIL
()
XCL::SROUND :D8
(IL:L (1 DIVISOR 0 NUMBER)) )A�@	@�A�@A�	@A
	(38 IL:FIXR 33 %/ 25 IL:FIXR 7 IL:FIXR)
NIL
()
XCL::|optimize-STRUNCATE| :D8
(IL:L (2 IL:$$CTX 1 IL:$$ENV 0 IL:$$WHOLE)) $@!H
�Hd�
Z3 �gIJhgNIL
(33 COMPILER:PASS 21 IL:IQUOTIENT)
()
(IL:PUTPROP (QUOTE XCL::STRUNCATE) (QUOTE COMPILER:OPTIMIZER-LIST) (ADJOIN (QUOTE 
XCL::|optimize-STRUNCATE|) (GET (QUOTE XCL::STRUNCATE) (QUOTE COMPILER:OPTIMIZER-LIST))))
XCL::|optimize-SROUND| :D8
(IL:L (2 IL:$$CTX 1 IL:$$ENV 0 IL:$$WHOLE)) @!H
�HZ�J�gIhgNIL
(28 COMPILER:PASS 18 IL:FIXR)
()
(IL:PUTPROP (QUOTE XCL::SROUND) (QUOTE COMPILER:OPTIMIZER-LIST) (ADJOIN (QUOTE XCL::|optimize-SROUND|)
 (GET (QUOTE XCL::SROUND) (QUOTE COMPILER:OPTIMIZER-LIST))))
TRUNCATE :D8
(IL:L (1 DIVISOR 0 NUMBER)) %A�@	�@A

A�@H�@AH�չHI$
(15 XCL::STRUNCATE 7 XCL::STRUNCATE)
NIL
()
FLOOR :D8
(IL:L (1 DIVISOR 0 NUMBER)) %A�@	�@A

A�@H�@AH�չHI$
(15 XCL::SFLOOR 7 XCL::SFLOOR)
NIL
()
CEILING :D8
(IL:L (1 DIVISOR 0 NUMBER)) %A�@	�@A

A�@H�@AH�չHI$
(15 XCL::SCEILING 7 XCL::SCEILING)
NIL
()
ROUND :D8
(IL:L (1 DIVISOR 0 NUMBER)) %A�@	�@A

A�@H�@AH�չHI$
(15 XCL::SROUND 7 IL:FIXR)
NIL
()
%INTEGER-COERCE-OPTIMIZER :D8
(IL:L (4 FLOAT-RESULT 3 CONTEXT 2 DIVISOR 1 NUMBER 0 SINGLE-VALUE-FN)) -
C�k�@ABd�h
D�gHhHgNIL
(42 COMPILER:PASS 30 FLOAT 5 COMPILER:CONTEXT)
()
|optimize-TRUNCATE| :D8
(IL:L (2 IL:$$CTX 1 IL:$$ENV 0 IL:$$WHOLE)) (@QH
�HZd�
�J\�L
�gIKM(37 %INTEGER-COERCE-OPTIMIZER)
(29 XCL::STRUNCATE)
()
(IL:PUTPROP (QUOTE TRUNCATE) (QUOTE COMPILER:OPTIMIZER-LIST) (ADJOIN (QUOTE |optimize-TRUNCATE|) (GET 
(QUOTE TRUNCATE) (QUOTE COMPILER:OPTIMIZER-LIST))))
|optimize-FLOOR| :D8
(IL:L (2 IL:$$CTX 1 IL:$$ENV 0 IL:$$WHOLE)) (@QH
�HZd�
�J\�L
�gIKM(37 %INTEGER-COERCE-OPTIMIZER)
(29 XCL::SFLOOR)
()
(IL:PUTPROP (QUOTE FLOOR) (QUOTE COMPILER:OPTIMIZER-LIST) (ADJOIN (QUOTE |optimize-FLOOR|) (GET (QUOTE
 FLOOR) (QUOTE COMPILER:OPTIMIZER-LIST))))
|optimize-CEILING| :D8
(IL:L (2 IL:$$CTX 1 IL:$$ENV 0 IL:$$WHOLE)) (@QH
�HZd�
�J\�L
�gIKM(37 %INTEGER-COERCE-OPTIMIZER)
(29 XCL::SCEILING)
()
(IL:PUTPROP (QUOTE CEILING) (QUOTE COMPILER:OPTIMIZER-LIST) (ADJOIN (QUOTE |optimize-CEILING|) (GET (
QUOTE CEILING) (QUOTE COMPILER:OPTIMIZER-LIST))))
|optimize-ROUND| :D8
(IL:L (2 IL:$$CTX 1 IL:$$ENV 0 IL:$$WHOLE)) (@QH
�HZd�
�J\�L
�gIKM(37 %INTEGER-COERCE-OPTIMIZER)
(29 XCL::SROUND)
()
(IL:PUTPROP (QUOTE ROUND) (QUOTE COMPILER:OPTIMIZER-LIST) (ADJOIN (QUOTE |optimize-ROUND|) (GET (QUOTE
 ROUND) (QUOTE COMPILER:OPTIMIZER-LIST))))
FTRUNCATE :D8
(IL:L (1 DIVISOR 0 NUMBER)) *A�@	�@A

A�@H�@AH�չHI$
(15 XCL::STRUNCATE 7 XCL::STRUNCATE)
(35 IL:FLOATP)
()
FFLOOR :D8
(IL:L (1 DIVISOR 0 NUMBER)) *A�@	�@A

A�@H�@AH�չHI$
(15 XCL::SFLOOR 7 XCL::SFLOOR)
(35 IL:FLOATP)
()
FCEILING :D8
(IL:L (1 DIVISOR 0 NUMBER)) *A�@	�@A

A�@H�@AH�չHI$
(15 XCL::SCEILING 7 XCL::SCEILING)
(35 IL:FLOATP)
()
FROUND :D8
(IL:L (1 DIVISOR 0 NUMBER)) *A�@	�@A

A�@H�@AH�չHI$
(15 XCL::SROUND 7 IL:FIXR)
(35 IL:FLOATP)
()
|optimize-FTRUNCATE| :D8
(IL:L (2 IL:$$CTX 1 IL:$$ENV 0 IL:$$WHOLE)) *@QH
�HZd�
�J\�L
�gIKMi
(39 %INTEGER-COERCE-OPTIMIZER)
(29 XCL::STRUNCATE)
()
(IL:PUTPROP (QUOTE FTRUNCATE) (QUOTE COMPILER:OPTIMIZER-LIST) (ADJOIN (QUOTE |optimize-FTRUNCATE|) (
GET (QUOTE FTRUNCATE) (QUOTE COMPILER:OPTIMIZER-LIST))))
|optimize-FFLOOR| :D8
(IL:L (2 IL:$$CTX 1 IL:$$ENV 0 IL:$$WHOLE)) *@QH
�HZd�
�J\�L
�gIKMi
(39 %INTEGER-COERCE-OPTIMIZER)
(29 XCL::SFLOOR)
()
(IL:PUTPROP (QUOTE FFLOOR) (QUOTE COMPILER:OPTIMIZER-LIST) (ADJOIN (QUOTE |optimize-FFLOOR|) (GET (
QUOTE FFLOOR) (QUOTE COMPILER:OPTIMIZER-LIST))))
|optimize-FCEILING| :D8
(IL:L (2 IL:$$CTX 1 IL:$$ENV 0 IL:$$WHOLE)) *@QH
�HZd�
�J\�L
�gIKMi
(39 %INTEGER-COERCE-OPTIMIZER)
(29 XCL::SCEILING)
()
(IL:PUTPROP (QUOTE FCEILING) (QUOTE COMPILER:OPTIMIZER-LIST) (ADJOIN (QUOTE |optimize-FCEILING|) (GET 
(QUOTE FCEILING) (QUOTE COMPILER:OPTIMIZER-LIST))))
|optimize-FROUND| :D8
(IL:L (2 IL:$$CTX 1 IL:$$ENV 0 IL:$$WHOLE)) *@QH
�HZd�
�J\�L
�gIKMi
(39 %INTEGER-COERCE-OPTIMIZER)
(29 XCL::SROUND)
()
(IL:PUTPROP (QUOTE FROUND) (QUOTE COMPILER:OPTIMIZER-LIST) (ADJOIN (QUOTE |optimize-FROUND|) (GET (
QUOTE FROUND) (QUOTE COMPILER:OPTIMIZER-LIST))))
MOD :D8
(IL:L (1 DIVISOR 0 NUMBER)) l@�A�D@�
A�
hHdI��I���
�
Zddh�
��hI��Hh�H��J�I���
�J�@A

jH��jA�@j�j@�HA�H(82 REM)
(31 IL:FLOATP)
()
REM :D8
(IL:L (1 DIVISOR 0 NUMBER)) D@d3 ��A3 �@A�@�A�"@�
A�

HdI��I���
�
�@A@A
��(63 XCL::STRUNCATE)
(43 IL:FLOATP)
()
%LOGICAL-OPTIMIZER :D8
(IL:L (4 MORE-INTEGERS 3 SECOND-INTEGER 2 FIRST-INTEGER 1 IDENTITY 0 BINARY-LOGICAL-FN)) 1B�AC�BD�@BCh@BCh!DY�H
�@HJh�I��NIL
NIL
()
|optimize-LOGXOR| :D8
(IL:L (2 IL:$$CTX 1 IL:$$ENV 0 IL:$$WHOLE) IL:F 5 COMPILER::*NEW-COMPILER-IS-EXPANDING*) ,
@AH
�HZ
�J�U�L�gjIKL
g(35 %LOGICAL-OPTIMIZER)
(41 COMPILER:PASS 25 LOGXOR)
()
(IL:PUTPROP (QUOTE LOGXOR) (QUOTE COMPILER:OPTIMIZER-LIST) (ADJOIN (QUOTE |optimize-LOGXOR|) (GET (
QUOTE LOGXOR) (QUOTE COMPILER:OPTIMIZER-LIST))))
|optimize-LOGAND| :D8
(IL:L (2 IL:$$CTX 1 IL:$$ENV 0 IL:$$WHOLE) IL:F 5 COMPILER::*NEW-COMPILER-IS-EXPANDING*) .
@AH
�HZ
�J�U�L�gm�IKL
g(37 %LOGICAL-OPTIMIZER)
(43 COMPILER:PASS 26 LOGAND)
()
(IL:PUTPROP (QUOTE LOGAND) (QUOTE COMPILER:OPTIMIZER-LIST) (ADJOIN (QUOTE |optimize-LOGAND|) (GET (
QUOTE LOGAND) (QUOTE COMPILER:OPTIMIZER-LIST))))
%LOGIOR :D8
(IL:L (1 Y 0 X)) @A�NIL
NIL
()
|expand-%LOGEQV| :D8
(IL:L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM)) !@!H
�H
�ggIJhhNIL
(21 LOGXOR 16 LOGNOT)
()
(IL:SETF-MACRO-FUNCTION (QUOTE %LOGEQV) (QUOTE |expand-%LOGEQV|))
(IL:PUTPROPS %LOGIOR IL:DOPVAL (2 IL:LOGOR2))
(IL:PUTPROPS %LOGIOR IL:DMACRO (= . IL:LOGOR))
LOGIOR :D8
(IL:L (0 ARGS)) ;e
Hdj�jdk�kal�kala�kala�lJH�IIJa�Jk�Z��NIL
NIL
()
LOGEQV :D8
(IL:L (0 ARGS)) Ee
Hdj�m�dk�kal�kalam���kalam���lJH�IIJam���Jk�Z��NIL
NIL
()
|optimize-LOGIOR| :D8
(IL:L (2 IL:$$CTX 1 IL:$$ENV 0 IL:$$WHOLE)) !@AH
�HZ
�J�gjIKL
(30 %LOGICAL-OPTIMIZER)
(20 %LOGIOR)
()
(IL:PUTPROP (QUOTE LOGIOR) (QUOTE COMPILER:OPTIMIZER-LIST) (ADJOIN (QUOTE |optimize-LOGIOR|) (GET (
QUOTE LOGIOR) (QUOTE COMPILER:OPTIMIZER-LIST))))
|optimize-LOGEQV| :D8
(IL:L (2 IL:$$CTX 1 IL:$$ENV 0 IL:$$WHOLE)) "@AH
�HZ
�J�gm�IKL
(31 %LOGICAL-OPTIMIZER)
(20 %LOGEQV)
()
(IL:PUTPROP (QUOTE LOGEQV) (QUOTE COMPILER:OPTIMIZER-LIST) (ADJOIN (QUOTE |optimize-LOGEQV|) (GET (
QUOTE LOGEQV) (QUOTE COMPILER:OPTIMIZER-LIST))))
LOGNAND :D8
(IL:L (1 INTEGER2 0 INTEGER1)) @A�m��NIL
NIL
()
LOGNOR :D8
(IL:L (1 INTEGER2 0 INTEGER1)) @A�m��NIL
NIL
()
LOGANDC1 :D8
(IL:L (1 INTEGER2 0 INTEGER1)) @m��A�NIL
NIL
()
LOGANDC2 :D8
(IL:L (1 INTEGER2 0 INTEGER1)) @Am���NIL
NIL
()
LOGORC1 :D8
(IL:L (1 INTEGER2 0 INTEGER1)) @m��A�NIL
NIL
()
LOGORC2 :D8
(IL:L (1 INTEGER2 0 INTEGER1)) @Am���NIL
NIL
()
|optimize-LOGNAND| :D8
(IL:L (2 IL:$$CTX 1 IL:$$ENV 0 IL:$$WHOLE)) !@!H
�H
�ggIJhhNIL
(21 LOGAND 16 LOGNOT)
()
(IL:PUTPROP (QUOTE LOGNAND) (QUOTE COMPILER:OPTIMIZER-LIST) (ADJOIN (QUOTE |optimize-LOGNAND|) (GET (
QUOTE LOGNAND) (QUOTE COMPILER:OPTIMIZER-LIST))))
|optimize-LOGNOR| :D8
(IL:L (2 IL:$$CTX 1 IL:$$ENV 0 IL:$$WHOLE)) !@!H
�H
�ggIJhhNIL
(21 LOGIOR 16 LOGNOT)
()
(IL:PUTPROP (QUOTE LOGNOR) (QUOTE COMPILER:OPTIMIZER-LIST) (ADJOIN (QUOTE |optimize-LOGNOR|) (GET (
QUOTE LOGNOR) (QUOTE COMPILER:OPTIMIZER-LIST))))
|optimize-LOGANDC1| :D8
(IL:L (2 IL:$$CTX 1 IL:$$ENV 0 IL:$$WHOLE)) !@!H
�H
�ggIhJhNIL
(21 LOGNOT 16 LOGAND)
()
(IL:PUTPROP (QUOTE LOGANDC1) (QUOTE COMPILER:OPTIMIZER-LIST) (ADJOIN (QUOTE |optimize-LOGANDC1|) (GET 
(QUOTE LOGANDC1) (QUOTE COMPILER:OPTIMIZER-LIST))))
|optimize-LOGANDC2| :D8
(IL:L (2 IL:$$CTX 1 IL:$$ENV 0 IL:$$WHOLE)) !@!H
�H
�gIgJhhNIL
(22 LOGNOT 16 LOGAND)
()
(IL:PUTPROP (QUOTE LOGANDC2) (QUOTE COMPILER:OPTIMIZER-LIST) (ADJOIN (QUOTE |optimize-LOGANDC2|) (GET 
(QUOTE LOGANDC2) (QUOTE COMPILER:OPTIMIZER-LIST))))
|optimize-LOGORC1| :D8
(IL:L (2 IL:$$CTX 1 IL:$$ENV 0 IL:$$WHOLE)) !@!H
�H
�ggIhJhNIL
(21 LOGNOT 16 LOGIOR)
()
(IL:PUTPROP (QUOTE LOGORC1) (QUOTE COMPILER:OPTIMIZER-LIST) (ADJOIN (QUOTE |optimize-LOGORC1|) (GET (
QUOTE LOGORC1) (QUOTE COMPILER:OPTIMIZER-LIST))))
|optimize-LOGORC2| :D8
(IL:L (2 IL:$$CTX 1 IL:$$ENV 0 IL:$$WHOLE)) !@!H
�H
�gIgJhhNIL
(22 LOGNOT 16 LOGIOR)
()
(IL:PUTPROP (QUOTE LOGORC2) (QUOTE COMPILER:OPTIMIZER-LIST) (ADJOIN (QUOTE |optimize-LOGORC2|) (GET (
QUOTE LOGORC2) (QUOTE COMPILER:OPTIMIZER-LIST))))
(XCL::SET-CONSTANTP (QUOTE BOOLE-CLR) NIL)
(IL:SETQ BOOLE-CLR 0)
(PROCLAIM (QUOTE (SI::CONSTANT BOOLE-CLR)))
(XCL::SET-CONSTANTP (QUOTE BOOLE-SET) NIL)
(IL:SETQ BOOLE-SET 1)
(PROCLAIM (QUOTE (SI::CONSTANT BOOLE-SET)))
(XCL::SET-CONSTANTP (QUOTE BOOLE-1) NIL)
(IL:SETQ BOOLE-1 2)
(PROCLAIM (QUOTE (SI::CONSTANT BOOLE-1)))
(XCL::SET-CONSTANTP (QUOTE BOOLE-2) NIL)
(IL:SETQ BOOLE-2 3)
(PROCLAIM (QUOTE (SI::CONSTANT BOOLE-2)))
(XCL::SET-CONSTANTP (QUOTE BOOLE-C1) NIL)
(IL:SETQ BOOLE-C1 4)
(PROCLAIM (QUOTE (SI::CONSTANT BOOLE-C1)))
(XCL::SET-CONSTANTP (QUOTE BOOLE-C2) NIL)
(IL:SETQ BOOLE-C2 5)
(PROCLAIM (QUOTE (SI::CONSTANT BOOLE-C2)))
(XCL::SET-CONSTANTP (QUOTE BOOLE-AND) NIL)
(IL:SETQ BOOLE-AND 6)
(PROCLAIM (QUOTE (SI::CONSTANT BOOLE-AND)))
(XCL::SET-CONSTANTP (QUOTE BOOLE-IOR) NIL)
(IL:SETQ BOOLE-IOR 7)
(PROCLAIM (QUOTE (SI::CONSTANT BOOLE-IOR)))
(XCL::SET-CONSTANTP (QUOTE BOOLE-XOR) NIL)
(IL:SETQ BOOLE-XOR 8)
(PROCLAIM (QUOTE (SI::CONSTANT BOOLE-XOR)))
(XCL::SET-CONSTANTP (QUOTE BOOLE-EQV) NIL)
(IL:SETQ BOOLE-EQV 9)
(PROCLAIM (QUOTE (SI::CONSTANT BOOLE-EQV)))
(XCL::SET-CONSTANTP (QUOTE BOOLE-NAND) NIL)
(IL:SETQ BOOLE-NAND 10)
(PROCLAIM (QUOTE (SI::CONSTANT BOOLE-NAND)))
(XCL::SET-CONSTANTP (QUOTE BOOLE-NOR) NIL)
(IL:SETQ BOOLE-NOR 11)
(PROCLAIM (QUOTE (SI::CONSTANT BOOLE-NOR)))
(XCL::SET-CONSTANTP (QUOTE BOOLE-ANDC1) NIL)
(IL:SETQ BOOLE-ANDC1 12)
(PROCLAIM (QUOTE (SI::CONSTANT BOOLE-ANDC1)))
(XCL::SET-CONSTANTP (QUOTE BOOLE-ANDC2) NIL)
(IL:SETQ BOOLE-ANDC2 13)
(PROCLAIM (QUOTE (SI::CONSTANT BOOLE-ANDC2)))
(XCL::SET-CONSTANTP (QUOTE BOOLE-ORC1) NIL)
(IL:SETQ BOOLE-ORC1 14)
(PROCLAIM (QUOTE (SI::CONSTANT BOOLE-ORC1)))
(XCL::SET-CONSTANTP (QUOTE BOOLE-ORC2) NIL)
(IL:SETQ BOOLE-ORC2 15)
(PROCLAIM (QUOTE (SI::CONSTANT BOOLE-ORC2)))
BOOLE :D8
(IL:L (2 INTEGER2 1 INTEGER1 0 OP)) �@dj�jdk�m�l�A@dl�Bl�Am��@dl�Bm��l�AB�@dl�AB�l�AB�@dl	�ABm���l
�AB�m��@dl�AB�m��l�Am��B�@dl
�ABm���l�Am��B�@l�ABm���o@
(173 ERROR)
NIL
( 167 "Not a valid op: ~s")
LOGTEST :D8
(IL:L (1 INTEGER2 0 INTEGER1)) 	@A�j�h�NIL
NIL
()
LOGBITP :D8
(IL:L (1 INTEGER 0 INDEX)) Aj@��k�k�NIL
NIL
()
|definline-LOGBITP| :D8
(IL:L (2 IL:$$CTX 1 IL:$$ENV 0 IL:$$WHOLE)) 
@
oHNIL
NIL
( 9 (LAMBDA (INDEX INTEGER) (BLOCK LOGBITP (EQ 1 (LOGAND 1 (ASH INTEGER (- INDEX)))))))
(IL:PUTPROP (QUOTE LOGBITP) (QUOTE COMPILER:OPTIMIZER-LIST) (ADJOIN (QUOTE |definline-LOGBITP|) (GET (
QUOTE LOGBITP) (QUOTE COMPILER:OPTIMIZER-LIST))))
|optimize-LOGTEST| :D8
(IL:L (2 IL:$$CTX 1 IL:$$ENV 0 IL:$$WHOLE)) +@!H
�H
�ggjgIJhhhNIL
(27 LOGAND 21 EQ 16 NOT)
()
(IL:PUTPROP (QUOTE LOGTEST) (QUOTE COMPILER:OPTIMIZER-LIST) (ADJOIN (QUOTE |optimize-LOGTEST|) (GET (
QUOTE LOGTEST) (QUOTE COMPILER:OPTIMIZER-LIST))))
ASH :D8
(IL:L (1 COUNT 0 INTEGER)) @A�NIL
NIL
()
(IL:PUTPROPS ASH IL:DOPVAL (2 IL:LSH))
(IL:PUTPROPS ASH IL:DMACRO (= . IL:LSH))
LOGCOUNT :D8
(IL:L (0 INTEGER)) !
j@�@m��b�@��@	@	(30 %BIGNUM-LOGCOUNT 23 %LOGCOUNT)
(16 BIGNUM)
()
%LOGCOUNT :D8
(IL:L (0 POSITIVE-INTEGER)) 

j
@j�HHkԸ@dk��b��NIL
NIL
()
%BIGNUM-LOGCOUNT :D8
(IL:L (0 BIGNUM)) "
@�j"HZ�I
�IK	ԹJ��(26 %LOGCOUNT)
(5 BIGNUM)
()
INTEGER-LENGTH :D8
(IL:L (0 INTEGER)) �
j@�m�@�b�o@��n
@�=l@�l@�l@�@ll@�lll@@�l @�lll�@�lln@� n@�n@�l	l
n@�lln@@�n @�l
ln�@�lll@m��	�(165 INTEGER-LENGTH)
NIL
( 15 65536)
%LLSH8 :D8
(IL:L (0 X)) 
@�NIL
NIL
()
%LLSH1 :D8
(IL:L (0 X)) 
@�NIL
NIL
()
%LRSH8 :D8
(IL:L (0 X)) 
@�NIL
NIL
()
%LRSH1 :D8
(IL:L (0 X)) 
@�NIL
NIL
()
(IL:PUTPROPS %LLSH8 IL:DOPVAL (1 IL:LLSH8))
(IL:PUTPROPS %LLSH1 IL:DOPVAL (1 IL:LLSH1))
(IL:PUTPROPS %LRSH8 IL:DOPVAL (1 IL:LRSH8))
(IL:PUTPROPS %LRSH1 IL:DOPVAL (1 IL:LRSH1))
IL:|optimize-LLSH| :D8
(IL:L (2 IL:$$CTX 1 IL:$$ENV 0 IL:$$WHOLE) IL:F 6 COMPILER::*NEW-COMPILER-IS-EXPANDING*) ^
@QH
�H
�V�J	�J	[3 �g�jL��I�lK�gMh�Klջ��Kj�gMh�Kk�[��M(28 EVAL 20 CONSTANTP)
(79 %LLSH1 58 %LLSH8 38 COMPILER:PASS)
()
(IL:PUTPROP (QUOTE IL:LLSH) (QUOTE COMPILER:OPTIMIZER-LIST) (ADJOIN (QUOTE IL:|optimize-LLSH|) (GET (
QUOTE IL:LLSH) (QUOTE COMPILER:OPTIMIZER-LIST))))
IL:|optimize-LRSH| :D8
(IL:L (2 IL:$$CTX 1 IL:$$ENV 0 IL:$$WHOLE) IL:F 6 COMPILER::*NEW-COMPILER-IS-EXPANDING*) ^
@QH
�H
�V�J	�J	[3 �g�jL��I�lK�gMh�Klջ��Kj�gMh�Kk�[��M(28 EVAL 20 CONSTANTP)
(79 %LRSH1 58 %LRSH8 38 COMPILER:PASS)
()
(IL:PUTPROP (QUOTE IL:LRSH) (QUOTE COMPILER:OPTIMIZER-LIST) (ADJOIN (QUOTE IL:|optimize-LRSH|) (GET (
QUOTE IL:LRSH) (QUOTE COMPILER:OPTIMIZER-LIST))))
BYTE :D8
(IL:L (1 POSITION 0 SIZE)) -j@�jA�o@An
@�n
A�@l�A�@A(19 ERROR)
NIL
( 12 "Not a valid bytespec: ~s ~s")
BYTE-SIZE :D8
(IL:L (0 BYTESPEC)) 
@d
�m��
NIL
NIL
()
|definline-BYTE-SIZE| :D8
(IL:L (2 IL:$$CTX 1 IL:$$ENV 0 IL:$$WHOLE)) 
@
oHNIL
NIL
( 9 (LAMBDA (BYTESPEC) (BLOCK BYTE-SIZE (IF (TYPEP BYTESPEC (QUOTE FIXNUM)) (ASH BYTESPEC -8) (CAR BYTESPEC)))))
(IL:PUTPROP (QUOTE BYTE-SIZE) (QUOTE COMPILER:OPTIMIZER-LIST) (ADJOIN (QUOTE |definline-BYTE-SIZE|) (
GET (QUOTE BYTE-SIZE) (QUOTE COMPILER:OPTIMIZER-LIST))))
BYTE-POSITION :D8
(IL:L (0 BYTESPEC)) 
@d
�l��NIL
NIL
()
|definline-BYTE-POSITION| :D8
(IL:L (2 IL:$$CTX 1 IL:$$ENV 0 IL:$$WHOLE)) 
@
oHNIL
NIL
( 9 (LAMBDA (BYTESPEC) (BLOCK BYTE-POSITION (IF (TYPEP BYTESPEC (QUOTE FIXNUM)) (LOGAND BYTESPEC 255) (CDR BYTESPEC)))))
(IL:PUTPROP (QUOTE BYTE-POSITION) (QUOTE COMPILER:OPTIMIZER-LIST) (ADJOIN (QUOTE 
|definline-BYTE-POSITION|) (GET (QUOTE BYTE-POSITION) (QUOTE COMPILER:OPTIMIZER-LIST))))
OPTIMIZE-BYTE :D8
(IL:L (1 POSITION 0 SIZE)) C@
H
�H�jI�h�Il��h��#A
H
�H�jI�h�Il��h��@l�A�gNIL
(64 COMPILER:PASS)
()
(IL:PUTPROPS BYTE IL:DMACRO (IL:ARGS (OPTIMIZE-BYTE (CAR IL:ARGS) (CADR IL:ARGS))))
LDB :D8
(IL:L (1 INTEGER 0 BYTESPEC)) $@d
�m��
@d
�l��
AjI��kH�k��NIL
NIL
()
DPB :D8
(IL:L (2 INTEGER 1 BYTESPEC 0 NEWBYTE)) /Ad
�m��
Ad
�l��
@kH�k��I�BkH�k�I�m����NIL
NIL
()
MASK-FIELD :D8
(IL:L (1 INTEGER 0 BYTESPEC)) "@d
�m��
@d
�l��
AkH�k�I��NIL
NIL
()
DEPOSIT-FIELD :D8
(IL:L (2 INTEGER 1 BYTESPEC 0 NEWBYTE)) ,Ad
�m��
!Ad
�l���kH�k�I�@J�BJm����NIL
NIL
()
%CONSTANT-BYTESPEC-P :D8
(IL:L (0 BYTESPEC)) *
@d
�$�!@
g�@
3 �@
3 �@	(39 EVAL)
(15 BYTE)
()
|optimize-LDB| :D8
(IL:L (2 IL:$$CTX 1 IL:$$ENV 0 IL:$$WHOLE)) a@QH
�H
�I	[�gd
�m��
Kd
�l����jM��gJkL�k�hggJjM�hkL�k�h(17 %CONSTANT-BYTESPEC-P)
(77 ASH 72 LOGAND 56 LOGAND 25 COMPILER:PASS)
()
(IL:PUTPROP (QUOTE LDB) (QUOTE COMPILER:OPTIMIZER-LIST) (ADJOIN (QUOTE |optimize-LDB|) (GET (QUOTE LDB
) (QUOTE COMPILER:OPTIMIZER-LIST))))
|optimize-DPB| :D8
(IL:L (2 IL:$$CTX 1 IL:$$ENV 0 IL:$$WHOLE)) �@qH
�HZ
�J
�K	]�gd
�m��
Md
�l��_��jO��-ggIkN�k�hgLkN�k�m��hhgggIkN�k�hOhgLkN�k�O�m��hh(22 %CONSTANT-BYTESPEC-P)
(139 LOGAND 118 LOGAND 113 ASH 108 LOGIOR 85 LOGAND 70 LOGAND 65 LOGIOR 30 COMPILER:PASS)
()
(IL:PUTPROP (QUOTE DPB) (QUOTE COMPILER:OPTIMIZER-LIST) (ADJOIN (QUOTE |optimize-DPB|) (GET (QUOTE DPB
) (QUOTE COMPILER:OPTIMIZER-LIST))))
|optimize-MASK-FIELD| :D8
(IL:L (2 IL:$$CTX 1 IL:$$ENV 0 IL:$$WHOLE)) C@QH
�H
�I	[�gd
�m��
Kd
�l����gJkL�k�M�h(17 %CONSTANT-BYTESPEC-P)
(52 LOGAND 25 COMPILER:PASS)
()
(IL:PUTPROP (QUOTE MASK-FIELD) (QUOTE COMPILER:OPTIMIZER-LIST) (ADJOIN (QUOTE |optimize-MASK-FIELD|) (
GET (QUOTE MASK-FIELD) (QUOTE COMPILER:OPTIMIZER-LIST))))
|optimize-DEPOSIT-FIELD| :D8
(IL:L (2 IL:$$CTX 1 IL:$$ENV 0 IL:$$WHOLE)) h	@�H
�HZ
�J
�K	]�gd
�m��
�Md
�l��_�kN�k�O�_�ggIOhgLOm��hh(22 %CONSTANT-BYTESPEC-P)
(87 LOGAND 75 LOGAND 70 LOGIOR 30 COMPILER:PASS)
()
(IL:PUTPROP (QUOTE DEPOSIT-FIELD) (QUOTE COMPILER:OPTIMIZER-LIST) (ADJOIN (QUOTE 
|optimize-DEPOSIT-FIELD|) (GET (QUOTE DEPOSIT-FIELD) (QUOTE COMPILER:OPTIMIZER-LIST))))
LDB-TEST :D8
(IL:L (1 INTEGER 0 BYTESPEC)) 
@A
j�h�(6 LDB)
NIL
()
|optimize-LDB-TEST| :D8
(IL:L (2 IL:$$CTX 1 IL:$$ENV 0 IL:$$WHOLE)) +@!H
�H
�ggjgIJhhhNIL
(27 LDB 21 EQ 16 NOT)
()
(IL:PUTPROP (QUOTE LDB-TEST) (QUOTE COMPILER:OPTIMIZER-LIST) (ADJOIN (QUOTE |optimize-LDB-TEST|) (GET 
(QUOTE LDB-TEST) (QUOTE COMPILER:OPTIMIZER-LIST))))
(IL:PUTPROPS IL:CMLARITH IL:MAKEFILE-ENVIRONMENT (:READTABLE "XCL" :PACKAGE "LISP"))
(IL:PUTPROPS IL:CMLARITH IL:FILETYPE COMPILE-FILE)
(IL:PUTPROPS IL:CMLARITH IL:COPYRIGHT ("Venue & Xerox Corporation" 1985 1986 1987 1988 1989 1990 1992)
)
NIL