; RHQU*U*UPROGNCONDSTATUSNOFEATURENOLDMSGTERPRIMSGFILESPRINCPNPUTU*UjuQUOTE;Loading EXTEND 292   pSETQxDEFPROPU:U*UT+INTERNAL-STRING-MARKER xALPHALESSPLISPV2071EXTEND292VERSIONU*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-TSUBRAjU*U,xGY82ASSOCREADTABLELISTCDRSHARPMU:U*U*MACRO$  I$E  %%KE&KE$M'O(#xCONSTANTPAIREXTENDPTYPE-OFVECTORSTRINGU*U*UBITSCHARACTERMEMQSYMBOLFLONUMVECTOR-SMSUBRFLONUM-SSMALL-FLONUMU(HUNKPTR-TYPEP5BQ`) A`n`7B` " Z B`0B&A1` ")`)-,`) ``S4BA& `*U+W,Qz >e1,aY5B)-[.G]/_zP_̝%[( Z (2H``7``) "0uju,xGTARGET-FEATURES -1xLOCAL!11cxBIGNUMPEQ-FOR-EQUAL? " Z0B-!AAA`5A`M1B&`;0[`;0B2`= P$ "`M0B`C7D1`C "`MD*-Q,_zP:T&94J&[(Z (0H+#A "u*U/,xG+EQUALARGSSI:DEFCLASS*-2W*U*U 3g4i5g4ikxCLASSSI:INITIALIZE-CLASS~&;Re-defining class ~S ~U*U*U:[~;(previously from file ~1G~A)~]~@  ~:U*]nU[~;(in file ~2G~A)~] 7o8q9s:u;w<y={>}? p@@x@ x:SOURCE-FILEFORMATU*U*w~&;Overwrite the existing class? BCDpEExu( 0E xSI:DEFCLASS*-1LSUBR-0 @Z(@1n`]@ +/ ";`cZ(+2-,00 ,8 $64BB?  !`q m?,? ,?,80,8I3` 3K@ 1<A ,8Ko3 ,G,8333333",<4KW,x@EXFOg5xU*U*PSI:DEFAULT-SENDISI:DEFAULT-CALLICALLISI:STANDARD-MAP-OVER-METHODSMAP-METHODSSI:STANDARD-MAP-OVER-CLASSESMAP-CLASSESSI:DEFAULT-ADD-METHOD  *G2 ! "G `0C ` QH $H `CXB ` 1 $I  ` ` QJ $J!@ `XB( u*U ",xGJMAPCRPLACXCART..6u:U*w Mp+INTERNAL-TEMP-MARKER NxCADRPURCOPYDELQK6L66O6m6 !P6?x?xW:U*WT..8 pQ NxPUTPROPDSK:LSPSRC;EXTEND 292CXRT..9 pu:U*UT NxDSK:LSPSRC;EXTEND 292QQRSTTS9xSI:INITIAL-CLASSESNUMBEROBJECTFLOATINTEGERMACLISP-PRIMITIVEU*U*uSEQUENCETYPEPRANDOMARRAYSFAFILEJOBUVWV&X)&QV%Q&Q-W[YZ[2W0 xNUMBER-CLASSu+Uju -xSI:DEFCLASS*-1DSK:LSPSRC;EXTEND 292\&9xFLOAT-CLASS -]xDSK:LSPSRC;EXTEND 292\]&xINTEGER-CLASSu:].W -^xDSK:LSPSRC;EXTEND 292\W^&WxMACLISP-PRIMITIVE-CLASS -_xDSK:LSPSRC;EXTEND 292\_&9xLIST-CLASS -`xW+UjuDSK:LSPSRC;EXTEND 292\&`&&xPAIR-CLASS -axDSK:LSPSRC;EXTEND 292\)a&`_)xCONSTANT-CLASS -bxDSK:LSPSRC;EXTEND 292u:].W\Qb&9QxNULL-CLASS -cxDSK:LSPSRC;EXTEND 292\Qc&b`_%xSYMBOL-CLASS -dxDSK:LSPSRC;EXTEND 292\-d&_-xW+UjuFIXNUM-CLASS -exDSK:LSPSRC;EXTEND 292\e&^_xFLONUM-CLASS -fxDSK:LSPSRC;EXTEND 292\[f&]_[xRANDOM-CLASSu:].W -gxDSK:LSPSRC;EXTEND 292\Yg&_YxARRAY-CLASS -hxDSK:LSPSRC;EXTEND 292\h&_xSFA-CLASS -ixW+UjuDSK:LSPSRC;EXTEND 292\Zi&_ZxFILE-CLASS -jxDSK:LSPSRC;EXTEND 292\j&_xJOB-CLASS -kxDSK:LSPSRC;EXTEND 292u:].W\[k&_[xBIGNUM-CLASS -lxDSK:LSPSRC;EXTEND 292\2l&^_2xHUNK-CLASS -mxDSK:LSPSRC;EXTEND 292\0m&_0xU:].uLIST*STRUCTUnV6VVXVUxSI:SFA-SENDIiooxT..11 pp Nxu*UjPpippo!xFBOUNDPGENTEMPAUTOLOADMACAIDqr#rxLISTIFYLEXPR-FUNCALL-00 s ,f,8,8gA@D]Ko/,x/Fg1Ltx-0s ,8``",8oKo/,x_*U*FhgLtx*RSETSI:CHECK-TYPERADD-METHODSYMBOLPCLASSP,8 ` "uq $v g0u Bg `u B` `@`],X*`G`,xGEXPRU*U*UGETL~&;Warning: Function ~S not yet definedW;U*U~% xyz{| px xwas compiled as a SUBR~%w:U*U xyz}~px x;Discovered adding method ~S tU*U*Uo class ~S.~@   ;Method calls will rU*]nemain interpreted.~%     px x,8bA $AaY .4N 80 an+ $F $` $ ( B & g-,-,5 ` g4N 8Tan+FwGz P ga`! "-,04N 8@"an+$6@`+ 5,8,8",8+,8g}DK<A+ [`G+$ , ,8,8"bW,8g}K<A ,$,8,8",8,3,8g}",<A[`0BF+'Z`[`O ` " :U+ TGHUNK32SI:PRINT-EXTEND:PRINT-SELF->CLASS-CLASS@ g~-, " Z @0B `e `@ `g `[ ;U g $*g~i0F0YADD-METHOD:PRINT-SELFu(  xSI:FLATSIZE-EXTENDFLATSIZE->CLASS-CLASS g~a g g~kT0iPF0mFLATSIZExPURCOPY->CLASS-CLASS/+5zT0 `F sx:VARIABLEUSERATOMS-HOOK->CLASS-CLASS-, A " Z0B +A `@  2+B `[-,1 $ @0-,6z ݕ-, $-,(@9;=zPhWsW[(Z (R3``-,2@1 $-,3b*-,1 @ $-,a @-,2@1 $-,Z (@-,1 $-,3a,8 *` -,1 $-,-,1,X-,0@ $(-, $-, $ -,2@e $4-,-,1)z _< -,  2 $ -,-,1 `-, $@`]-,-,1/,xpF`;USERATOMS-HOOKubxEQUAL->OBJECT-CLASS g`S4Bk g2B` " ``_` ` g3,xF g39x@b+INTERNAL-WITHOUT-INTERRUPTSCLASS-OFPURCOPY->OBJECT-CLASS * -,!`Xs g` `XKgXJ/T0+F #9xSUBST->OBJECT-CLASS/+ꪡ  F(SUBST%9xOUTFILESSI:NORMALIZE-STREAMPRINT-OBJECTSPRINT->OBJECT-CLASS ,{0,8,8g~,8| `'",< :u/,xL HF (vSPRINT)9xFLATSIZE-OBJECTP@aGFLATSIZE->OBJECT-CLASS ,,8,8g,8,8",KWo+/,xL `F`}GFLATSIZE-9xU@SXHASHSXHASH->OBJECT-CLASS@ " Z @0B ` `@ ` `[ $pa7/`,xxF`/9xHUNKSIZE,8,</. p4... `-, ; .>p`#0A: ,xGUSERATOMS-HOOK->OBJECT-CLASS "/ ;,xF`19xSI:PRINT-EXTEND-1 ( & (TG7U(@1BASESI:PRINT-EXTEND-MAKNUM,8 3-,  ] (@f/+GPRIN1TYO} " ,8,8`'D0 B`X ,0,8 g~ " Z0B +- `@ +. `[ B`,8g",< ,3,8,8A,8g@"",<3`o ,7,83,8g",D<`y ,<,8 g~ *p,8gAB",< ,8,8g",D]</,x#{79G("^RPB!^W4BN7D+Nр;+N " A1Z0B&+N ` " aY5BN#@a ` aY5BN ` " -,3+O `-,,xGB,8 `7@`+U .` ...p-,/h 0,xdG PPRINT->OBJECT-CLASS-0 @Z(1n+a . "p(s` " ,8,8g0`KKo1,x `FYu:@1gtxPRINT=9x:PRINT-SELF->OBJECT-CLASS g~`S g g~a5` ,8333 g}`' u",<,xpF@0g 9xEVAL->OBJECT-CLASS:u/+ xF EVAL ?9xM!aLSPSRC;EXTEND 292_1,8QA` "-,+v * "/,xGrSI:MAP-OVER-METHODSFIND-METHOD-, :uA "!aC+GwSI:FIND-METHODE"wxLSPSRC;EXTEND 292_2 a ,8QA`-,+} "/ bC,xGSI:WHERE-IS-METHOD-,A "#aC.T0+G~LLSPSRC;EXTEND 292_3,8-, $ 1-,7,X-,7 $-, B$ .T1 ",x$GNREVERSESI:OPERATIONS-LIST-,$ F $IaC $%+],GLSPSRC;EXTEND 292_4 $[`aY $[`-,1`] B$+ ",x`F WHICH-OPERATIONS->OBJECT-CLASS4-,$`K $&,:u $/+hF`WHICH-OPERATIONS'M9xLSPSRC;EXTEND 292_5*2B6 " ,x<GSI:MAP-OVER-CLASSESSI:HAS-SUPERIOR-,`kW6AO(+DGSI:ACCUMULATION -)xu;U !))xSI:FLAT-PRINT-P -Sx!SSxSI:FLATSI:FLAT-HANDLER,80DB!+% 4.$S`C0N`C $* )b ` )ˀ-, B)O "@P`K`M0D'z<;`/,x TG W+T2SI:FLAT-STREAM -+xSFA-CREATE!++WULUxFLATSIZE->OBJECT-CLASS g-, *Lb$a-, )S "* c ,1@,8,8gw,83,8+,8gw,8gwKo/+1@d_ )+ @F@0(,9xASI:EXPLODE-NUMBER-P -Yx!YYxASCIISI:EXPLODE-HANDLER,80D`yH 0 wЀY+9@- B` ) `b-, B)7? "+>0D'z<;`.u/,x lGgSI:EXPLODE-STREAM -.x!..W[L[xP@bEXPLODE->OBJECT-CLASS-,Y-,) ,F,8#,8g~,8.,8I,8g}Ko/ )%``dK,/+ ]pF(1EXPLODE_/9xSTANDARD-HUNKSPRIN1SI:EXTEND-HUNKSPRIN1,8`S1 ,P,83,8g~,8g~",o/`0`K `3 g0,xG1HUNKGFLATSIZESI:EXTEND-GFLATSIZE`S4BY ,83E0",o/` $1 "0C`@KW,x-GTHUNKSPRIN12axu:].Wac1xSSTATUSe!/xUSRHUNKe3SxSI:CALLI-TRANSFEReHgxCERRORq55r5#4rxW;Unu2094 ip55x5 x2057 kp66x6 xZU*U*UMLMACPAIRPEXTMACDEFCLASS*DEFMETHOD*FERRORERRCKCHECK-TYPECHECK-SUBSEQUENCEU*U*USI:CHECK-SUBSEQUENCERSUBSEQTO-LISTTO-VECTORTO-STRINGTO-BITSREPLACEYESNOP0W<DESCRIBE 5 6Km$Kq3r$$rOm%mm#m7o8q944s:uu;w<y={><}?3@#@x;