; RHQU*U*UPROGNCONDSTATUSNOFEATURENOLDMSGTERPRIMSGFILESPRINCPNPUTU*UjuQUOTE;Loading EXTEND 291   pSETQxDEFPROPU:U*UT+INTERNAL-STRING-MARKER xALPHALESSPLISPV2071EXTEND291VERSIONU*U.UPUSHFUNCTIONLAMBDAXORFILE-EXIT-FUNCTIONS      xGETSENDIU+U.wLOADLISPFASL!#!xNULL91 p''x' xU+UjUREMPROPEXTSTRFASLOAD% ')#))xEXTBAS+#+xFEATURECOMPLR*LEXPRU*U*USENDSEND-ASLEXPR-SENDLEXPR-SEND-ASY-OR-N-PYES-OR-NO-PSI:LOST-MESSAGE-HANDLERFIXNUMSI:HASH-Q-EXTENDu*U*U-/1357xSPECIALOBJECT-CLASSCLASS-CLASSVECTOR-CLASSSTRUCT-CLASSSTRUCT=INFO-CLASSSEQUENCE-CLASSSI:SKELETAL-CLASSESu+Ujw-9;=?xAND*:TRUTH -AxBOUNDP!AA xSTANDARD-OUTPUT -Cx!CC xW:]jQERROR-OUTPUT -"x!"" x#-MACRO-DATALIST -Ex!EExEX-#-MACRO-TSUBRAj]*U,xG*MACRO$I#ExCONSTANTLISTPAIREXTENDPU*U*UTYPE-OFVECTORSTRINGBITSCHARACTERMEMQSYMBOLFLONUMVECTOR-SAMSUBRFLONUM-SSMALL-FLONUMHUNKPTR-TYPEP5B "%`) `n`7B` " Za B`K` "&`)-,`)11 ``M4B `'O(Q)%z >e1,aS5B(@ &*U+GW,YzP_̝%[(Z (2H``7`0P W`) "-,xlGTARGET-FEATURES -.xW*@LOCAL!..]xBIGNUMEQ-FOR-EQUAL? " Z0$ 0B*`5A`M0K`;0UAAA!`;0B/`= "`M0B`C7D.`C @j "`M'*%)YzP:T&94J&[(Z (0H  U+#A "/,x|G+EQUALARGSU*]*USI:DEFCLASS*-2 0a1c2a1cexCLASSSI:INITIALIZE-CLASS~&;Re-defiU*U*Uning class ~S ~:[~;(previously from file ~1G~U*U*wA)~]~@  ~:[~;(in file ~2G~A)~] 4i5k6m7o8q9s:u;w<y p==xu*U*U= x:SOURCE-FILEFORMAT~&;Overwrite the existing clasW;U 0s? }?@ApBBxB xSI:DEFCLASS*-1LSUBR-0 @Z(@@(1n`]@+/ ";`cZ(``C+2-,,8 $3H( 14BB?`q g?,?C ,?,8,8I3` {13K<> ,8Ko3@ ,G,8333333@`"",<1,x=B]:U*U(COa2xSI:DEFAULT-SENDISI:DEFAULT-CALLICALLISI:STANDARD-MAP-OVER-METHODSMAP-METHODSSI:STANDARD-MAP-OVER-CLASSESUDMAP-CLASSESSI:DEFAULT-ADD-METHOD *D2 ! "D `@@" ` QH $E`  `XB ` 1" 0 $F ` `  QJ $G `XB(0 U  ",xGJMAPCRPLACXU+UjUCART..6 Jp+INTERNAL-TEMP-MARKER KxCADRPURCOPYW:]jUDELQH3I33L3g3 !M3?x?xT..8 pN KxPUTPROPDSK:LSPSRC;EXTEND 291CXRU;UjUT..9 pQ KxDSK:LSPSRC;EXTEND 291NNO{PQQ{P9xSI:INITIAL-CLASSESNUMBEROBJECTU*U*UFLOATINTEGERMACLISP-PRIMITIVESEQUENCETYPEPRANDOMARRAYSFAFILEW+U.WJOBRSTSKU&K%S%%K%*TUVWX/T- xNUMBER-CLASS -xSI:DEFCLASS*-1DSK:LSPSRC;EXTEND 291YK9xFLOAT-CLASS -ZxW+UjuDSK:LSPSRC;EXTEND 291YZKxINTEGER-CLASS -[xDSK:LSPSRC;EXTEND 291YT[KTxMACLISP-PRIMITIVE-CLASS -\xDSK:LSPSRC;EXTEND 291u:].WY\K9xLIST-CLASS -]xDSK:LSPSRC;EXTEND 291YK]KKxPAIR-CLASS -^xDSK:LSPSRC;EXTEND 291Y&^K]\&xW+UjuCONSTANT-CLASS -_xDSK:LSPSRC;EXTEND 291Y%_K9%xNULL-CLASS -`xDSK:LSPSRC;EXTEND 291Y%`K_]\%xSYMBOL-CLASSu:].W -axDSK:LSPSRC;EXTEND 291Y*aK\*xFIXNUM-CLASS -bxDSK:LSPSRC;EXTEND 291YbK[\xFLONUM-CLASS -cxW+UjuDSK:LSPSRC;EXTEND 291YUcKZ\UxRANDOM-CLASS -dxDSK:LSPSRC;EXTEND 291YVdK\VxARRAY-CLASS -exDSK:LSPSRC;EXTEND 291u:].WYeK\xSFA-CLASS -fxDSK:LSPSRC;EXTEND 291YWfK\WxFILE-CLASS -gxDSK:LSPSRC;EXTEND 291YgK\xW+UjuJOB-CLASS -hxDSK:LSPSRC;EXTEND 291YXhK\XxBIGNUM-CLASS -ixDSK:LSPSRC;EXTEND 291Y/iK[\/xHUNK-CLASSu:Uju -jxDSK:LSPSRC;EXTEND 291Y-jK\-xLIST*STRUCTRkS3SSUSRxSI:SFA-SENDIfllxT..11w+U*W pm Kxmfmml!xFBOUNDPGENTEMPAUTOLOADMACAIDno#oxU@0LISTIFYLEXPR-FUNCALL-0p ,f,8@,8gKo/,x%k@`/Ca1Iqx-0p  ,8,8oKo/}*U,xChaIqx*RSETSI:CHECK-TYPERADD-METHODSYMBOLP1CLASSP,8` "rn@4@ $s gr Bg `r B` `@,X*`G`jU*U,xGEXPRGETL~&;Warning: Function ~S U*]nUnot yet defined~% uvwxy px xwas compilU+]jUed as a SUBR~% uvwz{|px x;Discovered addU*U*Uing method ~S to class ~S.~@   ;MethU*U*wod calls will remain interpreted.~% }~  p  xp  x,8 $AaS .@4N 8an+ $C $ 0` $ (B & g-,-,`5 ` g4NP1 8an+CtGz P ga`! "-,04N 8an+$6@`+ 5,8A,8",8+,8g}K<>+ [`G+$  , ,8,8"W,8g}K<> ,$,80A,8",8,3,8g}",<>[`0BC+'Z`[`O "DK+  <GU(`HUNK32SI:PRINT-EXTEND:PRINT-SELF->CLASS-CLASS g~-, " Z0B`e `@ `g `c[ g $*g~i]+U C0YADD-METHOD:PRINT-SELF xSI:FLATSIZE-EXTENDFLATSIZE->CLASS-CLASS g~a gw.P g~i C0mFLATSIZE xPURCOPY->CLASS-CLASSWjP/+ 0C s x:VARIABLEUSERATOMS-HOOK->CLASS-CLASS2-, " Z0B 0+A `@ +B `[ P2-,1 $-,3z ݕ-, $`Q-,9;=zPhWsW[(Z (R3`H`-,1 $-,3b`*-,1 $-,a AH@-,1 $-,Z (`@-,1 $-,3a,8 @0 {*`-,1 $-,-,0@1,X-, $(-, $-,0H $ -, $1-,-,1(`0)z _< -, $ -,-,1 ` -, $-,-,1/kT,x@C`;USERATOMS-HOOK xEQUAL->OBJECT-CLASS g`M4Bk g 2B` " ` ` g0zU$,xPC g09x+INTERNAL-WITHOUT-INTERRUPTSCLASS-OFPURCOPY->OBJECT-CLASS * -, Xs g` `XKg>PXJ+hC 9xSUBST->OBJECT-CLASSW.U/+ pC(SUBST9xOUTFILESSI:NORMALIZE-STREAM#PRINT-OBJECTSPRINT->OBJECT-CLASS ,{,8,8g~,8| `!K",</,xI C (vW*BSPRINT#9xFLATSIZE-OBJECTGFLATSIZE->OBJECT-CLASS ,,8,8g,8@``",8",o%/,xI ]:T0C`}GFLATSIZE'9xSXHASHSXHASH->OBJECT-CLASS@ " Z0B` `@ ` ``[ $pa7/0j,xHC`)9xHUNKSIZE,8 ,</. p4...` `-, ; .>p` `#,xGRA>PUSERATOMS-HOOK->OBJECT-CLASS "/,xXC`+9xSI:PRINT-EXTEND-1 (!nU  & (<G7BASESI:PRINT-EXTEND-MAKNUM,8 -00-,  (@f/+5jU GPRIN1TYO} " ,8,8`! B`X ,0,8 g~d " Z0B+- `1@ +. `[ B`,8g",< ,3@,8,8A,8g",<3`o ,7,8b3,8g",<`y ,<,8 g~ *p,8g",< ,8``,8g",</,x#{1%j@ 3G("^R^W4BN7D+Nр5d+N " ZK+N `!D1 " aS5BN ` aS5BN ` " `0-,3+O `-,,x00GB,8`7@`+U@`0 .`...p-,/0 0,xLG PPRINT->OBJECT-CLASS-0 @Z(1n+a .`a  "pp` "  ,8,8gKo1K,x 0CYaqxPRINT79x:PRINT-SELF->OBJECT-CLASS g~`Mb g g~a/` ,833 003 g}`!",<,x`k@C@0g 9xEVAL->OBJECT-CLASS/+ HC W*@EVAL99xMLSPSRC;EXTEND 291_1,8Q;` "`]-,+v "/,xGrSI:MAP-OVER-METHODS$0kFIND-METHOD-,; "a=+GwW(!SI:FIND-METHOD?txLSPSRC;EXTEND 291_2,8Q;`-, A:+} "/,xGSI:WHERE-IS-METHOD-, :P; " a=+G~LLSPSRC;EXTEND 291_3,8 1-, $-,7,X-,7 ! :P-, B! ",x GNREVERSESI:OPERATIONS-LIST2-,! $Ca= !" 1+GLSPSRC;EXTEND 291_4 ![`aSD ![`-, B!+ " 3,x0C WHICH-OPERATIONS->OBJECT-CLASS-,!`E `k $#, !/+8C`W(@@]WHICH-OPERATIONS$G9xLSPSRC;EXTEND 291_52B3 " ,x$GSI:MAP-OVER-CLASSESP@CSI:HAS-SUPERIOR-,3AI%+];UnU,GSI:ACCUMULATION -&x!&&xSI:FLAT-PRINT-P -Mx!MMxSI:FLATSI:FLAT-HANDLER ,80D+% 4.$M`C0N  `C $' &` &ˀ-,P( B&O "`M0D$z<;`/.].P,x <G SI:FLAT-STREAM -(xSFA-CREATE!((QOIOxFLATSIZE->OBJECT-CLASS gd"A-, *I-, &M "' c ,1,8,8gw,83,8(,8gw,8gwADKo/+ &+%z]jP C@0()9xSI:EXPLODE-NUMBER-P -Sx!SSxASCIISI:EXPLODE-HANDLER,8A!0D`y wЀS+9@* !A B` & `-, B&7? "+>  ]0D$z<;`/,x TGgSI:EXPLODE-STREAMw*@b -+x!++QUIUxEXPLODE->OBJECT-CLASS-,S-,@!& ,F,8,8g~,8+,8I,8g}K o/ &",/+".]* W@C(EXPLODEY,9xSTANDARD-HUNKSPRIN1SI:EXTEND-HUNKSPRIN1,8D `M ,P,83,8g~,8g~D",o/` `3 g-K,xlGHUNKGFLATSIZESI:EXTEND-GFLATSIZE`M4BY C,83",o/` $. "- C`,x'];UjutGTHUNKSPRIN1/[x[].xSSTATUS_!/xUSRHUNK_0MxSI:CALLI-TRANSFERu:]nW_EaxCERRORn55o5#1ox2094 cp22x2 x2057 epw*U*U33x3 xZYMLMACPAIRPEXTMACDEFCLASS*DEFMETHOD*U*U*UFERRORERRCKCHECK-TYPECHECK-SUBSEQUENCESI:CHECK-SUBSEQUENCERSUBSEQTO-LISTTO-VECTORTO-STRINGU*UoTO-BITSREPLACEYESNOP0DESCRIBE 2 3Hg4Hn0o44oLggg#gi5k6m117o8rq9s:u;ws<y3={#{x;