;"M@(U*U*UPROGNCONDSTATUSNOFEATURENOLDMSGTERPRIMSGFILESPRINCPNPUTU*U*uQUOTE;Loading LISPM-COMPATIBILITY 8pSETQu*]*U xDEFPROPT+INTERNAL-STRING-MARKER  xALPHALESSPLISPV2071LISPM-COMPATIBILITYU*U*W8VERSIONPUSHFUNCTIONLAMBDAXORFILE-EXIT-FUNCTIONS       xU:UjWSSTATUSFEATURE xFLUSH-MACROMEMOSDOLISTxDOLIST MACROMACRO xU*U*UMACROFETCHLENGTHWrong number args for macroERRORInvalid binding spec for U;]*UDOLISTp x  xGENSYMCDRNULLCARU(DOMACROMEMOSUBR,85B- `0.@ + ,,8,8.,8g",<Z`[aZ,8,8(D{6 +Zg(D{6 +ZgZ5D[ g4H(H{"  `n+ ,,8,8/,8g~", < , $[gZg[,8 "`0,8-, $-,-, g -, `-,,8 "-, -,,X-,,8 g-,  2 $-,-,*g-, $@ -,-, $-, $ -,0@ g~-, g-,,X-,2@d $-,/ & $ `KW/,x0ONCE-ONLYxW*U*WONCE-ONLY MACRO xbad variable list in once-only !pw*U*U !!x ! xLISTMAPCAR*APPENDSYMBOLPGETNOTANDU*U*PATOMMEMQASSQCADRRESULTNREVERSELETIF,8@`5B> `0.+6 ,6,8,8? ,8g",<Z`[Z,8,8(D{`6 +C,8g,87@g+B[g@  B`4B@(B{ `n+@ " +BaZg Bg+; "/4BF ,F,8`0,8@,8g~",< ,,8 ,@ ,8 ,M,8,8@,8g},8g}",<"z :wJ,8 g-,z .{ :H,8 g-, -,,X-, $,X#,8,8 "`,8,8g}7@`+ [`,8 P-, $#-, z )y+W,8 g-,2@d $$-,-, $$-, @0-,,X-, $%-,,8` g-, $-,,8 g-,2A@ z ivTv-,,X-, $"-,0 2,8 g|-,,X-, $@-,-,,X-,,8 g -, $%-,,8 g-,  d $-,z E < -, $&-, @0-,,X-, $-,-,2J $$-, z <$f,8 g|-,  $ -,,8 g~-, $-,0J*g~-,z ivTv-, g~-,2@0 $"-,,8 g{-,,X -, $-,-,,X-,0@`,X-,-,,X-,   $-,/-,XCgZ` 0 Bg D`+V/ g/,8,8 "`,87@g|+"[g|,8-,2@0 $-,,8 g}-,,X  -, $&-,-, $'-,0 2,8 g-,,X-, $@ -,-,,X-, $ -,0-,XC`Zg| B` Dg|+ g  / g~-,-, $-,0`2 g~,8 "-,-, $'@ -,-,*g~-, $(-,0 d-,z ;|:Pu-, $"-,( d'z (vu3-,(z kNu-, $"-,(d'z (vu3-, g~-, $)-, @0-, g~-, $(-,-,0@,X-, $,X#,X-,2@d $(-,/ & $ `D]/,x!"`/DOTIMESu:Unu)xDOTIMES MACRO )*xDOTIMES*+p ++x + xCOUNTU(1+<,85B `0.@ +G ,G,8,8 ,8g",<Z`[aZ,8,8(D{6 +RZg(D{6 +RZgZ5DR[ g4HU(H{"  `n+U ,U,8,8 ,8g~",0<[gZg[,8,8,8,80` ,84B[(B{ an+d $ D `$5Bd ,,8 g-,`,X-, $,-, g-,@a Bg+o `(N{6 8+o[`1B +o1B+o * Jg ,,8 g @0-,,X-, $,-, g-, Bg7@g+t g ",&Z@ [5Bt ` B` g~-, $,-,0`-, $--, g~-, 2-,*`-, g~-, $-H-,-, $$-,-,d g}-,,X-, $-,@0,87@g+ g( $,,8d g-,,X-, $(-,@ @ $+ $/ &) `/0.W,x+ ADEFSUBST.xDEFSUBST MACRO ..xU(dCONSLIBDOC;LISPM 8_3LSUBR `-, $-,d*`-,,X-, $/-,hd,xx0LIBDOC;LISPM 8_4 `-, $-,d*`-,,X-, $/-,jU*U,x0DEFSUBST can't hack atomic bvl.w:U*U1122334p 44x 4 xGETCHARNdefsubst cthis variaU;].wble spec.66227788p 99x 9 x SUBS9p ::x : xU*U*USYMBOLCONCSUBLISLIST*DEFMACRODEFCOMPLRMACPUTPROPCOMPLREVALCOMPILEU*U LOADEVAL-WHENDEFUNEXPRGETLDEF,85Bt@" `0.+ ,,8,8u,8g",<Z`[Z[Z ,8,8,8"(H{7 +( ,(,8,8v,8g~",@<,8g,87@g+4[g B`4B-@(B{ an+0 $5 `50N@ +3 ,3,8,8v,8g",<Zg Bg +)/ ,8,8,8g~,8w",<: ,8Zg4DD $/ g, $"-,0 @0,8 g-, $-,-,0H,X-, $;-,-,(a z nmg-, $;-,+K $0 g , $"-,,8[g-,  2 $-,-,,X-, $;@-,-, g-, g~-,2@2 $<-,,8 g~-, $ @0-, <z vIa!-, $=-,-,2A@d=z 0mz=-,-, $-, @0-,>>?z Pz-, $?-, gd*g~-, g-, $@-,e*g-, $-,@0z ]+}-,  @0 $A-,-, $A-,-,0 @2,8 g}-, $-,'AAz pK0*  -, $=-,-,,X-,2@  $(-,*g~-, $-,0`-, g~-, g-,e g~-,,X-,>z ? Sp TTx T xFORMAT*READFEXPRFSUBRAUTOLOADU*U.w~&;Autoloading ~A looking~S...WWXXYYp ZZx Z xU;]*WNAMESTRING~%[p [[x [ xMACROEXPAND-1~& ==> \]pw*U*U ]]x ] xSPRIN1~&;~S has no macro definition.w:U*U^__``ap aax a x~&;CAR of that form is not a sU*U*Uymbol, but I'll try it...~   ~% ==> w:T bbccddeeffgghhip iix i xMACROEXPANDMEXP,8 " $-. ,d,8,8,8",<TUB Bgy(B{7 +g-, +[gy@4Bj(B{ an+[gy,8 $T$5B{@U0Vz  K^= `A5B{ $V `$D,84B{ ,v,8,8,8Z,8,8g}P1",<T $V g$? ,{,8,8 @,8",<T/ $ `$4B@  gy\,8 ,,8,8,8 ",<T ,,8,8g",<^ `(N{6 8` + [`4B (B{ an+ $D[`$4B `\ B`+/@"+ ,,8,8 ,8!,8g~",<T/0D+ ,,8,8!,8"",<T , 4,8 gyj,8",<^ " + @D"+_ "/,x T Z"D% [ ] a i (_W+TDO*kxDO* MACRO kkxLIBDOC;LISPM 8_5 `(N{7 8B+& `-,+)Z`4B([-,0@`][`-,/,x @0"LIBDOC;LISPM 8_6B `(N{6 8+1Z`Z4B1[ @0-,[`-, $ -,-,0P P+2 "/,x H0*LET*,8@`5BP `0.+9 ,9,8,8Q ,8g",<Z`[Z[Z ,8`,8,8*0.+C* " -,0H  g-, $-,+N $l0 g,,8 $l g~, $@ @2 g# g-, $-, $@ -,-,,X-, $m-,0/ &k $ `//`,x 83;