; S`QU*U*UPROGNCONDSTATUSNOFEATURENOLDMSGTERPRIMSGFILESPRINCPNPUTU*U*uQUOTE;Loading LISPM-COMPATIBILITY 8   pSETQu*]*U xDEFPROPT+INTERNAL-STRING-MARKER xALPHALESSPLISPV2071LISPM-COMPATIBILITYU*U*W8VERSIONPUSHFUNCTIONLAMBDAXORFILE-EXIT-FUNCTIONS   !xU:UjWSSTATUSFEATURE#xFLUSH-MACROMEMOSDOLIST%xDOLIST MACROMACRO%'xU*U*UMACROFETCHLENGTHWrong number args for macroERRORInvalid binding spec for U;]*UDOLIST -/1p 33x3 xGENSYMCDRNULLCARU(DOMACROMEMOSUBR[ `)0.@ ` ,8],8g",o+Z`[aZ,86 +As6 +AsZ5Dbs4H"  `n+ ,,8,8/3", o+ , $a@[ "`0,8-,1 5-,-,13 -, `-, "-,1 -,1,X-,-,1  2 $-,-,1@-,1 7@ -,-,1 $-, $ -,0@3-,3-,,X-,2@d $-,/ % $ `KWa9,x30ONCE-ONLY;xW*U*WONCE-ONLY MACRO;'xbad variable list in once-only =? A!pw*U*U CCxC xLISTMAPCAR*APPENDSYMBOLPGETNOTANDU*U*PATOMMEMQASSQCADRRESULTNREVERSELETIF0} `)0.+6 ,6,8 ,8g",o+Z`[Z,8`6 `3,83+B`A B` `n` " `a@+; "/ ,800,8@3",o+ , ,5 ,M,83,8g}KoEz :wJ g-,z : g-, -,1,X-, $#,8 "`,8g}7@``[` P-,1 G-,z )y+W-,2@d $$-,-,1 I-, @0-,1,X-, $%-,`-,1 $-, g-,2A@ 1z ivTv-,,X-, $"-,0 2-,1,X-, $@-,-,1,X-, -,1 K-, g-,1  d 7-,z E < -, $&-, @0-,1,X-, $-,-,2J1 I-, z <$f g|-,  $ -,-,1 $-,0J@-,1z ivTv-,3-,2@0 $"-,-,1,X -, $-,-,1,X-,0@`,X-,-,1,X-,   $-,-,1Z` 0 D``/,8 "`3`E`-,2@01 $-, g}-,1,X  -, M-,-,1 $'-,0 2-,1,X-, $@ -,-,1,X-, $ -,0-,1XC`As B`3+  /3-,-,1 $-,0`2 g~-,-,1 O@ -,-,1@-,1 $(-,0 d-,15z ;|:Pu-, E-,( dOz (vu3-,Qz kNu-, $"-,(dOz (vu3-, g~-, $)-, @0-,13-, Q-,-,0@1,X-, $#,X-,2@d Q-,/ ; $ `D]a9,xC"`_DOTIMESu:UnuSxDOTIMES MACROS*'xDOTIMES -/U+p WWxW xCOUNTU(1+<5B `)0.@ ` ,8,8,8g",o+Z`[aZ,86 +RAs6 +RAsZ5DRbs4HU"  `n+U ,U,83",0o+as@[,8,8,80`  an+d D `$5Bd ,-,1`,X-, $,-,3-,@a` `6 8`[`0 `1B` * Jg , @0-,1,X-, $,-,3-,7@g`3 ",aMZ@ [5Bt ` B`-,1 Y-,0`-,1 $--,3-, 2-,1*`-,13-, [H-,-,1 I-,-,1d3-,,X-, $-,@07@g`( 5,d-,1,X-, Q-,@ @ $+ $ S `a90.W,xW ADEFSUBST.xDEFSUBST MACRO.]'xU(dCONSLIBDOC;LISPM 8_3LSUBR `-, $-,d*`-,,X-, $/-,hd,xx0LIBDOC;LISPM 8_4 `-, $-,d*`-,,X-, $/-,jU*U,x0'DEFSUBST can't hack atomic bvl.w:U*U 1c2e3g4p iixi xGETCHARNdefsubst cthis variaU;].wble spec. 6m2e7o8qp 99x9 x SUBS sp ::x: xU*U*USYMBOLCONCSUBLISLIST*DEFMACRODEFCOMPLRMACPUTPROPCOMPLREVALCOMPILE1LOADEVAL-WHENDEFUNEXPRGETLDEF@" `) `? ?,8,8g",o+Z`[Z[Z ,8,8"7 +( ,(,8,8v3",`o+3,83`i` B`[@ an+0 $5 `k0N@ +3 ,3,8,8g",o+@+)/ ,8,83,8w",ou As4DD _ g, $"-,0 @0 g-,1 $-,-,0H1,X-, $;-,-,1(a z -, w-,` a g , $"-,[g-,1  2 $-,-,1,X-, $;@-,-,1 g-,3-,2@2 $<-, g~-,1 $ @0-, yz vIa!-, $=-,-,2A@d1#{z 0mz=-,-,1 $-, @0-,1>}?z Pz-, -, gd@-,3-, $@-,e@-,1 $-,0z ̀-,  @0 $A-,-,1 -,-,@e1-,1 $-,'7z pK0*  -, $=-,-,1,X-,2@  Q-,*g~-,1 $-,0`-,1 g~-,3-,e3-,,X-,}z ? p TTxT xFORMAT*READFEXPRFSUBRAUTOLOADU*U.w~&;Autoloading ~A looking~S... WXYp ZZxZ xU;]*WNAMESTRING~% [p x xMACROEXPAND-1~& ==> ]pw*U*U x xSPRIN1~&;~S has no macro definition.w:U*U _`ap x x~&;CAR of that form is not a sU*U*Uymbol, but I'll try it...~   ~% ==> A bcdefghip x xMACROEXPANDMEXP,8 " 5a3-. ,d,89,8",oUB7 `-,+`@ an+` '$0Vz { `A `$D4B{ ,v,8;,8`341",o $? ,{,8=@1,8",o ' `$0 gy\ ,,8?,8 ",o  ,83K<^ `6 8` `[` an` 'D[`$ `\ B`+@"+ ,,8A,8!3Ko1`3 ,,8C,8"",o 3 4,8 gyjK<^ " + @D"` ",x T ZDDDK (_W+TDO*kxDO* MACROk'xLIBDOC;LISPM 8_5 `7 8B+& `-,+)Z`4B([-,0@`]1[`-,,x@0ELIBDOC;LISPM 8_6B `6 8`cZ`Zc[ @0-,1[`-, $ -,-,0P P1+2 ",xH0*LET*0 `) `s s,8 ,8g",o+Z`[Z[Z ,8`,8*)0.`A " -,0H  g-, $-,+N $l0 g, , $@ @2# g-, $-, $@ -,-,1,X-, $m-,0 &k $ `a9/`,x83;