;"I(U*U*UPROGNCONDSTATUSNOFEATURENOLDMSGTERPRIMSGFILESPRINCPNPUTU*UjuQUOTE;Loading EXTEND 292pSETQxDEFPROPU:U*UT+INTERNAL-STRING-MARKER xALPHALESSPLISPV2071EXTEND292VERSIONU*U.UPUSHFUNCTIONLAMBDAXORFILE-EXIT-FUNCTIONS        xGETSENDIU+U.wLOADLISPFASL xNULL91px xU+UjUREMPROPEXTSTRFASLOAD   xEXTBAS xFEATURECOMPLR*LEXPRU*U*USENDSEND-ASLEXPR-SENDLEXPR-SEND-ASY-OR-N-PYES-OR-NO-PSI:LOST-MESSAGE-HANDLERFIXNUMSI:HASH-Q-EXTENDu*U*UxSPECIALOBJECT-CLASSCLASS-CLASSVECTOR-CLASSSTRUCT-CLASSSTRUCT=INFO-CLASSSEQUENCE-CLASSSI:SKELETAL-CLASSESu+UjwxAND*:TRUTH  xBOUNDP!   xSTANDARD-OUTPUT !x!!! xW:]jQERROR-OUTPUT "x!"" x#-MACRO-DATALIST "x!""xEX-#-MACRO-TSUBR  jU*U,x0#Y82ASSOCREADTABLELISTCDRSHARPMU:U*U*MACRO$  $ $"  %%" &%" $&' '(# xCONSTANTPAIREXTENDPTYPE-OFVECTORSTRINGU*U*UBITSCHARACTERMEMQSYMBOLFLONUMVECTOR-SMSUBRFLONUM-SSMALL-FLONUMU(HUNKPTR-TYPEP,85B "(+(B{ A`n+ 7B` " (B{Z B`0B&  + ")+-,+ `)4BA& `*,8*++,(z >e1,,5B)-- .#.//zP@u?LN4J[( Z (2H`+7` " /+ "0uju/,x#TARGET-FEATURES 1xLOCAL!111xBIGNUMPEQ-FOR-EQUAL?,87@ " (B{Z,80B- A +  +&1B&+1B-+0B2+ P$ "+&0B+!7D1+! "+& gD*-(,/zP:T&94J&[(Z (0H+#7 "u*U/,x(#EQUALARGSSI:DEFCLASS*-2W*U*U 33445 3445 xCLASSSI:INITIALIZE-CLASS~&;Re-defining class ~S ~U*U*U:[~;(previously from file ~1G~A)~]~@  ~:U*]nU[~;(in file ~2G~A)~]778899::;;<<==>>?? p@@x@ x:SOURCE-FILEFORMATU*U*w~&;Overwrite the existing class?ABBCCDDpEExu( 0E xSI:DEFCLASS*-1LSUBR-0,8 Z(,8Z(,8Z(,8 g~1n+.Z( +/ ",81n+1Z(+2 g~-,00 ,8,8 $6 Bg4BB7D  !+8 $6 ,@@ ,?,8,80,8I,8g~ g}[ $@,8,8g|",@ 1<A ,A,8,8I",<4BG ,G,8,8g,8g|,8g|,8g|,8g|,8g|",<4 BgKW g/,x@EXF'3EF5 xU*U*PSI:DEFAULT-SENDISI:DEFAULT-CALLICALLISI:STANDARD-MAP-OVER-METHODSMAP-METHODSSI:STANDARD-MAP-OVER-CLASSESMAP-CLASSESSI:DEFAULT-ADD-METHOD,8  *GQJ $ "G `,8XB /0C ` (GQH $H "G `,8!XB/ ` &HQF $I "H  `,8XB(/ ` *IQJ $J!@ "I `,8XB(/,X *Ju*UXJ ",xh#JMAPCRPLACXCART..6u:U*wMp+INTERNAL-TEMP-MARKERM NxCADRPURCOPYDELQK 6KLL6MKNL6MMO66L6 !OOPL6OxxW:U*WT..8PpQ NxPUTPROPDSK:LSPSRC;EXTEND 292CXRT..9Spu:U*UT NxDSK:LSPSRC;EXTEND 292QQQR@RSTQTT@RSxSI:INITIAL-CLASSESNUMBEROBJECTFLOATINTEGERMACLISP-PRIMITIVEU*U*uSEQUENCETYPEPRANDOMARRAYSFAFILEJOBUUVVUWUWV&X)&W(V(&WX(-WWW-VWYWYWZWZW[W2WW0W xNUMBER-CLASSu+Uju [xSI:DEFCLASS*-1DSK:LSPSRC;EXTEND 292\U[&U\xFLOAT-CLASS ]xDSK:LSPSRC;EXTEND 292\V]&[V]xINTEGER-CLASSu:].W ^xDSK:LSPSRC;EXTEND 292\W^&[W^xMACLISP-PRIMITIVE-CLASS _xDSK:LSPSRC;EXTEND 292\W_&W_xLIST-CLASS `xW+UjuDSK:LSPSRC;EXTEND 292\&`&&`xPAIR-CLASS axDSK:LSPSRC;EXTEND 292\)a&`_)axCONSTANT-CLASS bxDSK:LSPSRC;EXTEND 292u:].W\(b&(bxNULL-CLASS cxDSK:LSPSRC;EXTEND 292\(c&b`_cxSYMBOL-CLASS dxDSK:LSPSRC;EXTEND 292\-d&_-dxW+UjuFIXNUM-CLASS exDSK:LSPSRC;EXTEND 292\e&^_exFLONUM-CLASS fxDSK:LSPSRC;EXTEND 292\-f&]_-fxRANDOM-CLASSu:].W gxDSK:LSPSRC;EXTEND 292\Yg&_YgxARRAY-CLASS hxDSK:LSPSRC;EXTEND 292\Yh&_YhxSFA-CLASS ixW+UjuDSK:LSPSRC;EXTEND 292\Zi&_ZixFILE-CLASS jxDSK:LSPSRC;EXTEND 292\Zj&_ZjxJOB-CLASS kxDSK:LSPSRC;EXTEND 292u:].W\[k&_[kxBIGNUM-CLASS lxDSK:LSPSRC;EXTEND 292\2l&^_2lxHUNK-CLASS mxDSK:LSPSRC;EXTEND 292\0m&_0mxU:].uLIST*STRUCTUnV6VnVXVUxSI:SFA-SENDIKFiooxT..11opp Nxu*UjPpKpippoxFBOUNDPGENTEMPAUTOLOADMACAIDqqqrqrrxLISTIFYLEXPR-FUNCALL-00 ,8s,8 ,f,8,8g,8g,8A@D]",<s/,xsF`p3Lt x-0,8s,8 ,m,8,8n``",8o,8",<s/,xs_*U*Fh3Lt x*RSETSI:CHECK-TYPERADD-METHODSYMBOLPCLASSP,8,8 ,87Ht+x "uq4Bx &u $v g0u &u $v Bg `u B` `Z`],X,X*`G`/,xX# oEXPRU*U*UGETL~&;Warning: Function ~S not yet definedW;U*U~%xxyyzz{{|p||x| xwas compiled as a SUBR~%w:U*Uxxyyz}}~~px x;Discovered adding method ~S tU*U*Uo class ~S.~@   ;Method calls will rU*]nemain interpreted.~%  p  x x,8,8bA,8 $Z,5B .4N(N{ 80 an+ $F $+ $ ( Z  & g-,-, `,8XB(/,8 g4N(N{ 8Tan+Fw#z `e T gw+ ",8 g~-, gQB( g~4N(N{ 8@"an+$6@`+ ,,8,8",8+,8g}D",<A+ [`0D#+$ , ,8,8"b,8+,8g}",<A ,$,8,8",8,,8g| ,8g}",<A[`0BF+'Z`[+' ` " g,8XB(/ g/ :U+| (# |HUNK32SI:PRINT-EXTEND:PRINT-SELF->CLASS-CLASS@ g~-,,87@ " (B{Z @0B +2 `Z+3 `[/ ;U g $*g~/& 0F@0,ADD-METHOD:PRINT-SELFu(   xSI:FLATSIZE-EXTENDFLATSIZE->CLASS-CLASS g~[ g g~/kT0& PF@06FLATSIZE   xPURCOPY->CLASS-CLASS g/+5zT0`F`9 Ox:VARIABLEUSERATOMS-HOOK->CLASS-CLASS g-,,8 A7@ " (B{Z0B +A `Z 2+B `[/,8-, $ @0-,6z K;-, $-,,8(@zPhWsW4JJ[(Z (2Hg+G+e g-,2@ $-, g~[ *-, @ $-, g~[ $*-,2@ $-, g~Z (*-,  $-, g~[,8 $@*` -, $-,-,,X-,0@ $(-, $-, $ -,2@e $4-,-, z Z|yj-,  2 $ -,-, `-, $@`]-,-,/,xpF`;USERATOMS-HOOKub xEQUAL->OBJECT-CLASS g)4Bk g2B`g " ``_+l ` g3/,xF g 3xU)b+INTERNAL-WITHOUT-INTERRUPTSCLASS-OFPURCOPY->OBJECT-CLASS * -,  g`Rag,8 gO `XKgXJ//T0+F`m OxSUBST->OBJECT-CLASS g~/+5kU*P F (tSUBST xOUTFILESSI:NORMALIZE-STREAMPRINT-OBJECTSPRINT->OBJECT-CLASS ,{$0,8,8g~,8|,8| ,8",< :u/,xL HF (vSPRINT xFLATSIZE-OBJECTP@aGFLATSIZE->OBJECT-CLASS ,,8,8g,8,8,8",KW</,xL `F`}GFLATSIZE xU@SXHASHSXHASH->OBJECT-CLASSZg,87@ " (B{Z @0B + `Z+ `[/,< $p g//z@`,xxF` xHUNKSIZE,8,<,8/./.,< p4... `-,(. w(0.>p Nw+/0A: ,\/,x8#USERATOMS-HOOK->OBJECT-CLASS "/0/T,xF` xSI:PRINT-EXTEND-1 ( & ((# U(@1BASESI:PRINT-EXTEND-MAKNUM,8,8 *-,  ] (@f/+(#PRIN1U(TYO>,8 " ,8,8,8D0 B`b@ ,0,8 g~,87@ " (B{Z0B +- `Z+. `[ B`,8g",< ,3,8,8A,8g@"",<7@g+7 ,7,8,8g~,8g",D<+< ,<,8 g~,< *p,8,8gAB",</ ,?,8,8A,8g",D]</,x#{#("^RPB!^W,84BN7D+N6F+N7@ " (B{Z0B&+N ` " ,5BN @0 ` ,5BN ` " -,+O `-,/,x8#B,8,8 [ ,<7@`+U .+V g  ...p-, //h 0,xH# PPRINT->OBJECT-CLASS-0,8 Z(,8Z( g1n+a ./g,< "p(s/+a ",8 ,e,8,8g``%,8f,8",</,x `FYu:@13pt xPRINT x:PRINT-SELF->OBJECT-CLASS g~)4Bj g g~D+o ,o,8,8g},8g~,8g~ g} u,8",</,xpF@0g  xEVAL->OBJECT-CLASS :u g/+xF`pEVAL  xMPB0LSPSRC;EXTEND 292_1,8,82D +u "-,+v * "/,x#rSI:MAP-OVER-METHODSFIND-METHOD-, :u "!!+ #wSI:FIND-METHOD""wxLSPSRC;EXTEND 292_2 a ,8,82D +|-,+} "/0.@b!,x0#ySI:WHERE-IS-METHOD-, "#!.T0+8#~LLSPSRC;EXTEND 292_3,8-, $ 1-,,X-, $-, B$ .T1 ",xH#NREVERSESI:OPERATIONS-LIST,8-,$ F $ "$! $%/+]X#LSPSRC;EXTEND 292_4 $[`,5B $[`-,1`] B$+ "/,x`F WHICH-OPERATIONS->OBJECT-CLASS4-,$ g% $&, :u $/+hF`WHICH-OPERATIONS '&xLSPSRC;EXTEND 292_5*2B6g " ,xx#SI:MAP-OVER-CLASSESSI:HAS-SUPERIOR-,`kW6* "'(+#SI:ACCUMULATION )xu;U !))xSI:FLAT-PRINT-P )x!))xSI:FLATSI:FLAT-HANDLER,8,80DB!+% 4.$7B)+!0N+! $* )b + )..-, B)7' "  `%+&0D'gz<;`/,x (# W+T2SI:FLAT-STREAM +xSFA-CREATE!+++*L*xFLATSIZE->OBJECT-CLASS g-, *LH0-, )) "* $1-. ,1@,8,8gw,83,8+,8gw,8gw",<+1@d_ )/+ @F@0(  ,xW:T SI:EXPLODE-NUMBER-P ,x!,,xASCIISI:EXPLODE-HANDLER,8,80D+<H 0 5.;6B,+9*- B` ) `(-, B)7? "+>0D'gz<;`.u/,x X# 3SI:EXPLODE-STREAM .x!..+-L-xP@bEXPLODE->OBJECT-CLASS-,p,-,) ,F,8H ,8g~,8H,8.,8I,8g}",< )%@d%,/+ .pF (?W*@EXPLODE //xSTANDARD-HUNKSPRIN1SI:EXTEND-HUNKSPRIN1,8,8,8)4BP  ,P,8,8g~,8S,8g~,8g~",<+R``% ` g g0/,x# IUbHUNKGFLATSIZESI:EXTEND-GFLATSIZE,8)4BY ,X,8,8g,8]E0",<+\ $1 "0,8 gC`@KW//,x#THUNKSPRIN120xu:].W011xSSTATUS2xUSRHUNK23)xSI:CALLI-TRANSFER2H3xCERRORqr4rxW;Unu20944p55x5 x20575p66x6 xZU*U*UMLMACPAIRPEXTMACDEFCLASS*DEFMETHOD*FERRORERRCKCHECK-TYPECHECK-SUBSEQUENCEU*U*USI:CHECK-SUBSEQUENCERSUBSEQTO-LISTTO-VECTORTO-STRINGTO-BITSREPLACEYESNOP0W<DESCRIBE 5 6K 6$K q3r$Q$rO6L66677889449::u;;<<==><>?   ? @ @ x;