; Y\QU*U*UPROG2CONDSTATUSNOFEATURENOLDMSGTERPRIMSGFILESPRINCQUOTEU*U.U;Loading ULISP 452DEFPROPVERSION      xALLOCHUNK4U:U*W'HUNK8   xSETQ*DEBUG-OPTIONS**ENV**TOPLEVEL-FLAGS**TOPLEVEL-VALUES*   xUUDUMP-SETSUBR,8 ,8,8PNPUT~%~A:W:U.  p  xPUTPROPT+INTERNAL-STRING-MARKER  !x,8,8F0KFORMAT<*READ`#3-,/0u*U,xHDUMPLexical Scope (T or C()) %')p  x  !x *LEX*+aU*U.wEditor JName (jname or ()) -/1p  x  !xu*U *EDITOR-JOB-NAME*3ar Communication Filenamew8TCU 57p 9 9x 9 !x9*EDITOR-COMM-FILE* "aScript FilW;E$ename ;=p  x  !x *SCRIPT-NAME*?aPrinlU*]nevel (fixnum or ()) A!C"p E Ex E !xE*PRINLEVEL*!jU.w "#aength (fixnum or ()) G$I%p K Kx K !xu*wK*PRINLENGTH* "&aUserDebug (T or M'O"p ( (xq)*w ( !x (*DEBUG*QaSysDebug ( )S)p * *xq)$Q * !x **SYSDEBUG*UaEVAL $+*EVAL-BEFORE-DUMP*W(u%,GC,FEATUREITSY-z~Z g-,2@j 1 -,-,1FLUSH [-,5 !.wSSTATUS. ;,8 ]p / /x / !xFJ,8/,8g",SUSPENDo_ $+*EVAL-AFTER-DUMP* 0,2L4SY-z~Z g4B%UDIRazc2z ՜-,QE&RDEFAULTF`e+)azLISPV}zMt+g",I#%<*UNDEFINED* $?%INMU-SET@ $?%OUT!hw*u@MU-READ-EVAL-PRINT-LOOP AX[forget-macromemos|BIND-EVALUATION-ENVIRONMENT BxBACKLIST-ENVu:].W xBACKLIST-FORM CxBACKLIST-PARENT xERROR-FRAME DxERROR-MESSAGE xW+UjpERROR-DATA ExERROR-FRAME-PARENT xERROR-FRAME-BACKLIST FxFIXNUM? x T@ "ZFIXNUM0BG ",x]8Ah:LIST? x5B@ "` "HZLIST0BH "kUjP,xx>QUOTED? xMU-FORMAT IxMU-CHECK-ARGSLSUBR-00  ` ,8,8`LISTIFY@`` -,PRED&RESTARG-LISTKLzG-Q( -,1,X-,KERROR o*EVALM+_;+T /AB@ "p`` " @37@``[`Cg*]n `Wrong Type Arg Np O Ox O !x OMU-ERROR0aZ` B`+WA$R/,xToo few arguments supplied PWRNG-NO-ARGS]:]. JEXTEND QxEXTEND-SLOT xEXTEND? Rx 0:uan ",x aDEF-DATATYPE xMU-TYPEPu:].W SxMU-PNGET xMU-EVHOOK TxMU-APHOOK xDEF-DATATYPE-AUX UxW+UjuDEFINE xDEF-SPECFORM VxEQUIVALENCE xIMPORT WxMU-IMPORTu:].P xDECLARE-TOPLEVEL-FLAG XxBIND-TOPLEVEL-FLAGS xDEF-EVHOOK YxCLOSURE-CREATE@ ,8 ,j,8,8,8m,8(a#,8n",HUNK<ZMU-CLOSURE-PNGEN`QC`I$R/,xMU-DEFAULT-EVHOOK[MU-CLOSURE-APHOOKCLOSURE\]` dCLOSURE? an`Z` 0B\ "+t ",x HP PCLOSURE-DEFINITIONZ,x PuCLOSURE-ENVIRONMENT [,x XwPROCEDURE-CREATE ,~,8 ,8,8,8K<ZQ@`%MU-PROCEDURE-PNGEN`QC`,x[MU-PROCEDURE-APHOOK%t_PROCEDURE `yPROCEDURE? AA an`Z` "+ "0.@0,x PROCEDURE-DEFINITIONZ,xa  SPECIAL-FORM-CREATE,8 ,,8,8,8,8,8)",<ZSPECIAL-FORM-NAME %`QC`/,xMU-SPECFORM-EVHOOKbSPECIAL-FORM  SPECIAL-FORM? an+@0Z` "`5 ",xX P 0Z,x 7SPECIAL-FORM-DEFINITION [,x 8;SUBR-CREATE,8 K",8,8Q,8),8S",(`0<ZSUBR-NAME`QC`/,x% [MU-SUBR-APHOOKe @ ?SUBR? 0 an+/Z`0B "`_ "t,x X*SUBR-POINTERZ@`X,x `a[,x He`,8MU-EVAL Z`, $@/5`0MU-APPLY$g 0 i,8`*`C`0,,x 9,8 ,8f(``X,8g",LEXPR-FUNCALLo/,x P<@,8`[Z,8  g@QAD MU-BIND-ARGSh-, MU-PROGN`,0,x p ,8][Z,8@` & g@h-, `, ,x 8 `LAMBDA $i-,,x hA:] $i-,,x (MU-BIND-ARG-,3 $-,3,x,8d "Z0BH+g gLENGTHj  "j,\3N+g "-,*w g-,7 $ number of args kp l lxq  l !x la+@g+n "-,0Anq g-,7 $ kp x  !x@ a+"-,+g7 80@b0` ga+g-, "-,3+w-, +~[``-,QC`Z` g-,XC`Z`As B`3`/0 -,,x,80 ,,8,8",o3` $#Attempt to SETQ ()? mnp o ox o !x oa 1  ASSQa5B MU-GLOBAL-VALUE-CELL $pa{@d5B3 g-,3 &p $ g@ a+-,XC` `a,xSYMBOLPMU-EVSYM-,4B (  `a3 $p `a{3 `#Unbound Variable rsp x  !xa Z,x%COMPLR-AUX-24B=@0 an ",x@MU-BOUNDP G,8S",o (  `a5B( $p `a{5B(7  : ",xtH COMPLR-AUX-3+ X(DP**BACKLIST*  -,-,2-,7B` "Z $TPa{5B2 "u*`C`+]:\ hUSYMBOLvqTxMU-EVLISTHTx[` U `n`s `Invalid functioU;\#nal type. wxyp x  !xa `@;\#y ` wxyp z zx z !x za3*` E`/,xh4,8`*U.w3Can't APPLY this object {|p } }x } !x0 }a,X*`E`,x p?P MU-APPLICABLE? an+I `` W ",xXEMU-CALL ~xZ`,8`[``G:W`[`hKQUOTE SPECIAL-FORM-INTERPRETERSPECIAL-FORM-INTERPRETER x}.Z[,xhQ@ a {  xSETQ SPECIAL-FORM-INTERPRETER xZ,8@,8,86@g` ``[g0ZgZ[ Fg` $ B`AA>U@`,xx@ a {  xDEFUNDEFUN SPECIAL-FORM-INTERPRETERxZ[Z@,8MU-PROCEDURE `_ $ `@,x@ a {  xF++g  a`^k@;u,xdLAMBDA SPECIAL-FORM-INTERPRETERixZ"@ ia i{ i xPROGNWwjpPROGN SPECIAL-FORM-INTERPRETERxZh(@ a {  xCOND SPECIAL-FORM-INTERPRETERxZ,87@`+u[`7 `[`#Atomic COND clause  p   x   !x abA`[`[` "+uZ` B` ;u`[`Zh0@ a {  xLETWLET SPECIAL-FORM-INTERPRETER xZ[Z,8,8  ,86@`+}+[` "0Z0Bv+`-,1 g(-, Bg+0BH``[`[gZ[`,X-, g-,0*U Bg+ g~Illegal syntax in LET varW;D00list  p   x   !x  aZ``b B`+{/-, `A>U,/,xhw@ a {  xIFIF SPECIAL-FORM-INTERPRETERp xZ[Z[Z ,8,81*`5``7 ``}*p/,x0@ a {  xUNTILUNTIL SPECIAL-FORM-INTERPRETER xZ[Z,8*`7@`@+# ``M , g`AA>U B`+!/,x@9@ a {  xWHILEWHILE SPECIAL-FORM-INTERPRETERxZ[Z,8*`@6@`+. ``c ,@ `_ g` B`+,/,xPO@ a {  xANDAND SPECIAL-FORM-INTERPRETERxZw6@``m0`u[``4B:Z` D``i  >U ",x`e@ a {  xOROR SPECIAL-FORM-INTERPRETERp xZ,87@``[``5BCZ` B`+> "zU`,xp<@ a {  xDODO SPECIAL-FORM-INTERPRETERxZ[ZZ[ [(Z(,8,8`,8,8 ,8,83+N g`` B` an`` `-,1 g-, Bg+^[``@[`,X-, g-,0 BgZ`Z4D^[[`-,3-,@+Lb 0-, `NREVERSE`! B` g~`0 g`+h` `MU-PARALLEL-SETQ p`,/,xD@ a {  xa-,4Bq[`[`Z` 00Zg,X@,x]+@CASEQCASEQ SPECIAL-FORM-INTERPRETER#xZ[Z " @,8` "ZH0Bv+{MEMQ%`1BG+~FLONUM i$1B+~BIGNUM'+MEM= "` g#Bad key to CASEQ )+p - -x - !x-a`A3+ `[1B`  $ gE``Z``AsP p3` "/,x r@ #a #{ # x@R,8 "-,7@`+MU-SUBR $R =/a{[`E` ) "`-Z` B`+ " A,x@ MU-OUTSTREAM-HANDLER,8WHICH-OPERATIONS1+QATYOCHARPOSLINEL3zRT=f+,0D`C AD , ,8*OUTSTREAMS*5",<+, "AA +,13`G0D+%`5B+, ,,*U*U,8 Bug: Please report this. Illegal outputU+]b SFA operation. o79;=? p A Ax A !xA@-,0@R3-,7 $-,7SFA-CALL $!` -,",o,x/P 5MU-READ-0*IBASE* "-,IBASEbE c`#`u=N6 k,8 01@KREAD<#`u u,8 @Z ",<#0tR+J-MU-PRIN1,8 *$ (-,*SLASHIFY*I*PRINLEVEL-COUNT* %MU-PRINaKW /+8 wMU-PRINC,8 *$F-,I %aK/+X ` ,8,< %ˀ-,-,%6 8` 1 8an+OMU-PRIN\ATOMICaM+}Aa +V ,8,8",<b! `@[aK+}7H#` 3n `d-,+} ,8 a,8",<-,,8,8  `6 8` ` 80an`7@`+h: $( `@ aM ,k,8,83",< g~-,+|7B&` g3n`: g~-,+|3` ,8,8 03",<3[`aK gˀ * Np "pZ` Bg D`+`@`5-,/+' ) '8AO$8)(8AR,0QXE,8 an@b+d)@aK , ,8S,8g",`< ``aK `j*`O)" 8anb+ **OBASE* )-,Q(BBASES*NOPOINT * ,,8,8g,8",0aPRIN1oU,`O3+9U`O!4N 8an+#I`?1 ,,8,8g,8",oU`O E,8b,8g,8",<`Od+ M,8,8g 0,8",oU `:[/+0 `Q<$r߁|gb?'y[xWa?.@y <h MU-FLATSIZE,8 ]-,Q(@ 0*FLATSIZE*W*FLATSIZE-SFA* ,E`W/+0.MU-FLATSIZE-HANDLER,81`mz<;`  +C0D+< 4.;Wˀ-,P" UW+C "+C ,C,8UnSupported OpeU;\ ration -[.]/p _ _x _ !x_@-,d3-,7 $-,7 $!-, P",o,xH 3COMPLR-AUX-4[`Q@kPASCII`aQC`+ JDMU-EXPLODE@`k,8MU-EXPLODENac $0/` T*,8-,*EXPLODED*2*EXPLODE-SFA*eE`A@kP 2`!/+ MU-EXPLODE-HANDLER*,81+Rz<;``0D`  !A 2@-, B2` "`;\  ,8 -[.]/p g gx g !xg@-,d3-,7 $-,7 $!-, P",o,x0MU-IMPLODET!-,-,*IMPLODABLE*i ,d,8*IMPLODE-SFA* ],85KoC+@MU-IMPLODE-HANDLERAQ,81`UNTYITYI6mznm62` Hb 0D6+li@-,i`m A`i+p *iQ`i*U7 8+t $IMPLODE ran out of characW;D1ters 7o8q9sp : :x : !x :a`Biii[`4By an+{ 1a $$ `GETCHARNau` `/`;\  ,8 -[.]/p ; ;x ; !x,8;@-,d3-,7 $-,7 $!-, ",o,xX e ,,8"AmK<  -,- " M) -.MU-ERROR-RETURNw K *-,5*ULISP* < ,gC ,,8m0!K< `Py`3*BREAK-LEVEL* =4n% "U "MU-BREAK-RECOVER`{`3 ,,8m~%;At toplU;\ already. >}A?p @ @x @ !x,8@",< wC "` ``,X@  `@ A,8mK<mDaG I,8mK<,d+ "+ ,`  P`1MU-BREAK-LOOP =ˀ-,-,=Q*w^QA ,.,8m~%;Bkpt  Bp  xqd  !x",<m& ,3,8*]nm~%;Level ~D CDp  x  !x,8=iK<MU-BREAK-RETURN "E kA+0*U  s,8m;Returning from Bkpt" Level ~D~ FGH:p  x  !x,8=K<`!+O =5N> $Not i#nside a break loop IJKp  x  !xa @`0` $E-,` ,xXT Xu,8*ERRFRAME* L "-,@`1A-,-,5-,L6D<` ,K,8,8g,8gKo@Unq` ,8m~%; p M Mx M !x,8MH",<m& ,S,8m p 1  x  !x",<m `aG ,Wd,8mK<Q+Y` w  R "` /+FAIL-ACTN]F!W x MU-^B-HANDLER "NOINTERRUPTO7B<`^B pwcnq P Px P !x P`+a p  x  !x%  0 "*BREAKQ,xh\MU-LEDIT-0  ;` ,8,8` -,0*TP0&OPTIONALJNAMEJNAME?RSz7'C-,1,X`3-,;KoM+` @+o ",8 F * PROBEF`7@`+w `QH`2DELETEFT ` B`+s "b!O3+{ `-,3Ѐ3` U.w ,8m~%Editor Name:  Up V Vx V !x 2S,8V",< ,READLINEg3Y-z~Z g@T:- ,,83EXPLODENWz '$f*NCONCXMAKNAM`KVALRET<Y+ ,#,8 ,,8CONT  p Z Zx Z !x ZW# 33W,8KNCONCo` FK<Y `5B ,,8*U*Um~%;Back to Lisp. No updates to load.~%w8@4  [\]^p _ _x _ !x,8_",< "`7 $C@LOADa{ $E`T   ",xToo many arguments supplied J` ax3 JMU-^E-HANDLER ,o]  =MU-^X-HANDLER "OCLEAR-INPUT`7B<  *U`Y =O ,',8m;Quit at toplevel~% cdp e ex e !x,8e",<++ ,+*U.w,8m at break level ~D~% cfgp  x  !x 4@a,8=K< w "` ,/@a$],8_Ko,xQUITh ?IU+U.W1+TTYINT$i2.jxFUNCTION.jkx.jkx .jllx .jkbx.jxMU-GC-OVERFLOW-HANDLER ",xP0R:MU-ERRSET-HANDLER w "` X1MU-MACLISP-ERROR-INTERPRETER-,QFARGS "ERRFRAMEo-, [ZZ[,87H<+;a@a@5.w` ,?,8~%;~S ~A~% pp  x  !x,8",< ` "Q/0 1+`eMU-PDL-BREAK-,i`U7D<+GSTACK= -, $Stack OverW;D1flow rsp  x  !xa` ,K,8;\ ,8Mflow~ t:p  x  !x[K*]n<PDL Overflow uvp  x  !x "*UQ+BERRSETGC-OVERFLOWPDL-OVERFLOW*RSET-TRAPU*U.UGC-LOSSAGEIO-LOSSAGEUNBND-VRBLUNDF-FNCTNUNSEEN-GO-TAGWRNG-TYPE-ARG wkkmxkqNknyknknzknkn{knknknx@MACROU*U*U'+INTERNAL-'-MACRO;+INTERNAL-;-MACROSPLICING|+INTERNAL-|-MACROSETSYNTAX,U+U#A#`]i/|..} .~ .          xMU-"-READMACRO*TYI`,8 3 `0N``!` (`0-, $@`/``@ B``3-, Bg3.P+O/,x 0".kxMACRO-CREATEa ,8,8,8,8eBFK<ZMU-MACRO-PNGENQC` ,xMU-MACRO-EVHOOK  HMACRO? 0 an`Z` "+k "t,x `MACRO-PROCEDUREZ,x hl` [,x PnMU-MACROEXPAND,8` ;3*`-, $$g p h]8 XsMACRO SPECIAL-FORM-INTERPRETERxZ[Z@,8@0` $ `@,x_+U. xt@ a {  xMACROP@ d  xMACROEXPANDMACROEXPAND MU-SUBR x H "Z0BH`[``1 an`[``[``Da5B-,`3 ` ` `-,,x!{@ d{   xMACROFYMACROFY MU-SUBR xCOMPLR-AUX-5` 00 `` ``,xX!( ,,8,8",oKh ! !@ d{   xDEMACROFYDEMACROFY MU-SUBR x ,K,8,8",oh !8+a@  d{     xTRACED-CREATE,8 A,8,8G0,8$,8I",<ZTRACED-NAME`@J%QC`/,x[MU-TRACED-APHOOKTRACED!@ 5TRACED? an+*@0Z` "`U ",x]`X!`%TRACED-PROCEDUREZ,x!hW*w[,x!H[PUSH*TRACE-LEVEL* x ] x(d0,8MU-TRACE-ENTRY-PRINTˀ-,-,1`00 ``3g, $G:wMU-TRACE-EXIT-PRINTi!!P _Enter p # #xqanq # !x#,8`,X p  x  !x (w.w $MU-TRACE-ANNOUNCEj%"8+-  p ' 'x ' !x nq',8`,X ->  p ) )x ) !x)`` $j%"<,<,8@@1,8 ,E,8mK< `s `mjWˀ Np "p B``0@ ,N,8,8g~m",<m g@aG ,8,8gm",<m `@`0aG-,,x .]*p]|p"((@TRACEDP@ d  x*TRACE*TRACE MU-SUBR+x11,8``` !*w ` +`3 trace thi -|p / /xq u / !x/a/,x"` @ +d{ +  +x*UNTRACEWb*UNTRACE MU-SUBR1x4Bd ``` `# untrace this object 35p  x  !x a}*u,x#a@ d{   xTRACETRACE SPECIAL-FORM-INTERPRETER7xCOMPLR-AUX-64C ,8,8g",o $+a{ `3E` $@/,0$@#HJ 9Z+5zUj#@p@ 7a 7{ 7 xUNTRACEUNTRACE SPECIAL-FORM-INTERPRETER;xCOMPLR-AUX-7 ,8hC,8{,8g",o $ "a{cK`C` $@/$@#`J _ $Z+#X@ a {  xPaARRAY-CREATE , ,8,8,8   0,8 K<ZMU-ARRAY-PNGENQC`0I$],x[MU-ARRAY-APHOOK?ARRAY #h~ARRAY?@  an` Z`0B  P P "+ ",x$ ARRAY-STORAGE:Z,x$ !ARRAYDIMS`CZ@a#],x#p ,8!,X*APPLY$"#x MAKE-ARRAY`1MAKE-ARRAY MU-SUBRE#x-0 4N `` /  " , ,8 ;,8,8 L "",o`=/,x*ARRAYG_+U.$0J @ Ed{ E  ExARRAYP@ $d A $xSTORESTORE SPECIAL-FORM-INTERPRETERI%xZ0[Z[@,8`*``A>U-,,x$P =@ Ia I{ I xASETASET MU-SUBRp K&x-0  Q`+ ) "[Z[Z ,8,8 , 0,8,8 4,8",o!,X" _-,/,xA$`J K@ Kd{ K  KxAREFAREF MU-SUBRM'x-0  o` + 8 "[Z,8 {,8`0 ,8",o!,X"0}*p,xA$pJ i@ Md{ M  MxMAKE_ARRAYMAKE_ARRAY MU-SUBRO(x-00& 4N D`` "[ P(1DG` 1D` 1D`  0*Uan + M $Bad args to MAKE_ARRAY. MU*Unqaybe you want MAKE-ARRAY. Q)S*U+W,Y-p [ [x [ !x[#a` $AY. Q)S*.p ] ]x ] !x]a  , S,8 ,8,8 UZg~",A@D_o`=/,xG%J A@ Od{ O  OxARRAYDIMS MU-SUBRC/x , Y,8 ",oM4_!`C $*APPENDi_A%p @ Cd{ C  CxPMU-PP\INDENT,<,8 , `,8,8K@<,8 j `3Og+ h , e,8 3@ ",< `ˀ Np "p B`` "@D],x]Q& \MU-PP\AUX@,<,<,87  0+ paG+ 6 8an+ }9 o ,8Zg,8",<0 ,8,8 8,8g",< ``aaP A `: q "+ 6` +  ,801,8 9,8",< `@[aa+ 6 G+ ,8,8gK<@0 ,8,8gK3,\20(` i `: s #,8,8K30 Np &p $ `aa[g6 0@+  `3 "p00@ , ,8,8gK 3 ,8 g6 80@`` I g 8an+ *7@g0 + (j : $( gaG: u "` gj ;3` _ `ˀ $(A@ "p03[gaa *Zg Bg+ + 6 `aG@//,x`Q<'*p8& kPPPP MU-SUBR1cx 1 },8mK<maa h u,8mK< "6,x& w@ 1d{ 1  1xBREAKWBREAK MU-SUBR2ex,84B F*`/z\,x&( @ 2d{ 2  2xERROR MU-SUBR3x-0  E4N J`` "Z5D N[ErrorU;\# Signalled g4ip 5 5x 5 !x 5a` [AA>W[a/,x&0J G@ d{   xQUIT MU-SUBRhkxoU` ,<h&X @ hd{ h  hxEVAL MU-SUBR+6x+7  0k "-, `+&` @ +d{ +  +xAPPLYAPPLY MU-SUBRm7x,8 , Z,8,8 ]@0",o $a_ $$g%z]*uR&p V@ md{ m  mxAPPLICABLEP@ od  oxMAPCARMAPCAR MU-SUBR8qxCOMPLR-AUX-10 #X-0` $FNs$g'J -00& 4N c`` "-, s[sZ , j,8,8 o ,8",o ,8 ,8 p3K "o,,x891'J `@ 8d{ 8  8xCLOSURE MU-SUBR\:x` ``D  a+ y `` `-,*U*U+ y `Arg must be a procedure or closure.#  u;w<y={p > >x > !x >a,x'  u:]*p@ \d{ \  \xCLOSE-IT@ }q \xCLOSE_IT@ ?q \xTYPE-OFTYPE-OF MU-SUBR@x   "Z0BG+ "GAAAA+ '+ '+ 0B+  "+ AA0Bv+ 37 NULL+ 0BH+ AAPAIR "A+ 1B + RANDOM`  Ku@/,xv( z@ d{   xATOMW ATOM MU-SUBRBx "Z1BH  ",x(( @ Bd{ B  BxSYMBOLP MU-SUBRCx4B  )@0 an ",x_+Uju(0 @ d{   xPAIRP@ d  xLISTP@ Dd  DxNUMBERP@ d  xFIXNUMPu+U.U@ Ed  ExBIGNUMPBIGP@ d F xFLONUMPFLOATP@ d G xINTEGERPFIXPu;Uju@ d H xNOT@ d  x@ d  xCLOSUREP@ Id  IxPROCEDUREP@ d ` xSPECIAL-FORMPu:U`@ Jd c JxSUBRP@ d  xBOUNDPBOUNDP MU-SUBRKx 3,8`4_ 5",oh)8 @ Kd{ K  KxW:]juCONS@ Ld L Lx@ Hd H HxREVERSE@ d  x@ jd j jxNTHCDR@ Md M MxAPPENDu+T@ d  xRPLACARPLACA MU-SUBRNxCOMPLR-AUX-11 "Z@@0BH ",x)p ,8 , #@0,8 K",o-,QC`jW+ O)h @ Nd{ N  NxRPLACDRPLACD MU-SUBRPxPdCOMPLR-AUX-12 "Z0BH "@,x* &,8 , .,8 a",@2o-,XC`+ _(* *@ d{   xMU-CAR i,8,8 6",@KPo[`,x* 1MU-CDR0 , :,8 w",oZ`.Uc_,x* mCARCAR MU-SUBRRx"Q*( <@ Rd{ R  RxU8wjWCDRCDR MU-SUBRSxh*8 y@ Sd{ S  SxCAARCAAR MU-SUBRTx;3Q"Q*H =@ Td{ T  TxCADRCADR MU-SUBRUx`"Q_*\3_*X >@ Ud{ U  UxCDARCDAR MU-SUBRVxQh*h ?@ Vd{ V  VxU8g>UCDDRCDDR MU-SUBRWx`h*x @@ Wd{ W  WxCAAARCAAAR MU-SUBRqLwjWXxQQ"Q+ A@ Xd{ X  XxCAADRCAADR MU-SUBRYx3`Q"Q+ @ Yd{ Y  YxCADARCADAR MU-SUBRZxQ;3`"Q+( D@ Zd{ Z  ZxCADDRCADDR MU-SUBR[x``3"Q+8 @ [d{ [  [xCDAARCDAAR MU-SUBR\xQQh3;+H G@ \d{ \  \xCDADRCDADR MU-SUBR]x`Qh+X u+F3_@ ]d{ ]  ]xCDDARCDDAR MU-SUBR^xQ`h+h J@ ^d{ ^  ^xU8f;uCDDDRCDDDR MU-SUBR_x``h+x @ _d{ _  _xCAAAARW f;uCAAAAR MU-SUBR`xQQQ"Q, M@ `d{ `  `xCAAADRW f;uCAAADR MU-SUBRax`QQ"Q, O@ ad{ a  axCAADARW f;uCAADAR MU-SUBRbxQ`Q"Q,( Q@ bd{ b  bxCAADDRW f;uCAADDR MU-SUBRcx``Q"Q,8 S@ cd{ c  cxCADAARW f;uCADAAR MU-SUBRdxQQ`"Q,H U@ dd{ d  dxCADADRW f;uCADADR MU-SUBRex`Q`"Q,X W@ ed{ e  exCADDARW f;uCADDAR MU-SUBRfxQ``"Q,h Y@ fd{ f  fxCADDDRW f;uCADDDR MU-SUBRgx```"Q,x [@ gd{ g  gxCDAAARW f;uCDAAAR MU-SUBRhxQQQh- ]@ hd{ h  hxCDAADRW f;uCDAADR MU-SUBRix`QQh- _@ id{ i  ixCDADARW f;uCDADAR MU-SUBRjxQ`Qh-( a@ jd{ j  jxCDADDRW f;uCDADDR MU-SUBRkx``Qh-8 c@ kd{ k  kxCDDAARW f;uCDDAAR MU-SUBRlxQQ`h-H e@ ld{ l  lxCDDADRW f;uCDDADR MU-SUBRmx`Q`h-X g@ md{ m  mxCDDDARW f;uCDDDAR MU-SUBRnxQ``h-h i@ nd{ n  nxCDDDDRW f;wCDDDDR MU-SUBRox```h-x k@ od{ o  ox@ %d % %xW:]*pMEMBER@ pd p px@ d  xASSOC@ d  xHASHHASH MU-SUBRqx,<,8 ,8,8 w,8",o SXHASHrx Np *p,X "(REMAINDER _a,xH. m@ qd{ q  qxU8DISPLAY-PLISTDISPLAY-PLIST MU-SUBRsx , {,8 )",oMU-PROPERTY-LIST $t `a{Z4B  *U*U,8m~%Property list for ~S~%Name Valuew8@ uvwp x xx x !x,8x,8g~K<,8`7@` 2+  ,8mK<m[`aG@2 , ,8,8 m",<mZ`[aaZ`Z B`+ ` % %*U*w,8m~%~S has no properties.~% yzp { {xq  { !x,8{,8g~K< "0I>U,x .8 @ sd{ s  sxPUTPUT MU-SUBRp|x,8 , ,8 K",@0o $t ga{ = g3a@ ` G-, g-,7 $-,20 &t $a-,/0}.,x/H +@ |d{ |  |xGET MU-SUBR{}x,84 , *,8,8 4",o $ta{ Z7@`` e[`P` aZ`[@0+ 3Z`Z B`` Y ",x%z].W/P &@ {d{ {  {xEQ@ d  xEQUAL@ ~d ~ ~xMINUSP@ d  xW+]juZEROP@ d  xPLUSP@ d  x@ d  x@ ~d ~ ~xALPHALESSP@ d  x= MU-SUBRp /x,8 , 9,8,8 S,8K o 8an + @ `  8an + @ `~+ R 8`n@+ E ` 8BFan@+ JFLOAT `2NhB "+ R 8@` `n + O ` 8an + P "+ R2O` "/,x_+].W0 i@ /d{ /  /xGREATERP@ d  x@ 2q xLESSP@ d  x<@ q xW+T0IMPORT-WITH-DOWNWARD-COERCION xIMPORT-WITH-DUAL-COERCION xMATH-COERCE-UPWARD-,@ 6@`` -,` ` 0an@+ \ $,` Z`A@kP B`+ U/+ 0@ MATH-COERCE-DOWNWARD  an@+ g `FIX0S+ e `+ f-, + h `-,,x0H w*\@ d  x@ d  xTIMESTIMES MU-SUBR x-0  EC4N l`` " $ "{U.h 0`J i@  d{     x@ 6q  xPLUSPLUS MU-SUBR x-01@C 4N r`` " $ "}.Uh 0pJ o@  d{     x+@ q  xDIFFERENCEDIFFERENCE MU-SUBRp x-0 4N x`` " ;u $ ""h 1J u@ d{   x-`@  q xMINUSMINUS MU-SUBR x-0 4N ~;`` "[`h 1 J {u:U`0@ d{   x~@ q xSUB1SUB1 MU-SUBR x-0L(  `+ "[ z]*ph 18J @  d{     x1-@  q  xADD1ADD1 MU-SUBRx-0 4N ``  "[`}jWh 1PJ@ d{   x@ iq xDIVDIV MU-SUBRx0,8 %,8,8E`  Bg~`  Bg~Ko 7 ` 7C0 $a{ g` g`  $E`+D5." $!@a{ g`3E``0@(C+D `5.) $a{` $ gE``+D 8an +0 ` 8@aan +0&`-,+DIFIX0 `,\,<  ` p-, h h3no` h2no` { p-,` Cnh>p` u-,` :p nh+9-,ju/,x1` @ d{   x%@ q xQUOTIENTWQUOTIENT MU-SUBRx,8 ,J,8 ,8@`Ko,Z _ -, ,x2 @ d{   xW*\/@ !q xDIVIDEDIVIDE MU-SUBR#x,<,:,8 ,8,8f,8Ko@ `,Z Ph`,\ *h Pp (p`,8 " 2N(+c " -,@`0+d "(-,0}.W,x2P@ d{   x!@ q xREMAINDER MU-SUBR%x,8 ,k,8,8r,8Ko"  $a{ ` gE`3*TIMESF $*g*DIFa'h _+U.2( @ d{   x\@ q xGCDGCD MU-SUBR)x,8` ,8,8{`  Bg~`  4_ Bg~Ko,Xi)2P @ )d{ )  )xW*\\\@ +q )xSINSIN MU-SUBR-x-0 1@0 `+"[ "h` A>U,x2hJ @ d{   xCOSCOS MU-SUBRp /x-0 4N`` "@[ "h` zU`0,x2xJ@ d{   xATANATAN MU-SUBR1x-0 `+ "Z[[  "h` ,x3J`@ d{   xSQRTSQRT MU-SUBR3x-0 4NP``- "[ "h` 0jp,x3J@ d{   xTYO MU-SUBRx@00 ,,8m",<,x3 5@ d{   xTERPRI MU-SUBR5x C,8mK<z\ ,x3(@ d{   xPRINC MU-SUBRxm&k+ 30"@ d{   xPRIN1 MU-SUBRU7xmaG}*p+ 38I@ Ud{ U  UxPRINTPRINT MU-SUBR9x 1 ,*,8mK<m `aG ]H2,8_m",<+ Q_*\ 3H'@ d{   xPEEKCHPEEKCH MU-SUBR;x ,TYIPEEKAA>U "p`a,x3X0@ d{   xREADCHREADCH MU-SUBR=x*READCHh?3pg@ =d{ =  =xTYIPEEK MU-SUBR x ,<_+G>W44@ d{   xTYI MU-SUBRmAxh45@ md{ m  mxREAD MU-SUBR#!x;; ,oC4k@ #d{ #  #xIMPLODEIMPLODE MU-SUBRC"x"44 mu+G>U@ Cd{ C  CxIMPLODECIMPLODEC MU-SUBRE#xhC407@ Ed{ E  ExEXPLODECEXPLODEC MU-SUBRr}*rG$x $&$14@o@ Gd{ G  GxEXPLODEEXPLODE MU-SUBRI%x G;$14Pq@ Id{ I  IxGENSYMGENSYM MU-SUBRK&x ,oK4`su+G>U@ Kd{ K  KxCVTACVTA MU-SUBRM'xha4pu@ Md{ M  MxCVTNCVTN MU-SUBRr}.O(x $$iu5;@ Od{ O  OxLOAD MU-SUBRQx-01@ 4N?`` "4BBjA`U1n+E `-, $ to LOADw8F k)Sp * *x * !x *a[`Z`[ ,8 ,gK "-,Ee@`U g5 Bg`3File not fW;D: ound U+Wp , ,x , !x ,aINY-,0@`013-,-,1,8a 1-.9+Z g|FILEP-SFAY[zFUg g|SFAP. g|CLOSE`]T ,x *-,+INTERNAL-WITHOUT-INTERRUPTS /As3 Dgy``0[`OPEN_", Bgy E" *-,INFILE0ECHOFILESa A3@U*W+i ,i,8m~%;Loading "~A" ... 1c2ep 3 3 3x 3 !x,83NAMELIST`g`NAMESTRING4K< ,l,83,8gw",oC  `P`7@gw` ,8m of "~A" done.~ 1ci5k:p 6 6x 6 !x,86 gw`g0A`4K< "`7@gw+|` ,z,8mK<maG`` ,8,8gx3",oCA@`0 B``,-.,0jr/,x5J<@ d{   xGC MU-SUBR,mx "QM>UGCTWA7, ",x6h@ ,d{ ,  ,xLPR-ONLPR-ON MU-SUBRp o8x-0 4N `` "@!.w4BZ4DAPR-ON k)qp 9 9x 9 !x@  9a7@`+[``?*SCRIPT-STREAM*P)"s+ "`9 *^R J: ,,8@d 1;",o_s5-,5D"as-,as-,A$_ ",xOUTu7J@ od{ o  ox!"LPR-OFFLPR-OFF MU-SUBR;wxs4B'@@:*DELETE<d"as<a5s<5I>Ws`]s ",x78@ ;d{ ;  ;xRANDOM MU-SUBRyx@  ,+,8]",o [,8 _3Ko,xH7HO@ d{   xU8%SETRANDOMSETRANDOM MU-SUBR={xsDATE>z85 gS0CDAYTIME}ziE|5g $a_ $ "6"  -,1 -,-,1 -,1D2.` "Z0BGH+A `-, -,-,1 b U -,.` `Arg to SETRANDOU*UnqM must be a FIXNUM or () ?@ABp C Cx C !x CjWa,x7X/@ =d{ =  =xPRINLEVELPRINLEVEL MU-SUBRDxB 0B+F #+M "d!Z0BG` `-, B#+M*U*W `o PRINLEVEL musa fixnum, (), or T ?EAFG pw``_ H Hx H !x Ha,x8@@ d{   xPRINLENGTHPRINLENGTH MU-SUBRIx0B` &`4BT A "Z0BG+V `-,1*U B&` `NLENGTH must be a fixnum,U;\# (), or T ?JKL p M Mx M !x MaA,x9N@ d{   xINRADIXINRADIX MU-SUBRNx0B+[@A "+d "Z0BG` U `1.`1n` `o INRADIX must U*Unqbe T or fi 1 < x < 37 ?OPQRp  x  !x@ 0a+d `-, B",x_*\ 9`@ d{   xOUTRADIXOUTRADIX MU-SUBRSx0B` )d` "Z0BG+m `@!*U1.+m1n+o `o OUTRADIX must be TU*Unq or fixnum, 1 < x < 37 ?TUVWXp  x  !x@ 0a` `-, B),x_*Unw:8e@ Sd{ S  SxCOMPLRSPECIAL*DEBUG-LEVEL*YYZxK Z Z]xYYxK  xW+UjDEF-DEBUG-OPTION xMU-CALL-DEBUG-OPTION [xMU-DEBUG-CURSOR xMU-READ-DEBUG-COMMAND,<,< ,u,8mKm  (+a+{0n=+{/. Np "p ` "(`a/,x;@P@U.wMU-DEBUG-1 ,8m~%[Debug] ]p ^ ^x ^ !x a$,8^",<\MU-DEBUG-OPTION a{AR @+ ?1B_+HELP *U+ mj "+    )DB@0`az :$fa%5B m:! "/,x 4h  xgd|;qxe_xOcxc }x;HPMU-DOCUMENT-DEBUG-OPTION ,,8mK< ,,8t@3m",<MU-DEBUG-OPTION-DOCUMENTATION a{!4Bm:A ;,8",< ``?mj! ",x4xOd`:|;qxc@|?rJ|'q< MU-SHOW-BACKLIST-FRAME@! ZMZ5D)m:a++ Z!5N+mj2 ,.,8,83m",< m[`qs/,x qujWSq<0$EDIT@ d  xDEBUGDEBUG MU-SUBRdxR @1MU-DEBUG-EXIT "e s ]-, Zcw $9`+ `m y*U*w,8m~%;Debugger Terminated.~% fgp h hxqh u h !x,8h",< ",x0AU*]nwExits the debugger. vwp  x  !xx xU8 *UHH MU-DEBUG-OPTIONxx ,8m~%Type a char tU*Unqo doc or "*" for all:  yzl{| p } }x } !x,8}3",<\0B6+P7@``0@a[`bZ` B`+K "`*Ub,x?Describes 1 or all cW;]jWds. ~mp  x  !xxx xxFF MU-DEBUG-OPTIONx)!,<  -, # &3+f ,Y,8mK<!! `2OZ+\mji+]m: +]b,8~D.  p  x  !x3K`<m`aG `ˀ Np "pAs`0 B`3` "/,0:U,x]<@Prints out all U*U*wstack frames in abbreviated form.    p  xw:Ud   !xx x.. MU-DEBUG-OPTION x  -,1 ]# &Gc+Ajs curU*U.wrently selected stack frame in     p  x  !xw+H;Ux xT MU-DEBUG-OPTIONxG"cAXnTypes out U*U*Wcurrently selected stack frame normally. !#%pC  x  !xx xPP MU-DEBUG-OPTION'xa"c]*U*UB@oPretty-Prints currently selected stack fW;]jWrame. )+-/1 p  x  !x'x 'xDD MU-DEBUG-OPTION3x   ZMZ5Dv ,8,8z,8D@",<+x Zˀ-, BZ !A*Wa{`lC pGoes down one s 57#p!  x  !x3x 3xUU MU-DEBUG-OPTION9x Z5N@1 ,8,8",<`-,1] BZ a{`lCPup onU+]nue stack frame. 5;=p ? ?x ? !x9?x 9xGW*UG MU-DEBUG-OPTION Ax ,,8m~%Go To Frame Numberw8@4 !C"Ep # #x # !x,8#",< *a-,@`0E`#` ` 8anb+ `4. ` 8`n `% U*w ,,8mid strame number. wG$I%p K Kxqb  K !xK",<+ `M@]n1 ,,8m wG$I%p & &x & !x,8&",@HC<`7 JZ a{@0:U+DAsks for ae numU+]nuber and go it. M'O(Q)p S Sx S !x Sx  xEW"UE MU-DEBUG-OPTION*Ux6BL`C ,!,8m~%No Pendi 1ng Error +W,Yp - -x - !x,8-",<++ U.w I,8m~%Error Message [.]p / /x / !x D1,8/",<m[LaG ,),8mor Data:   [_0ap 1 1x 1 !x,81",<a:U L@maG,xE(s error informaw;].! c2e p 3 3x 3 !x*3x *xA MU-DEBUG-OPTIONgx ] JZ" *w a{`F8Wto top of  54i p 5 5xw:Ub 5 !x5x xZZ MU-DEBUG-OPTIONk6xj 0]-, BZ a{`F`]to boU+]nuttom of stack. 5m7o8p q qx q !xkqx kxBWFB MU-DEBUG-OPTION9sx ZM@ ZE.wM-,p Debug :p u ux u !x@` u` ,0N`y`+= "W*U+G3 debug breakpoint atU;]nu current s ;w<y={#p > >x > !x9>x 9x.Yx_u*]jU.}x*RSETNOUUOMAKHUNK SaEa*?@ x@  xSFA-CREATEExplode HaW;U*Wndler ABp  x  !xFlatsize Handler CDpw+]jU E Ex E !xImplo Bp F Fx F !xOutput Handler Gp H Hx H !xNCONS ]p I Ix I !x =]QLW0e 3], Y]E"a5 k]F+)am ]H5&#%]sIU]<>I/x;