;"I(U*U*UPROGNCONDSTATUSNOFEATURENOLDMSGTERPRIMSGFILESPRINCPNPUTU*UjuQUOTE;Loading EXTEND 291pSETQxDEFPROPU:U*UT+INTERNAL-STRING-MARKER xALPHALESSPLISPV2071EXTEND291VERSIONU*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  j]*U,x0#*MACRO $$# "xCONSTANTLISTPAIREXTENDPU*U*UTYPE-OFVECTORSTRINGBITSCHARACTERMEMQSYMBOLFLONUMVECTOR-SU*T MSUBRFLONUM-SSMALL-FLONUMHUNKPTR-TYPEP,85B "%+(B{ `n+ 7B` " (B{Z0(0 B`0B%+ "&+-,+D `&4B `',8'(()%z >e1,)5B(@ &** +#+,,zP@u?LN4J[(Z (2H`+7` " /0P W+ "-/,xX#TARGET-FEATURES .xW*@LOCAL!...xBIGNUMEQ-FOR-EQUAL?,87@ " (B{Z0$ ,80B*+  +&1B%+1B* A+0B/+ "+&0B+!7D.+! @j "+& g'*%),zP:T&94J&[(Z (0H  U+#7 "/,xx#EQUALARGSU*]*USI:DEFCLASS*-2 00112 0112 xCLASSSI:INITIALIZE-CLASS~&;Re-defiU*U*Uning class ~S ~:[~;(previously from file ~1G~U*U*wA)~]~@  ~:[~;(in file ~2G~A)~]445566778899::;;<< p==xu*U*U= x:SOURCE-FILEFORMAT~&;Overwrite the existing clasW;U 0s?>??@@AApBBxB xSI:DEFCLASS*-1LSUBR-0,8 Z(,8Z(,8Z(,8 g~@(1n+.Z(+/ ",81n+1Z(@`!+2 g~-,,8,8 $3H( 1 Bg4BB7D+8 $3 ,@@ ! ,?,8,8,8I,8g~ g}[ $=b,8,8g|",<> ,A,8,8I",<@4BG ,G,8,8g,8g|,8g|,8g|,8g|,8g|@`"",<1 Bg g/,x=B]:U*U(C'0BC2 xSI:DEFAULT-SENDISI:DEFAULT-CALLICALLISI:STANDARD-MAP-OVER-METHODSMAP-METHODSSI:STANDARD-MAP-OVER-CLASSESUDMAP-CLASSESSI:DEFAULT-ADD-METHOD,8 *DQJ $ "D `@@",8XB / ` (DQH $E "D`  `,8XB/ ` &EQF" 0 $F "E `,8XB(/ `  *FQJ $G "F `,8XB(/0 U,X *GXJ ",x8#JMAPCRPLACXU+UjUCART..6Jp+INTERNAL-TEMP-MARKERJ KxCADRPURCOPYW:]jUDELQH 3HII3JHKI3JJL33I3 !LLMI3LxxT..8MpN KxPUTPROPDSK:LSPSRC;EXTEND 291CXRU;UjUT..9PpQ KxDSK:LSPSRC;EXTEND 291NNNO=OPQNQQ=OPxSI:INITIAL-CLASSESNUMBEROBJECTU*U*UFLOATINTEGERMACLISP-PRIMITIVESEQUENCETYPEPRANDOMARRAYSFAFILEW+U.WJOBRRSSRTRTS%U&%T%S%%TU%*TTT*STVTVTWTWTXT/TT-T xNUMBER-CLASS XxSI:DEFCLASS*-1DSK:LSPSRC;EXTEND 291YRX%RYxFLOAT-CLASS ZxW+UjuDSK:LSPSRC;EXTEND 291YSZ%XSZxINTEGER-CLASS [xDSK:LSPSRC;EXTEND 291YT[%XT[xMACLISP-PRIMITIVE-CLASS \xDSK:LSPSRC;EXTEND 291u:].WYT\%T\xLIST-CLASS ]xDSK:LSPSRC;EXTEND 291Y%]%%]xPAIR-CLASS ^xDSK:LSPSRC;EXTEND 291Y&^%]\&^xW+UjuCONSTANT-CLASS _xDSK:LSPSRC;EXTEND 291Y%_%%_xNULL-CLASS `xDSK:LSPSRC;EXTEND 291Y%`%_]\`xSYMBOL-CLASSu:].W axDSK:LSPSRC;EXTEND 291Y*a%\*axFIXNUM-CLASS bxDSK:LSPSRC;EXTEND 291Yb%[\bxFLONUM-CLASS cxW+UjuDSK:LSPSRC;EXTEND 291Y*c%Z\*cxRANDOM-CLASS dxDSK:LSPSRC;EXTEND 291YVd%\VdxARRAY-CLASS exDSK:LSPSRC;EXTEND 291u:].WYVe%\VexSFA-CLASS fxDSK:LSPSRC;EXTEND 291YWf%\WfxFILE-CLASS gxDSK:LSPSRC;EXTEND 291YWg%\WgxW+UjuJOB-CLASS hxDSK:LSPSRC;EXTEND 291YXh%\XhxBIGNUM-CLASS ixDSK:LSPSRC;EXTEND 291Y/i%[\/ixHUNK-CLASSu:Uju jxDSK:LSPSRC;EXTEND 291Y-j%\-jxLIST*STRUCTRkS3SkSUSRxSI:SFA-SENDIHCfllxT..11w+U*Wlpm KxmHmfmmlxFBOUNDPGENTEMPAUTOLOADMACAIDnnnonooxU@0LISTIFYLEXPR-FUNCALL-0,8p,8 ,f,8@,8g,8g,8",<p/,xp%k@`C`0Iq x-0,8p,8  ,m,8,8n,8o,8",<p/}*U,xpCh0Iq x*RSETSI:CHECK-TYPERADD-METHODSYMBOLPPCLASSP,8,8,87Hq+x "rn4Bx"h@ &r $s gr &r $s Bg `r B` `Z,X,X*`G`/jU*U,x(# oEXPRGETL~&;Warning: Function ~S U*]nUnot yet defined~%uuvvwwxxypyyxy xwas compilU+]jUed as a SUBR~%uuvvwzz{{|p||x| x;Discovered addU*U*Uing method ~S to class ~S.~@   ;MethU*U*wod calls will remain interpreted.~%}}~~ pxp  x,8,8,8 $Z)5B .@4N(N{ 8an+ $C $ 0+ $ (Z  & g-,-,0` `,8XB(/,8 g4NP(N{ 8an+Ct#z `e T gt+ ",8 g~-, gQB( g~4N(N{ 8an+$6@`+ ,,8@ ,8",8+,8g}",<>+ [`0D#+$  , ,8,8",8+,8g}",<> ,$,8@0 ,8",8,,8g|,8g}",<>[`0BC+'Z`[+' " g,8XB(/ D% g/+y|x# |U(`HUNK32SI:PRINT-EXTEND:PRINT-SELF->CLASS-CLASS g~-,,87@ " (B{Z0B+2 `Z+3 `1[/ g $*g~/&]+U C@0,ADD-METHOD:PRINT-SELF xSI:FLATSIZE-EXTENDFLATSIZE->CLASS-CLASS g~[ gw.P g~/&  C@06FLATSIZE  xPURCOPY->CLASS-CLASS gWjP/+0C`9L x:VARIABLEUSERATOMS-HOOK->CLASS-CLASS g2-,,87@ " (B{Z0B 0+A `Z+B `[/,8 P2-, $-,3z K;-, $"-,,8zPhWsW4JJ[(Z (2Hg+GH+e g-, $-, g~[ `*-, $-, g~[ $ AH*-, $-, g~Z (`*-, $-, g~[,8 @0 $=*`-, $-,-,0@,X-, $(-, $-,0H $ -, $1-,-,(`0 z Z|yj-, $ -,-, ` -, $-,-,/kT,x@C`;USERATOMS-HOOK  xEQUAL->OBJECT-CLASS g&4Bk g 2B`g " +l ` g0/zU$,xPC g0 x+INTERNAL-WITHOUT-INTERRUPTSCLASS-OFPURCOPY->OBJECT-CLASS * -,   gRag,8 gL `XKg >PXJ/+hC`mLxSUBST->OBJECT-CLASS g~W.U/+pC (tSUBSTxOUTFILESSI:NORMALIZE-STREAMUPRINT-OBJECTSPRINT->OBJECT-CLASS ,{,8,8g~,8|,8|  %,8",</,xI C (vW*BSPRINTxFLATSIZE-OBJECTGFLATSIZE->OBJECT-CLASS ,,8,8g,8@``",8,8",</,xI ]:T0C`}GFLATSIZExSXHASHSXHASH->OBJECT-CLASSZg,87@ " (B{Z0B+ `Z+ ``[/,< $p g/0j/,xHC`xHUNKSIZE,8 ,<,8/./.,< p4...` `-,(. w(0.>pA@ Nw+/,\/,x8#RA>PUSERATOMS-HOOK->OBJECT-CLASS "/,xXC` xSI:PRINT-EXTEND-1 (!nU  & (x# BASESI:PRINT-EXTEND-MAKNUM,8,8 *00-,  (@f/+5jU x#PRIN1TYO>,8 " ,8 ,8,8 B`b@ ,0,8 g~d,87@ " (B{Z0B+- `@Z+. `[ B`,8g",< ,3@,8,8A,8g",<7@g+7 ,7,8b,8g~,8g",<+< ,<,8 g~,< *p,8,8g",</ ,?,8``,8A,8g",</,x#{%j@ `#("^R^W,84BN7D+N6Fd+N7@ " (B{Z0B%+N `!D1 " )5BN ` )5BN ` " `0-,+O `-,/,xX`0#B,8,8[ ,<7@`+U@`0 .+V g ...p-, /0 0/,x# PPRINT->OBJECT-CLASS-0,8 Z(,8Z( g1n+a .`a /g,< "pp/+a ",8  ,e,8,8g,8f,8",<//Uj,x 0CY0mq xPRINTx:PRINT-SELF->OBJECT-CLASS g~&b4Bj g g~+o ,o,8,8g},8g~ 00,8g~ g},8",</,x_(`5@C@0g xEVAL->OBJECT-CLASS g/+HC`pW*@EVALxMLSPSRC;EXTEND 291_1,8,82D+u "`]-,+v "/,x`#rSI:MAP-OVER-METHODSPH05FIND-METHOD-, "+p#wW(!SI:FIND-METHODtxLSPSRC;EXTEND 291_2,8,82D+|-, A:+} "/,x#ySI:WHERE-IS-METHOD-, :P " +#~LLSPSRC;EXTEND 291_3,8 1-, $-,,X-, ! :P-, B! ",x#NREVERSESI:OPERATIONS-LIST,82-,! $ "! !"/0t +(#LSPSRC;EXTEND 291_4 ![`)5BD ![`-, B!+ "/h ,x0C WHICH-OPERATIONS->OBJECT-CLASS-,! g" @`5 $#, !/+8C`W(@@]WHICH-OPERATIONS$#xLSPSRC;EXTEND 291_52B3g " ,xH#SI:MAP-OVER-CLASSESP@CSI:HAS-SUPERIOR-,3* "$%+];UnUX#SI:ACCUMULATION &x!&&xSI:FLAT-PRINT-P &x!&&xSI:FLATSI:FLAT-HANDLER ,8,80D+% 4.$7B&+!0N  +! $' &+ &..-, P( B&7' "+&0D$gz<;`/.].P,x x# SI:FLAT-STREAM (xSFA-CREATE!((('I'xFLATSIZE->OBJECT-CLASS g " -, *I-, && "' $1-. ,1,8,8gw,83,8(,8gw,8gwAD",<+ &/+%z]jP C@0( )xSI:EXPLODE-NUMBER-P )x!))xASCIISI:EXPLODE-HANDLER,8!,80D+< 5.;6B)+9** ! B` & `-, B&7? "+>  ]0D$gz<;`/,x (# 3SI:EXPLODE-STREAMw*@b +x!++(*I*xEXPLODE->OBJECT-CLASS-,p)-,@!& ,F,8,8g~,8H,8+,8I,8g}", < &",/+".]* +@C (?EXPLODE,,xSTANDARD-HUNKSPRIN1SI:EXTEND-HUNKSPRIN1,8,8D ,8&4BP ,P,8,8g~,8S,8g~,8g~D",<+R ` g g-/.T,xX# IHUNKGFLATSIZESI:EXTEND-GFLATSIZE,8&4BY ,X!,8,8g,8]",<+\ $. "- ,8 gC`//,x];Ujuh#THUNKSPRIN1/-x-..xSSTATUS/xUSRHUNK/0&xSI:CALLI-TRANSFERu:]nW/E0xCERRORno1ox20941p22x2 x20572pw*U*U33x3 xZYMLMACPAIRPEXTMACDEFCLASS*DEFMETHOD*U*U*UFERRORERRCKCHECK-TYPECHECK-SUBSEQUENCESI:CHECK-SUBSEQUENCERSUBSEQTO-LISTTO-VECTORTO-STRINGU*UoTO-BITSREPLACEYESNOP0DESCRIBE 2 3H 34H n0o4N4oL3I3334556611778r899::;;9<<   = = = x;