;2e8(U*U*UPROG2CONDSTATUSNOFEATURENOLDMSGTERPRIMSGFILESPRINCQUOTEU*U.U;Loading ULISP 452DEFPROPVERSIONxALLOCHUNK4U:U*W'HUNK8 xSETQ*DEBUG-OPTIONS**ENV**TOPLEVEL-FLAGS**TOPLEVEL-VALUES* xUUDUMP-SETSUBR,8,8 ,,8,8PNPUT~%~A:W:U. p xPUTPROPT+INTERNAL-STRING-MARKERx,8,8F0",FORMAT<*READ g-,/0u*U,xH DUMPLexical Scope (T or W;D !()) p xx ,8*LEX* " U*U.wEditor JName (jname or ()) p xxu*U *EDITOR-JOB-NAME* " r Communication Filenamew8TCU p xx *EDITOR-COMM-FILE* " Script FilW;E$ename p xx *SCRIPT-NAME* " PrinlU*]nevel (fixnum or ())  !!"p ""x"x "*PRINLEVEL*!jU.w "# ength (fixnum or ())  #$$%p %%x%xu*w %*PRINLENGTH* "& UserDebug (T or &''"p ((xq)*w(x (*DEBUG* "( SysDebug ( ))p **xq)$Q*x **SYSDEBUG* "* EVAL $+*EVAL-BEFORE-DUMP* +(u%,GC,FEATUREITS,-z~Z -,2@j  $-,-,FLUSH $--,5 !.wSSTATUS. ,,8 .p //x/xFJ,8/,8g",SUSPEND</ $+*EVAL-AFTER-DUMP* 0,2L4S,-z~Z 4B%UDIR0z12z V9sw-,QE&RDEFAULTF2+)0zLISPV>z:7t,8",I#%<*UNDEFINED* $?%IN "?MU-SET@ $?%OUT!hw*u "@@MU-READ-EVAL-PRINT-LOOP AX -forget-macromemos|BIND-EVALUATION-ENVIRONMENTABxBACKLIST-ENVu:].WABxBACKLIST-FORMACxBACKLIST-PARENTACxERROR-FRAMEADxERROR-MESSAGEADxW+UjpERROR-DATAAExERROR-FRAME-PARENTAExERROR-FRAME-BACKLISTAFxFIXNUM?AFx7@ T@ "(B{ZFIXNUM0BGg ",x]8Ah :LIST?AGx,85B@ "+C7@ "H(B{ZLIST0BHg "/kUjP,xx >QUOTED?AHxMU-FORMATAIxMU-CHECK-ARGSLSUBR-00 ,8 0.+O ,N,8,8`LISTIFYA*RJ $I-,,8PRED&RESTARG-LISTKKLzG-Q( -,,X-,,8,8`",ERROR <L*EVALM+_1n+T ./,<AB@ "pJ/+T ",8 Z(,8,8g7@`+][`,8Cg5B[*]n `Wrong Type Arg MNNp OOxOx OMU-ERROR0O/Z` B`+W/ gA$R//,xToo few arguments supplied PWRNG-NO-ARGSP]:]. JDEXTENDAQxEXTEND-SLOTAQxEXTEND?ARx(B{ 0:uang ",x aDEF-DATATYPEARxMU-TYPEPu:].WASxMU-PNGETASxMU-EVHOOKATxMU-APHOOKATxDEF-DATATYPE-AUXAUxW+UjuDEFINEAUxDEF-SPECFORMAVxEQUIVALENCEAVxIMPORTAWxMU-IMPORTu:].PAWxDECLARE-TOPLEVEL-FLAGAXxBIND-TOPLEVEL-FLAGSAXxDEF-EVHOOKAYxCLOSURE-CREATE,8@ ,8 ,j,8,8,8m,8m,8,8(a#,8n",HUNK<Z,8MU-CLOSURE-PNGENZQC`,XI$R/,xMU-DEFAULT-EVHOOK[MU-CLOSURE-APHOOK[CLOSURE\]`  dCLOSURE?,8(B{ an+sZ` (0B\g "+t "/,x H nP PCLOSURE-DEFINITION,8Z/,x P uCLOSURE-ENVIRONMENT,8 [/,x X wPROCEDURE-CREATE,8 ,~,8 ,8,8,8,8,8",<Z,8Q@`%MU-PROCEDURE-PNGEN^QC`,X/,x[MU-PROCEDURE-APHOOK%t_PROCEDURE_ ` yPROCEDURE?,8(B{ AA an+Z`0B_g "+ "/0.@0,x PROCEDURE-DEFINITION,8Z/,x]0   SPECIAL-FORM-CREATE,8,8 ,,8,8,8,8,8,8,8",<Z,8SPECIAL-FORM-NAME %aQC`,X/,xMU-SPECFORM-EVHOOKbSPECIAL-FORM%hb   SPECIAL-FORM?,8(B{ an+@0Z`0Bbg "+ "/,xX P 0 ,8Z/,x  SPECIAL-FORM-DEFINITION,8 [/,x 8 SUBR-CREATE,8,8 ,%",8,8,8(,8),8,8,8)",(`0<Z,8SUBR-NAMEdQC`,X/,x% [MU-SUBR-APHOOKe @ SUBR?,8(B{ 0 an+/Z`0B g "+/ "t/,x X *SUBR-POINTER,8Z/@`X,x ` 0,8[/,x H 2,8`,8MU-EVAL $fZ`, $*g/5`0MU-APPLY$g 0 4,8c*`C`/0,,x 9,8,8 ,@,8f,8(``X,8g",LEXPR-FUNCALL<g/,x P <,8@,8`[Z,8,8  g*gQAD MU-BIND-ARGSh-, ,XMU-PROGNh,0/,x p A,8,8][Z,8,8*g~] & g*gh-, ,Xh,/NH,x 8 J`LAMBDA $i-,,x h TA:] $i-,,x ( VMU-BIND-ARG-, $-,,x  X,8,8,87@ HQ "(B{Z0BH+g gLENGTHj  ",<j,\3N+g "-,*w g-, $ number of args Mjkkp llxq lx lO+6@g+n4Dl "-,0Anq g-, $ Mjkkp llxlx l@ O+ "-,+ g(N{7 80@b0+q gi+ g-,,8 "-,,86@g+w g~-, +~[`[g-,QC`Z`5D{ g-,XC`Z`Zg B` Dg+t/0 -,/,x Z,8,80 ,,8,8,8",<I6@g+ $U*]nAttempt to SETQ ()? mmnnp ooxox oO(c$  gASSQo5B MU-GLOBAL-VALUE-CELL $p g=@d,85B g g-, &p $ g@ + g-,XC` `/t0,xSYMBOLPp MU-EVSYM,8-,4B (  `o5B $p `=5B `U*]nUnbound Variable qrrsp ssxsx sO Z/,x COMPLR-AUX-2,84B4B@0(B{ ang "/,x] @ MU-BOUNDP,8 ,#,8,8),8",<I (  `o5B( $p `=5B(7  : "/,xtH  COMPLR-AUX-3+X(DP *,8*BACKLIST* u  -,-,2-,u7B` "(B{Z $TP=5B2 "u*`C`/+]:\ h *SYMBOLvqTxMU-EVLISTHvTx,8[f,8 U(B{ `n+9 `Invalid functioU;\#nal type. wwxxyp yyxyx yO `Z;\#5B< ` wwxxyp zzxzx zO g*`E`/,xh 4,8,8[5BB*U.w gCan't APPLY this object z{{||p }}x}x@ }O,X*`E`/,x p ?P MU-APPLICABLE?,8(B{ an+I `[ W5BIg "/,xX EMU-CALLA~x,8Z`4BO,8` Bg[`f/G:W+K[`/"f  KQUOTE SPECIAL-FORM-INTERPRETERSPECIAL-FORM-INTERPRETER~x}.Z[,xh Q@a=xSETQ SPECIAL-FORM-INTERPRETER xZ,8@,8,86@g+V `+\[g0ZgZ Bg[ Fgf $ B` gAA>U@+T/,xx R@ a = xDEFUNDEFUN SPECIAL-FORM-INTERPRETERpQx,8Z[Z*,8MU-PROCEDURE `_ $ `@,X/,x ]@a=xF,87D+g  Y+g^/k@;u,x dLAMBDA SPECIAL-FORM-INTERPRETERixZ" h@iai=ixPROGNWwjpPROGN SPECIAL-FORM-INTERPRETERxZ"h( i@a=xCOND SPECIAL-FORM-INTERPRETERxZ,87@`+u[`(B{7 +p[`U*]nAtomic COND clause p xx ObA+s[`[f4Bs "+uZ` B` ;u+k[`Z/"h0 j@a=xLETWLET SPECIAL-FORM-INTERPRETERx,8Z[Z,8,8,8  ,86@`+} g+[`7@ "(B{0Z,80Bv+[g-, g(-, Bg+ 0BH+ [g[,8`[gZ[f,X-, g-,0*U Bg+ g~Illegal syntax in LET varW;D00list   p   x x  O/Z`A@b B`+{/-, ,XhA>U,/,xh w@a=xIFIF SPECIAL-FORM-INTERPRETERp  x,8Z[Z[Z ,8,8 1,8*f4B gf+ `h}*p/,x0 @ a = xUNTILUNTIL SPECIAL-FORM-INTERPRETER  x,8Z[Z,8,8*f,87@`+# `+& $f g, gfAA>U B`+!/,x@ @ a = xWHILEWHILE SPECIAL-FORM-INTERPRETERp  x,8Z[Z,8,8*f@,86@`+. `+1 $f g,@ `_ gf B`+,/,xP '@ a = xU8ANDAND SPECIAL-FORM-INTERPRETER x,8Z,8;,86@`+6@` g+:[`f Bg4B:Z` D`+4  >U "/,x` 2@ a = xOROR SPECIAL-FORM-INTERPRETERp x,8Z,8,87@`+B[`f Bg5BCZ` B`+> "/zU`,xp <@a=xDODO SPECIAL-FORM-INTERPRETERx,8Z[ZZ[ [(Z(,8,8,8,8`,8,8 ,8,86@g+N g +_[g B`4BQ(B{ an+T` `-, g-, Bg+^[``,8Zg[f,X-, g-,0 BgZ`Z4D^[[`-, g~-, Bg~Zg Bg+L/0-, `NREVERSE B` g~f 0Q4Be gh+h gh `MU-PARALLEL-SETQ p+b,/,x D@a=x,8-,4Bq[`[,8[gZf 00,8Zg,X,X@/,x]+@ iCASEQCASEQ SPECIAL-FORM-INTERPRETERx,8Z[Z " @,8,8f Bg7@ "(B{ZH ,80Bv+{MEMQ "+1BG+~FLONUM i$1B+~BIGNUM0B+MEM= "+ gU*]nBad key to CASEQ p xx O /,87@g+ [g[1B+  $ gE`4B[gZh+ ZgP p Dg+ "/,x r@a=x,8@R,8 "-,,87@`+MU-SUBR $R = "=[`,8 g~E`/ 4B "+Z` B`+ "/h ,x@  MU-OUTSTREAM-HANDLER,8,8,8WHICH-OPERATIONS0D+U)"ATYOCHARPOSLINELzRT=f+,0D+! 4. D , ,8,8*OUTSTREAMS*,8",<+, "  +,1D+#0D+%[B+, ,,*U*U,8 Bug: Please report this. Illegal outputU+]b SFA operation. 7 p   x x,8 *-,0@R g~-, $-,SFA-CALL $!-,,8",<L/,x P 5MU-READ-0,8*IBASE* "-,IBASEb " 5N1+:=N6 ,5,8 01Z ,8",READ<#+: ,:,8 Z ,8Z ,8",<#/0tR+J-MU-PRIN1,8,8 *$ E"Q (-,*SLASHIFY*$*PRINLEVEL-COUNT* %MU-PRIN%W /+8 ;MU-PRINC,8,8 *$F-,$ %%/+X ` @,8,8,< %..-, -,% g(N{6 8+M g (N{ 8an+O gMU-PRIN\ATOMIC&+} [g0F+V ,S,8,8~,8",<b! `Zg[%+}7H#+Z 3n @ +Zd g-,+} ,],8,8 a,8",< g-,,8,8 ,8 `(N{6 8+d `(N{ 80an+l7@`+h g~j $( `@ & ,k,8,8,8g}",< g~-,0H +|7B&+q g3n+q g~j  g~-,+|7@g+u ,u,8,8 0,8g}",< g~[`% g.. * Np "pZ` Bg D` Jg+`/@`5-,//+ ) '8qb '$8(8qb R,0(X E,8,8(B{ an@b+ d)Zg% , ,8,8),8g",`< `[g% `j*+' g(N{)" 8anb+ **OBASE* )-,Q(BBASE)*NOPOINT * ,,8,8g,8",QABPRIN1<*,+'6@g+d*+'@  g4N(N{ 8an+#7B$+1 ,,8,8g,8",<*+' ,",8b,8g,8",<+'d+ ,&,8,8g 0,8",<* `j- g/+0 `(<$ e_@|gb?'y[xWa?.@y <h MU-FLATSIZE,8,8 *.-,Q(@ 0*FLATSIZE* +*FLATSIZE-SFA* ,E` +/+5h 0 .MU-FLATSIZE-HANDLER,8,8,80D+6z<;`  +C0D+< 4.; +..-, P" U B++C "+C ,C,8UnSupported OpeU;\ ration --../p //x/x,8/*-,d g~-, $-, $!-, P,8",<L/,xH 3COMPLR-AUX-4[`Q@kPASCII0QC`,X+JDMU-EXPLODE,8 `5,8MU-EXPLODEN1 $0/+ FT*,8,8-,*EXPLODED*2*EXPLODE-SFA* 2E`A@kP 2/+ IMU-EXPLODE-HANDLER,8*,8,80D+Rz<;`+^0D+W  ! 4.V 2*-, B2+^ "+^;\  ,^,8 --../p 33x3x,83*-,d g~-, $-, $!-, P,8",<L/,x0 NMU-IMPLODE,8T!-,-,*IMPLODABLE*4 ,d,8*IMPLODE-SFA* ],85",<!/+@ _MU-IMPLODE-HANDLER*(,8,8,80D+hUNTYITYI66znm62+ Hb 0D6+l 4*-, B4+0D6 A+|6H4+p * J4 "(+ 4(N{*U7 8+t $IMPLODE ran out of characW;D1ters 778899p ::x:x :O+Z 4,84  J4[`,84By(B{ an+{ (b0 $$ `GETCHARN:+{ `/+;\  ,,8 --../p ;;x;x,8;*-,d g~-, $-, $!-, ,8",<L/,xX e ,,8 D ,86",<  -, " $&) -. MU-ERROR-RETURN "; $%-. *-,5*ULISP* < ,!,8 ,,8,86BH",< `P0B<+*BREAK-LEVEL* =4n% "U "MU-BREAK-RECOVER=+ ,,8,86~%;At toplU;\ already. >> ??p @@x@x,8@",< $; ! "+ `f,X,8 "?@  ` "@@ , ,8,86",< 6D,X# ,$,8,86",<,  + "+ ,+ P`1MU-BREAK-LOOP,8 =..-, -,=Q*w^QA ,.,8,86~%;Bkpt ABp BBxqdBx,8B",< 6,X& ,3,8*]n,86~%;Level ~D CCDp DDxDx,8D,8=i",<MU-BREAK-RETURN "E $5-. A+0*U ,8 ,9,8,86;Returning from BkptU;\" Level ~D~ EFFGGH:p HHxHx,8H,8=",<`!,X+ ',8 =5N> $Not iU*]nnside a break loop IIJJKp KKxKx KO @`0+? $E-,+ /,xXT X :,8,8 u*ERRFRAME* L "-,@`1* g-,-,-,LD6D<+K ,K,8,8g,8g,8[",<L@Unq+Z ,N,8,86~%; Lp MMxMx,8MH",< 6 g& ,S,8,86 Lpw  MMxMx,8M",< 6 `# ,Wd,8,86",<7B(+Y g@ $;  R "+ /+FAIL-ACTN]F!W x @MU-^B-HANDLER "NOINTERRUPTO7B<+_^B Opwcnq PPxPx P@+a Op PPxPx P%  0 "*BREAKQ,xh \MU-LEDIT-0,8  1n+l ,k,8,8J $Q-,0*TP0,8&OPTIONALJNAMEJNAME?RRSz7'C-,,X 3-,,8,8",<LM+4nn( Z(+o ",8,84nq F * Jg PROBEFS,87@`+w `QH`2DELETEFT S B`+s/ "bO7@g+{ `-, B6B+ U.w ,,8,86~%Editor Name: TUUp VVxVx 2),8V",< ,READLINEV B,-z~Z @T:-4B ,,8 EXPLODENWWz '$f*NCONC #XMAKNAMX,8",VALRET<Y+ ,B]n,8 ,,8CONT Yp ZZxZx ZW  ,8 W,8,8",NCONC<ZX F,8",<Y S,85B ,,8*U*U,86~%;Back to Lisp. No updates to load.~%w8@4 [[\\]]^^p __x_x,8_",< "+ $R LOAD "_= $,8 gE` gT   "///,xToo many arguments supplied "*K:`P`axg$fJaMU-^E-HANDLER ,<Q]  MU-^X-HANDLER,8 "O,XCLEAR-INPUTb7B<  *U+, =5N' ,',8,86;Quit at toplevW;Del~% ccddp eexex,8e",<++ ,+*U.w,8,86 at break level ~D~% ceffgp ggxgxh@0,8g,8=",< $; "+ ,/@a$],8,8/",<L,xQUITh IU+U.W1+ TTYINTh$ih2hi.jhxFUNCTION.jjkNx.jkkaxW+]$.jllx .jlkbx.jiixMU-GC-OVERFLOW-HANDLER ",xP 0R :MU-ERRSET-HANDLER $; "+ X 1MU-MACLISP-ERROR-INTERPRETER-,QFARGSn "ERRFRAMEo-, [ZZ[,8,87H<+;[u gO@5.w+@ ,?,8,8A~%;~S ~A~% opp ppxpx,8p,8n,8",< ` "Q/0 1+` 2MU-PDL-BREAK-,ni`U7D<+GSTACK= $q-, $Stack OverW;D1flow rrsp ssxsx sO+L ,K,8 ;\ ,8Mflow~ ort:p ttxtx,8t[,8",*]n<PDL Overflow uuvp vvxvx v "*UQ+ BERRSETGC-OVERFLOWPDL-OVERFLOW*RSET-TRAPU*U.UGC-LOSSAGEIO-LOSSAGEUNBND-VRBLUNDF-FNCTNUNSEEN-GO-TAGWRNG-TYPE-ARG wkmwkmxkqxNknyknyknzknzkn{knPkn{kn x@MACROU*U*U'+INTERNAL-'-MACRO;+INTERNAL-;-MACROSPLICING|+INTERNAL-|-MACROSETSYNTAX,U+U#A#`h.ihh|.|h.|}}.|~~.|xMU-"-READMACRO*TYI,8 3,8 `0N+U gX (,8` -, $@,X+[0N+W@ B` g,8 g-, Bg,Xg.P+O/,x 0 M".|kxMACRO-CREATE,8B ,a,8,8,8d,8,8,8eBF",<Z,8MU-MACRO-PNGENQC`,X/ ,xMU-MACRO-EVHOOK| H \MACRO?,8(B{ 0 an+jZ`0B|g "+k "t/,x ` eMACRO-PROCEDURE,8Z/L:,x h l[,x P nMU-MACROEXPAND,8;*`-, $,X$g p o"f]8 X sMACRO SPECIAL-FORM-INTERPRETER|x,8Z[Z*,8@0 $ `@,X/,x_+U. x t@|a|=|xMACROP@dxMACROEXPANDMACROEXPAND MU-SUBR x,87@ H "(B{Z0BH+ [`4B(B{ 1 an+ [`t4B [`fDa,85B g-,+ g ` /+ `-,/zUj,x! {@d=xMACROFYMACROFY MU-SUBR  xCOMPLR-AUX-5,8` 005B `\5B `e/,xX!(  ,8 ,,8,8,8",<I,X/U." ! @ d=  xDEMACROFYDEMACROFY MU-SUBR  x,8 ,@%,8,8,8",<I,X"!8 u0@ d=  xTRACED-CREATE,8,8 , ,8,8,8# 0Q,8$,8,8,8$",<Z,8TRACED-NAME @J%QC`,X/,x[MU-TRACED-APHOOK TRACED%h !@ TRACED?,8(B{ an+*@0Z`0B g "+* "/,x]`X!` %TRACED-PROCEDURE,8Z/,x!h +,8*w[/,x!H -PUSH*TRACE-LEVEL* x. x(d0,8,8MU-TRACE-ENTRY-PRINT ..-, -,1`00 ` gg, $G:w,X/MU-TRACE-EXIT-PRINT$!P /Enter p xqanqx,8,8 ,X p xx (w.w $,XMU-TRACE-ANNOUNCE(" 8+- p xx nq,8,8 ,X -> p xx `` $,X(" <,<,8,8,8@@1,8 ,E,8,86",<,8V `3O +J 6jW.. Np "p B`+E/0@ ,N,8,8g~,86",< 6 g@# ,R,8,8g,86",< 6 `@`0#,X-,//,x .]*p.|p"( (@TRACEDP@dx*TRACE*TRACE MU-SUBRx,8D,8e5B\ g`5B\ g\4B^ !*w ` g +` g trace thi z||p xq ux O/,x"` W@d=x*UNTRACEWb*UNTRACE MU-SUBRx,84Bd `+e `U*]n untrace this object zp xx O}*u/,x# a@d=xTRACETRACE SPECIAL-FORM-INTERPRETERxCOMPLR-AUX-64! ,i,8,8o,8g",<I $ "= ,8 gf gE` $*g/,0$@p#HJf,8 $Z/+5zUj#@ p@a=xUNTRACEUNTRACE SPECIAL-FORM-INTERPRETERxCOMPLR-AUX-7 ,u,8hC,8{,8g",<I $ "=,8 gc%fC` $*g/$@p#`Jr _,8 $Z/+#X {@a=xPaARRAY-CREATE,8 , ,8,8,8 ,8 ,8 0,8 ",<Z,8MU-ARRAY-PNGENQC`,X/0I$],x[MU-ARRAY-APHOOKARRAY #h ~ARRAY?@ ,8(B{ an+ Z`0B g P P "+ "/,x$  ARRAY-STORAGE,8:Z/,x$  !ARRAYDIMS!Z@a#],x#p  ,8!,X*APPLY$"#x  MAKE-ARRAYW@MAKE-ARRAY MU-SUBR"#x-0,8 4N J+   ",8 , ,8,8 ,8,8 ,8L "",<g/,x*ARRAY#_+U.$0J @"d=""xARRAYP@$d $xSTORESTORE SPECIAL-FORM-INTERPRETER$%x,8Z0[Z[*,8f*`f,XA>U-, /,x$P  @$a$=$xASETASET MU-SUBRp %&x-0,8 4N (J+ ) ",8[Z[Z ,8,8,8 , 0@,8,8 4,8",<I g!,X" _ g-, /,x $`J %@%d=%%xU8 AREFAREF MU-SUBR&'x-0,8 4N 7J + 8 ",8[Z,8,8 , =,8`0,8 @,8",<I g!,X"/0}*p,x $pJ 4@&d=&&xMAKE_ARRAYMAKE_ARRAY MU-SUBR'(x-00&,8 4N DJ+ D ",8[ P(1DG+ N1D+ N1D+ N4D N(D{ 0*Uan + M $Bad args to MAKE_ARRAY. MU*Unqaybe you want MAKE-ARRAY. ())**++,,-p --x-x -B]nO+ N $AY. ())*.p ..x.x .O  , S,8,8 T,8,8 UZg~,8",A@D_<g/,x#%J A@'d=''xW ARRAYDIMS MU-SUBR!/x,8 , Y,8,8 [,8",<IM4_,X!! $*APPEND$/ %p  U@!d=!!xPMU-PP\INDENT,<,8,8 , `,8,8",@<,8 j `3Og+ h , e,8,8 j,8g~@ ",< `.. Np "p B`+ ` "@D]//,x.(&  \MU-PP\AUX@,<,<,8,8(B{7  0+ p g#+ 6 g(N{ 8anD+ }d 7 , v,8Zg,8,8",<0 , y,8,8 8,8g",< `[g0P A `j 8 "+ 6[g0B+  , ,8`,8 9,8",< `Zg[0+ 6  $# g+,8 , ,8,8g",<@0,< , ,8,8g",<,\/,X@"20(+ 4 `h 9 , ,8,8",<0 Np &p $ [g,80[g(B{6 0@+  `/. g,< "p0/0/Zg,8 , ,8,8g", < Nw *w,8,8 g(N{6 80@`+ $ g(N{ 8an+ *7@g0 + ( g~j : $( g# g~j : "+ 3 g~j ;7@g+ / `.. $(,<A@ "p0/ g~[g0 *Zg  Bg Jg+ /+ 6 ` g#@//,x `(<'*p8&  kPPPP MU-SUBR11x,8  , >,8,86",< 6,X0 , Bh u,8,86",< "6,x&  ;@1d=11xBREAKWBREAK MU-SUBR22x,8,84B F*@/z\,x&(  C@2d=22xERROR MU-SUBRL3x-0,8  E4N JJ+ J ",8Z5D N[ErrorU;\# Signalled 344p 55x5x 5O+ O[AA>W[O/,x&0J G@Ld=LLxQUIT MU-SUBRh5xoU` ,<h&X  P@hd=hhxEVAL MU-SUBR+6x,87@7 @05 "-, ,Xf+&`  Qu+@@+d=++xAPPLYAPPLY MU-SUBR67x,8,8 , Z,8,8 ] 0,8",<I $,X/ $,X$g%z]*uR&p  V@6d=66xAPPLICABLEP@7d}7xMAPCARMAPCAR MU-SUBR88xCOMPLR-AUX-10 #X-0J $FN 9$g'J ]-00&,8 4N cJ+ c ",8-,1@9[ D9Z,8 , j,8,8 o ,8",<I , m,8,8 o,8 p,8g~", "<g,/,x}89_+@1'J `@8d=88xCLOSURE MU-SUBR\:x,8`4B t ``D  Y+ y `\4B w `-,*U*U+ y `Arg must be a procedure or closure.w8F :;;<<==p >>x>x >O/,x'  pu:]*p@\d=\\xCLOSE-IT@>q\xCLOSE_IT@?q\xTYPE-OFTYPE-OF MU-SUBR?@x,8  7@ "(B{Z,80BG+  "G A + 0B+  "+ 0B+  "+ @4A 0Bv+ 6@g7 NULL "@+ 0BH+ R$PAIR "A+ 1B + RANDOM0BA+ 7 KuZg/,xvA(  z@?d=??xATOMW ATOM MU-SUBRBBx7@ "(B{Z1BHg /U` ",x((  @Bd=BBxSYMBOLP MU-SUBRpCx,84B 4B @0(B{ ang "/,x_+Uju(0  @pd=ppxPAIRP@CdCCxLISTP@DdGDxNUMBERP@DdDDxFIXNUMPu+U.U@EdFExBIGNUMPBIGP@EdFExFLONUMPFLOATP@FdGFxINTEGERPFIXPu;Uju@GdHGxNOT@HdHHx@@d@@xCLOSUREP@Id\IxPROCEDUREP@Id`IxSPECIAL-FORMPu:U`@JdcJxSUBRP@JdeJxBOUNDPBOUNDP MU-SUBRKKx,8 , ,8`4_,8 ,8",<I,X"tp)8  @Kd=KKxW:]juCONS@LdLLx@HdHHxREVERSE@LdLLx@jdjjxNTHCDR@MdMMxAPPENDu+T@MdMMxRPLACARPLACA MU-SUBRNNxCOMPLR-AUX-117@ "(B{Z200BHg ",x)p ,8,8 , #@0,8,8 %,8",<I,X-,QC`jW,X+O)h  @Nd=NNxRPLACDRPLACD MU-SUBROPxPdCOMPLR-AUX-127@ "(B{Z0BHg "@,x* &,8,8 , .,8,8 0,8",@2<I,X-,XC`,X+P_(*  *@Od=OOxMU-CAR,8 , 4,8,8 6,8",@KP<I[`/,xC*  1MU-CDR,80 , :,8,8 ;,8",<IZ`/.Uc_,xC*  6CARCAR MU-SUBRRRx"Q*(  <@Rd=RRxU8wjWCDRCDR MU-SUBRSSx"Q*8  <@Sd=SSxCAARCAAR MU-SUBRTTxoU.Q"Q*H  =@Td=TTxCADRCADR MU-SUBRUUxQ"Q_*\3_*X  >@Ud=UUxCDARCDAR MU-SUBRVVxQ"Q*h  ?@Vd=VVxU8g>UCDDRCDDR MU-SUBRWWxQ"Q*x  @@Wd=WWxCAAARCAAAR MU-SUBRqLwjWXXxQQ"Q+  A@Xd=XXxCAADRCAADR MU-SUBRYYxN}*qQQ"Q+  B@Yd=YYxCADARCADAR MU-SUBRZZxQoU.Q"Q+(  D@Zd=ZZxCADDRCADDR MU-SUBR[[xQQzUc"Q+8  E@[d=[[xCDAARCDAAR MU-SUBR\\xQQ"Q_*\3+H  G@\d=\\xCDADRCDADR MU-SUBR]]xQQ"Q+X  Hu+F3_@]d=]]xCDDARCDDAR MU-SUBR^^xQQ"Q+h  J@^d=^^xU8f;uCDDDRCDDDR MU-SUBR__xQQ"Q+x  K@_d=__xCAAAARW f;uCAAAAR MU-SUBR``xQQQ"Q,  M@`d=``xCAAADRW f;uCAAADR MU-SUBRaaxQQQ"Q,  O@ad=aaxCAADARW f;uCAADAR MU-SUBRbbxQQQ"Q,(  Q@bd=bbxCAADDRW f;uCAADDR MU-SUBRccxQQQ"Q,8  S@cd=ccxCADAARW f;uCADAAR MU-SUBRddxQQQ"Q,H  U@dd=ddxCADADRW f;uCADADR MU-SUBReexQQQ"Q,X  W@ed=eexCADDARW f;uCADDAR MU-SUBRffxQQQ"Q,h  Y@fd=ffxCADDDRW f;uCADDDR MU-SUBRggxQQQ"Q,x  [@gd=ggxCDAAARW f;uCDAAAR MU-SUBRhhxQQQ"Q-  ]@hd=hhxCDAADRW f;uCDAADR MU-SUBRiixQQQ"Q-  _@id=iixCDADARW f;uCDADAR MU-SUBRjjxQQQ"Q-(  a@jd=jjxCDADDRW f;uCDADDR MU-SUBRkkxQQQ"Q-8  c@kd=kkxCDDAARW f;uCDDAAR MU-SUBRllxQQQ"Q-H  e@ld=llxCDDADRW f;uCDDADR MU-SUBRmmxQQQ"Q-X  g@md=mmxCDDDARW f;uCDDDAR MU-SUBRnnxQQQ"Q-h  i@nd=nnxCDDDDRW f;wCDDDDR MU-SUBRooxQQQ"Q-x  k@od=oox@dxW:]*pMEMBER@pdppx@odooxASSOC@pdppxHASHHASH MU-SUBRqqx,<0 ,8,8 , q,8,8 w,8",<I  gSXHASHr#` Np *p,X "(REMAINDER _r//,xH.  m@qd=qqxU8DISPLAY-PLISTDISPLAY-PLIST MU-SUBRssx,8 , {,8,8 ,8",<IMU-PROPERTY-LIST $t `=Z,84B  , *U*U,8,86~%Property list for ~S~%Name Valuew8@ tuuvvwwp xxxxx,8x,8g~",<,8`7@`@@2+  , ,8,86",< 6[`#@2 , ,8,8 ,86",< 6Z`[0Z`Z B`+ /+  , *U*w,8,86~%~S has no properties.~% xyyzzp {{xq {x,8{,8g~",</ "/0I>U,xp{.8  w@sd=ssxPUTPUT MU-SUBRp||x,8,8,8 , ,8,8 %,8",`<I $t g=,84B  g g@ + # g-, g-, $-,20 &t $ g~ g-,/0}.,xp/H @|d=||xGET MU-SUBR=}x,8,84 , *,8,8 4,8",<I $t g= Z,87@`+ 2[`2Bg+ 0Z`[@0+ 3Z`Z B`+ , "/,x%z].Wp/P  &@=d===xEQ@}d}}xEQUAL@~d~~xMINUSP@~d~~xW+]juZEROP@dxPLUSP@dx@}d}}x@~d~~xALPHALESSP@dx= MU-SUBRp x,8,8 , 9,8,8 S,8,8", <I g(N{ 8an + @ `(N{  8an + @ ` g~+ R g(N{ 8`n@+ E `(N{ 8BFan@+ J gFLOAT `,:2NhBg "/+ R g(N{ 8@` `n + O `(N{ 8an + P "+ R g2O`g "/,xD_+].W0  4@d=xGREATERP@dx@2qxLESSP@dx<@qxW+T0IMPORT-WITH-DOWNWARD-COERCIONAxIMPORT-WITH-DUAL-COERCIONAxMATH-COERCE-UPWARD,8-,,8@ 6@`+ W g-,+ ][g(B{ 0an@+ \ $ g,+ ]Z`A@kP B`+ U/+0@  SMATH-COERCE-DOWNWARD,8 (B{ an@+ g `FIX,802Og+ e `+ f g-,/0@ + h `-,/,x0H  ^w*\@dx@dxTIMESTIMES MU-SUBRx-0,8  EC4N lJ+ l " $ ""/{U."0`J i@d=x@6qxPLUSPLUS MU-SUBRx-0b@!,8 4N rJ+ r " $ ""}.U/"0pJ o@d=x+@qxDIFFERENCEDIFFERENCE MU-SUBRp x-0,8 4N xJ+ x " ;u $ ""/"1J u@d=x-u+@`@ qxMINUSMINUS MU-SUBR  x-0,8 4N ~PJ+ ~ "[ /"1 J {u:U`0@ d=  x~@ q xSUB1SUB1 MU-SUBR  x-0,8L( 4N J+  "[ /z]*p"18J @ d=  x1-@ q xADD1ADD1 MU-SUBR  x-00&,8 4N J+ "[ }jW/"1PJ @ d=  x@iq xDIVDIV MU-SUBR x0,8,8 , ,8,8 E,8 Bg~ g~,8 Bg~",<I g5.  `5. " 0 $ " =,8 g ,8 g  $,XE`/+ D g5. " $!@ " =,8 g gE` /0@(C+ D `5. ) $ " =,8 g $ gE` /+ D g(N{ 8an + 0 `(N{ 8@aan + 0 g&`-, + D gIFIX` `,<,\& g,<  `,:,: p-, h,: h3no+ @ h2no+ = p-, + ?"onh>p+ :-,+ B:p  onh+ 9//-,ju/,xD1`  @ d=  x%@q xQUOTIENTWQUOTIENT MU-SUBRx,8,8 , J,8,8 O,8,8@`",<I g,X,:,Z _ -, /,xD2  E@d=xW*\/@qxDIVIDEDIVIDE MU-SUBRx,<,:,8,8 , U,8,8 f,8,8",<I@ g `,:,Z g Ph`,X,<,\& *h Pp (p`,8,8 " 2N(+ c " -,@`0+ d "(-,///0}.W,xD2  P@d=x!@qxREMAINDER MU-SUBRrx,8,8 , k,8,8 r,8,8",<I"  $ " = `,8 gE` g*TIMESF $*g*DIF/"D_+U.2(  f@rd=rrx\@qrxGCDGCD MU-SUBRx,8,8` , y,8,8 {,8 Bg~ g~,8 4_ Bg~",<I,X,X$D2P  r@d=xW*\\\@qxSINSIN MU-SUBRx-0,8  E04N ~J+  "[,: "hA>U//,x2hJ {@d=xCOSCOS MU-SUBRp x-0,8 4NJ+ "@[,: "h//zU`0,x2xJ@d=xATANATAN MU-SUBRx-0,8L( 4N J+ "Z[[ ,: "h//,x3J u+@`@d=xSQRTSQRT MU-SUBRx-0,8 4NPJ+ "[,: "h/0jp/,x3J@d=xTYO MU-SUBRx,8@00 ,,8,8,86",</,x_+B3 @d=xTERPRI MU-SUBRx ,!,8,86",<z\ ,x3( @d=xPRINC MU-SUBRx 6,8&,X/Ub+30 "@d=xPRIN1 MU-SUBR*x 6,8#}*p,X+38 $@*d=**xPRINTPRINT MU-SUBRx,8  ,*,8,86",< 6 `# ,.H2,8,8/,86",<,X+(_*\ 3H '@d=xPEEKCHPEEKCH MU-SUBRx ,TYIPEEK,<AA>U "p0/,x3X 0@d=xREADCHREADCH MU-SUBRu}.x*READCH 3p 3@d=xTYIPEEK MU-SUBR x ,<_+G>W4 4@d=xTYI MU-SUBR6 x 4 5@6d=66xREAD MU-SUBR#!xoU. ,<!4 5@#d=##xIMPLODEIMPLODE MU-SUBR!"x"44 6u+G>U@!d=!!xIMPLODECIMPLODEC MU-SUBR"#x"!40 7@"d=""xEXPLODECEXPLODEC MU-SUBRr}*r#$x $&$14@ 7@#d=##xEXPLODEEXPLODE MU-SUBR$%x $#zU`$14P 8@$d=$$xGENSYMGENSYM MU-SUBR%&x ,<%4` 9u+G>U@%d=%%xCVTACVTA MU-SUBR&'x"04p :@&d=&&xCVTNCVTN MU-SUBRr}.'(x $$$:5 ;@'d=''xLOAD MU-SUBR_(x-0b@ ,8 4N?J+? ",84BBjA`U1n+E ` "_-, $ to LOADw8F Mjkk))p **x*x *O[`Z`[,8 ,8 ,%,8 "-, " 2@`U g5 BgS,85BO g~File not fW;D: ound *++p ,,x,x ,OIN ",-,0@`0 g~-,-,,8,81R-.+Z g|FILEP-5BXSFA,-zFUBFQ4BY g|SFAP.4BY g|CLOSE.T ,x *-,+INTERNAL-WITHOUT-INTERRUPTS /Zgy,8gy Dgy``0[`OPEN "/"/, Bgy E" *-,INFILE0ECHOFILES0 A7@gw@U*W+i ,i,8,86~%;Loading "~A" ... 1122pw3Q 33x3x,83 gwNAMELIST3SNAMESTRING4 ,8",< ,l,8,8gx,8gw",<! ,8 `2Bgw+u7@gw+t ,t,8,86U+]b of "~A" done.~ 11455:p 66x6x,86 gw3@AS4,8",< "+7@gw+|f,8 ,z,8,86",< 6,XL #+|f ,,8,8gx,8gv",<!A@`0 B`+l/,-.,0jr/,x5J<@_d=__xGC MU-SUBR,6x "QM>UGCTWA7, ",x6h @,d=,,xLPR-ONLPR-ON MU-SUBRp 78x-0,8 4N J+ "@!.w,84B Z4D *PR-ON Mjkk)8p 99x9x@  9O7@`+[`+ ,8*SCRIPT-STREAM*P)"7D9+ "+ *^R J: ,,8@d 1,8,8",</ B9 -, BD" 0 9-, B0  9-,A$_ B "/,xOUT:7J@7d=77xU8B"QLPR-OFFLPR-OFF MU-SUBR;;x 94B'@@: *DELETE<d" B 0 9< B0  9< BI>W 9.@@9 ",x78 @;d=;;xRANDOM MU-SUBRA<x@ ,8 ,+,8,8.,8",<I ,-,8 _,8g",<A/,xH7H '@Ad=AAxU8%SETRANDOMSETRANDOM MU-SUBR==x,85B9DATE>z85 ,8RL0!DAYTIME>ziE|5 $,X/ $ "6"  -, $-,-, $A-,1D2.+B7@ "(B{Z0BGH+A `-, $-,-, b U $A-,.+B `Arg to SETRANDOU*UnqM must be a FIXNUM or () ??@@AABBp CCxCx CjWO/,x7X /@=d===xPRINLEVELPRINLEVEL MU-SUBRCDxB ,80B+F #+M4BI7@ "(B{ Z0BG+K `-, B#+M*U*W `o PRINLEVEL musa fixnum, (), or T ?DEEAFFGGpw``_ HHxHx HO/,x8@ C@Cd=CCxU8PRINLENGTHPRINLENGTH MU-SUBRHIx,80B+P &+W4BT A7@ "(B{Z0BG+V `-,1*U B&+W `NLENGTH must be a fixnum,U;\# (), or T ?DIJJKKLLp MMxMx MO/zU` ,x9 N@Hd=HHxINRADIXINRADIX MU-SUBRMNx,80B+[A "+d7@ "(B{Z0BG+` U `1.+`1n+b `o INRADIX must U*Unqbe T or fi 1 < x < 37 ?NOOPPKQQRp RRxRx R@ 0O+d `-, B"/,x_*\ 9` X@Md=MMxOUTRADIXOUTRADIX MU-SUBRSSx,80B+g )d+p7@ "(B{Z0BG+m `@!*U1.+m1n+o `o OUTRADIX must be TU*Unq or fixnum, 1 < x < 37 ?TTUUVVWWXp XXxXx X@ 0O+p `-, B)/,x_*Unw:8 e@Sd=SSxCOMPLRSPECIAL*DEBUG-LEVEL* ,YYZxKZ Z.x ,YY xK  xW+UjDEF-DEBUG-OPTIONAZxMU-CALL-DEBUG-OPTIONA[xMU-DEBUG-CURSORA[xMU-READ-DEBUG-COMMAND,<,< ,u,8,86",<6 Nw *w ,8 (1.0+{0n=+{/. Np "p +{ "(0//,x;@ qP@U.wMU-DEBUG-1 ,,8,86~%[Debug] ]]p ^^x^x a$,8^",<\,8MU-DEBUG-OPTION $^=,8AR4B@+ g?1B_+HELP0B_ *U+ 6j "+ )DB@0``aaz :$f5B 6j "/,x4h  xgd|;qJxe_xOcxc }x;H }PMU-DOCUMENT-DEBUG-OPTION,8 ,,8,86",< ,,8t@,8g,86",<MU-DEBUG-OPTION-DOCUMENTATION $b,X=,8  4B 6j ,,8,8,8",< `+ 6j! "/,x4xOd`:|;qJxc@|?rJ|'qG< MU-SHOW-BACKLIST-FRAME,8 u@! ZM,8Z5D) 6j0++ Z  5N+ 6j2 ,.,8,83,86",< 6[`Eg/,x qJ|SqFujWSqH{<0 $EDIT@cdQcxDEBUGDEBUG MU-SUBRddxR @1MU-DEBUG-EXIT "e $9-. *.-, Z AF "; $9-. \+ +6 ,<*U*w,8,86~%;Debugger Terminated.~% effggp hhxqh uhx,8h",< ",x0 AU*]nwExits the debugger. uvvwp wwxwxrwbxr xU8 *UHH MU-DEBUG-OPTIONxx^x ,H,8,86~%Type a char tU*Unqo doc or "*" for all: yyzzl{{||p }}x}x,8}L",<\,80B6+P,8 7@`+N@@0[`bZ` B`+K "/+P*Ub/,x? EDescribes 1 or all cW;]jWds. }~~mp xxxbxx xFF MU-DEBUG-OPTION^x)!,< * (j,8u,8h-,"# &7@g+f ,Y,8,86",<B `2OZ+\ 6ji+] 6ji ,`+]b,8,8~D. p xx,8,8g~",`< 6[g# `.. Np "pZg`0 B` Dg+U "/,/0:U,x.<@ QPrints out all U*U*wstack frames in abbreviated form. p xw:Ud xbx x.. MU-DEBUG-OPTION ^x * (j-,1 ]# & "#c+A js curU*U.wrently selected stack frame in        p   x xw+H;U bx xT MU-DEBUG-OPTION ^x "#"cAX nTypes out U*U*Wcurrently selected stack frame normally. pw;U.! xxbx xPP MU-DEBUG-OPTION^x "0"c]*U*UB@ oPretty-Prints currently selected stack fW;]jWrame. p xxbx xDD MU-DEBUG-OPTION^x  u ZMZ5Dv ,u,8,8z,8D@",<+x Z..-, BZ $^!A*W "=`lC pGoes down one s npw;U. xxbx xUU MU-DEBUG-OPTION^x Z5N@1 ,~,8,8,8",<+/.-,1] BZ $^ "=`lCP zup onU+]nue stack frame. p xxbx xGW*UG MU-DEBUG-OPTION  ^x ,,8,86~%Go To Frame Numberw8@4 !!""|p ##x#x,8#",< *a-,@`0 ",8 `(N{ 8anb+ `4. `(N{ 8`n + U*w ,,8,86id strame number. w#$$%p %%xqb %x,8%",<+ u `M,8@]n5B ,,8,86 w#$$%p &&x&x,8&",@HC<+ g JZ $^ "=@/0 :U/+D Asks for ae numU+]nuber and go it. &''((])p ))x)x )bx  xEW"UE MU-DEBUG-OPTION**^x6BL+! ,!,8,86~%No PendiU;\ ng Error ++,,p --x-x,8-",<++ U.w ,$,8,86~%Error Message -..|p //x/x D1,8/",< 6[L# ,),8,86U+]bor Data:  -/00p 11x1x,81",<a:U LZ 6#,xE( s error informaw;].! 122 p 33x3x*3bx* xA MU-DEBUG-OPTION3^x *. JZ" *w $^ "=`F8 +to top of 44np 55xw:Ub5x5bx xZZ MU-DEBUG-OPTION56^x uj/. 0]-, BZ $^ "=`F` .to boU+]nuttom of stack. 6778p 88x8x58bx5 xBWFB MU-DEBUG-OPTION99^x u ZMZ u,8 ZE.wM-,p uDebug :p ::x:x@` :@ ,0N+<+= "W*U/+G 3 debug breakpoint atU;]nu current s o;;<<==np >>x>x9>bx9 x.,x_u*]jU.>x*RSETNOUUOMAKHUNK )a"a*??@x@xSFA-CREATEExplode HaW;U*Wndler AABp BBxBxFlatsize Handler CCDDpw+]jU EExExImplo EABp FFxFxOutput Handlerw:]nw FGGp HHxHxNCONS .p IIxIx u=.(L+02@3.B,@,.E"a5@5.F)a6@.HH&#%.9$*.<>Ix;