;2e((UA##MACROSUBR,< ,TYIPEEK,< "pQAA$ ASCII,8,8/0B+*TYI 4A*READCH+",0B+ *READ 4AR*EVAL+"t1B+ T0B P4A+  "+"Q0B+ D00 *-,IBASE ,+"Rt@1X0B+ *-, 4A,+"^0B +$ .A Nw "w+"=0B +!@&1 ,0N++" 5+" " Bg,87@g+'-,ARGS00p Random after # $ "*BREAK ,+'@`]-,//,xDEFPROPU+@@@ MACROMACRO xZ[Z[Z (t@0**SUBST PROGN $-,,x]+@H)*PUSH*PUSH MACRO  x,8Z[-, $Z`Z[-,PUSH $-,u./,xp.ADDLADDL MACRO  x-,Z[Z[ " -, $-,5 RMEMQ $-,-,NOT $`-,,8 " -, $-,R@`CONS $-,-, $ -,R@`SETQ $-,-,,X-,RA:WIF $-,,x4>=>= MACRO  xRG:W< $Z<=> ify$@D<=<= MACRO  xRv> $Z$`F,<,8LENGTHR Np *p,8,8 (5NMQUOTEzCfFl<Td+c=NPz /QrzH[g-, $-, 0+c (0N+U g g-,-,2B0 $-,+c g-,,8!#R,8Zg5B[ `NREVERSEAND $`-,+b[-,[g-, @0 g~-,-, $-, `0-,Zg B` Dg+W//0*p/,xPGNOT=NOT= MACRO  x,8@2-, -,Z`[-, $ H-,-, $-,/j\,xdWHENWHEN MACRO  xZZZ[T@0-,-,COND $-,,x]+@(kUNLESSUNLESS MACRO  x,8Z[-,  $-,Z`Z-,-,  W $-,/,x@oIF MACRO  x,8ZZZ5D}-, -,@dZ`[-,-, $-, +-, -,Z`[-,Z`ZZ,8 "-,-,`0,X-, $-,/,x]+A" HvSQUIDSQUID MACRO  x,8COMPILER-STATE7D+ B@QC` `-,+ "QC`7@`+`0Z`,8[QC` g-,/0P U+ "/,xXCOPYCOPY MACROp @2  xZ[-, $-, $ U-, $ -,,xpCOPYPCOPYP MACROpj  x,8Z[-,CAR $ -,0j ,8Zg[-,CDR $!-,0d-,,X-, $-,u.(/,xCOPYLCOPYL MACRO !" xz :wZH[-,APPEND $"-,,x !U82SPECIAL-INITSPECIAL-INIT MACRO ## x,8Z[-, $T@0-,-,BOUNDP $$-,-,2@ $-,,8ZgZ[-,0 @0Zg[-, $-,-,0H,X-, $-,/j\,x8$PRINC0PRINC0 MACRO $% xZZ,8CURSORPOS  @0 "%-,-, $!-,-,5 @0 $&-, $ -,-,2@R $-,Z`Z,8TERPRI "&@ -,-,,X-, $-,0HZ`,8PRINC "'-,-,`0,X-, $-,/,x]+A$P3STRING-APPENDSTRING-APPEND MACRO '( xZLIST "(-,) j -,EXPLODEC)z <>h$-,MAPCAN $)-,0H-,MAKNAM $*-,,xEU8VALRET*VALRET* MACRO *+ xZ "'-,-,R@j(VALRET $+-,-,TTY-RETURN,z =Os-,5 ULET $,-,,x0KCLEANUP-LSPMACFSUBRi ,85BSCHMAC. zPKG*% J` `4J\[(Z ( DD0H.+T,8g7@`+[ & $ [`SETSYNTAX `.Z` B`+W/ `4Jd[( Z (0H +\,8g7@`+c $ [`REMPROP j"/Z` B`+_/EXPR $/ "-) j/NOFEATURELSPMAC00z1`@/SSTATUS>1#UU*U&!122xAdfLAMBINDPROGBSEQLAMCATCH*THROW*FILE-LENGTH-k^ 334455!#$'* xoB*aP-QFEATURE160x;