;"I(U*U*UPROGNCONDSTATUSNOFEATURENOLDMSGTERPRIMSGFILESPRINCPNPUTU*UjuQUOTE;Loading ERRHAN 64pSETQxDEFPROPU:U*UT+INTERNAL-STRING-MARKER xALPHALESSPLISPV2071ERRHAN64VERSIONU*U.UPUSHFUNCTIONLAMBDAXORFILE-EXIT-FUNCTIONS        xBASEW*U*uIBASExANDFEATURECOMPLRSPECIAL*SYMBOL-STARTED-WITH-COLON-FLAG*xBOUNDPu;UnWx*ILLEGAL-FUNCTIONAL-NOTATION-FLAG*xx*SPECIAL-QUIT-ATOM-FLAG*xx*SPECIAL-QUIT-ATOM-LIST*xU:]juQUITSTOPx*SPECIAL-LESSON-ATOM-FLAG*xx*SPECIAL-LESSON-ATOM-LIST*x?U*U*UHELPINFOLESSON:LESSON:TEACH:LISP:TEACH-LISPTEACH-LISPTEACH:TEACHu;U*Wx*ERRORS-HANDLED*xxERROR-HANDLED-ERROR-DESCERROR-HANDLEDERROR-DESCDEFSTRUCT-SLOT xU:UnUDEFSTRUCT-EXPAND-REF-MACROMACRO xERROR-HANDLED-LONG-DESCLONG-DESC ! x  xERROR-HANDLED-SHORT-DESCSHORT-DESCw*]jW!" x! xERROR-HANDLED-NAMENAME"# x" xMAKE-ERROR-HANDLEDDEFSTRUCT-NAME#$xW*U*UDEFSTRUCT-EXPAND-CONS-MACRO#$ xONENAMED-HUNK%%DEFSTRUCT-EMPTY%%NOTYPEU*U*WEVALCOMPILELOADALTER-ERROR-HANDLEDERROR-HANDLED-DEFSTRUCT-DESCRIPTION%%#&&'""'&'!!(&' (&' #)&)**++ ,xu:Uju+$xDEFSTRUCT-EXPAND-ALTER-MACRO+, xFLUSH-MACROMEMOSDEFINE-EXPLANATION---xDEFINE-EXPLANATION MACRO-. xMACROFETCHU*U*LENGTHWrong number args for macroERRORERROR-DOCPUTPROPMACROMEMOSUBR,8. 5B- `/1N+ ,,8,8.,8g@",<0Z`[Z[Z [(Z([ ,8Z[,8 ",8-,  $-,,8 g-, $-,0H*g~-, $-,*-,2@  $-,*g-, $-,0`-, $-, g-, d $!-, $(-, $"-,d g~-, $#-, $#-,(d0z rVL-,,X-, $1-,e*`-, $-,z .92wr-,  2 $ -,-,,X-,*z ?>??@@AABBCCDDEEFFGGHHIpIIxI x~2&   RAU*U*UNDOM LOSSAGE  I'm afraid I can't be of muchU*U*U help here. This type of  (it's called FAIL-U*U*UACT by Maclisp occurs in a large number of caU*U*Uses where it can't figure out quite what youU*U*U've done so doesn't know how to help with a mU*Unwore explicit message.~2%JJKKLLMMNNOOPPQQRCRSSTTUUVVWWXXYYZZ[[\\]]^^__``aabbccdpddxd x1557Id50xu*Unu 5xBAD-GO-TAGbad go tagseffpggxg x~2& NU*]nUot yet implemented~%ghhiipjjxj x BAD GO U*U.wTAGS  Not yet implemented.~%JJjkkllmmnpnnxn xw*Unu1e5gjne0x exIO-LOSSAGEio errorsoppppxp xted.~W;U*U%ghhiqqprrxr x IO  Not yet implementedW;]jU.~%JJrLLssttupuuxu x1o5pruo0x oxWRONG-TYPE-ARGStype of arU*U.wguments to supply to functionsvwwxxyyzpzzxz xU*U*U~2& A wrong typargs  is generated when you trU*U*Uy to invoke a function that expects to receiU*U*Uve arts of a certain type and you  give it aU*U*Urguments of a different type, so that it doesU*U*Un't know how to apply the function to them. U*U*UFor example, th ">" expec see 2 numeric argU*U*Uuments, so if you type  (> 3 'FOO) MaclisU*U*Up is confused because FOO is a symbol and notU*U*U a number. If the value of FOO were a numberU*U*U, say 4, then O) would still be an error, bU*U*Uut  (> 3 FOO) would be acceptable and woulU*U.wd return (in my example) T.~2%{{|R|C}}~~w          x  !!""##$$%%&&''(())**++,,--../8p//x/ xU*U*U WRONG TYPE ARGUMENTS  A wrong gs error iU*U*Us generated when you try to invoke  a functioU*U*Un that expects to receive arguments of a certU*U*Uain type and you give it args of a differenU*U*Ut type, so that it doesn't know how to applyU*U*U the o them. For example,ion ">" expects to U*U*U see 2 numeric arguments, so if you (> 3 U*U*U'FOO) Macis confused because FOO is a symbolU*U*Unot a number. If the value of FOO were a numU*U*Uber, say 4, then ld still be an , but (U*U*U> 3 FOO) wouldcceptable and wreturn T.~2%w;]*UJJ0011223vw3445566778899::;;<<==>>??@@AABBCCDDEEFFGGHHFIIJJKKLLMMNNOOPUPQQRRSSTTUUVVWWXXYYZOO)Z[[C\\]]^&^__%``a:paaxa x1v5z/av0x vxWRONG-NUM-ARGSnumber of ents U*]nUto supply to funsbcLcdde8epffxf x~2& The maU*U*Ujority of ions in Maclisp know how many they U*U*Ut to receive. Most of them, like ATOM, want U*U*Usome fixeder of; others, like PRINT, want aU*U*U differenter depending oncircumstances. For U*U*Uexample, PRINT can be given only 1 ent, as inU*U*U (PRINT 'foo) which will printsymbol FOOU*U*U on your terminal. It can be given an extra U*U*Uent of where to print its firs. Butou gave PRU*U*UINT 3 args it  be unhappy becit would not knU*U*Uow what to do with the third. Don't worry abU*U*Uout the detailshis now, it is mentioned just U*U*Uto leware  that can take varying numbersnts. U*U*U A g number of args error is generated whenU*U*Utry to invoke ation  with a different nuts thU*U.wan it understands or expects.~fgghhiijjkLckllmmnnooppqTq;<rrssttuuTvvwFwxxyyzz{{||L}}~JJ~FL  @      ^  RA]&yz<{  !!G""#y#$$%%Xww&&''(()qSp))x) xU*U*UONG NUMBER OF A Most funMaclisp know how manU*U*Uy args they expect to receive. Most of them,U*U*U like ATOM, want somme fixed nnts; others, liU*U*Uke PRINT, wantdepending on the circumstancesU*U*U. Forple,  PRINT canonly 1 arg, as in  (PRU*U*UINT 'foo)  which will print the symbol FOO onU*U*U your terminal. It can be given an extra argU*U*U of wto print its first ant. But ifgave PRINTU*U*U 3 args it wou unhappy be it  not what to doU*U*U withthird arg. Don't worry about the detailU*U*Uthis now, it is mentioned just to let you be U*U*U aware that funs can take varying rs of. U*U*UA wrong nrgs error is generated when you tryU*U*U to invoke a fun with a different than it unU+]nuderstands or exJJ0**+12+,V,--..//001122334455#<667788$%%X99::;;<.<==>>??JJ@@AABBCCDDEEFFGGHHIIYJJKKLLGMMNNO*OPP^Q_QRRFSSTTUUVV@WWXXYYZZ[[\\8]]^^b_;<_``#<aabbccddee8ffggbcLchhiijJuVpjjxj x1b5f)jb0x bxUNDEFINED-FUNCTIONU+]jUundefined ionskllpmmxm x~2& When Mp seeU*U*Us a list to be evaluated, it takes the first U*U*Uelement o listassumes it to be a function naU*U*Ume. The other e the are the ants ttion and mU*U*Uay beols (variables) or lists (other fun calU*U*Uls). You have put ~s as the first  elemf a lU*U*Uated but it has no fon definition.  This creU*]nUan error condition.~mnnooppqqrrsstUtuuvvwwxxyiytzz{Gy{||}}~~8oppw      a'p  x x UNDEFINU*U*UED FUNCTIONS  When Maclisp sees ae evaluateU*U*Ud, it taket element  of the list and assumes U*U*Uit toname. The  elemof tst are thehe fun andU*U*U may be symbols (variables) or lists (other U*U*Uion calls). If you put a l as nt of a list U*U*Uto be evaluatedit has no ion definian error U*Unw condition is created.~2%JJ   tv/ &y{6c;<8  !!"rss"##$$%%&&'{'(())***p++x+ x1k5m +k0xu*U.w kxUNBOUND-VARIABLEunbound variables,,--p..x. xU*U*U~2& I a symbol all by itself to Maclisp, it wU*U*Ud as a va its value will be typed on your coU*U*Unsole. On the other  hand, when Macsees a lisU*U*Ut to be evaluated, it takes the first el of U*U*Uthe list and assumesa fun name. The other eleU*U*U of  the are the arion and may be ls (variabU*U*Ules)  or lists (other fun calls). Yve used thU*U*Ubol ~S in one ese ways, and i no value, so aU*U.wor condition has occurred.~2%.N//001122[33-+445566778899::U;;<<==>>??m@@AABqpBCCDD<EE#FFwxFGGHHIIJJKKLL<MMCNNOnOPPQQR'RSSTTU3pUUxU xU*U*UBOUND VARIABLES  If ype a l all by itselfU*U*U to Mp, it be evaluated as a  varits value wU*U*Ue typed on console. If Mahave  a value associU*U*Uwith that l, an error is generated. On ther U*U*Uhand,of e argon and may be ss (vaes) or liU*U*Usts (calls). You cannot put the namside e parU;]nWentheses.~JJ VVWWXXYYZZ[5[\\]]_P^^[__E``ai Qabbccddeeffgxgh!tv/ &y{6ch@A\irwijjSk-kll6y{mmnnooRB[pnpqqa;prrxr x1+5.Ur+0x +xDEFINE-ERROR-HANDLER-r-xW*TDEFINE-ERROR-HANDLER MACROrs xDECLARE-ERROR-REPORTERFIND-ERROR-CONTEXTDEFUN,8.5BN ` /0.+= ,=,8,8O,8g",<0Z`[Z[Z  ",8-,  @0 $-,-, $s-, $(A@,8tzgq*-, $ -, g-,2@` $t-,-,,X-,(`2*z ?026LISTP @NUM-WANTED,8Z4DT7@ $ (D{Z @b0Bu+V `/+\[`5DXZ`+\ Z` 82N+[Z`+\ `-,ujU/,x>X2PWRONG-NUM-ARGS-HANDLERsvxa wroror occurrW;U*Ued.~2vXw3wwxqpxxxx xRECORDED-OUTPUT~&The~S takes a variU*U*U~  ents. ~ ~%It wants somewhere betwU*U*Ueen ~D and ~D ants, but you ~   gave iU;]*Ut ~D.~%yy{zz{_bc{|JL|}|}~~Jpx x~S has been given ~DU*U*U  art~:*~P; it should re ~D ~ ment~W;U 0:*~P.yy{}w    ;  J;   p  x xEXPLAINCOMPLAIN,<,8 t[`//.Z`[ Npu $[`[ *p,8,8,8 ,h,8,8}@"",<y6@g+i+l7Bg " (B{Z2 0Bu+r ,r,8,8},8g~[g~,8Zg},8,8g}",<y+v ,v,8,8~,8g~,8g~,8g}",<y ,z,8,8~,8g~`00,8g~,8g}",< ,//0KW,xx b>`2]RANDOM-LOSSAGE-HANDLERsxU+]jUa random ered.~aVapx xERRFRAME informatiU*Unuon we have abour err:~%y] px x;~Aw:Unppx x;~S ~Apx x,8@ 4t ,,8,8",<y "-,0 ,8 ,,8,8",<y `/@ =N , ,8,8[g,8",<y+ ,,8,8Zg[,8[g~,8",@ 0<y ,,8,8",< ,/0D],x5Ah2WRONG-TYPE-ARGS-HANDLERu+]nwsxng type arv3wwxqpx xy] px xw;]`px xpx x,8t ,@h00,8,8/",<y "-, ,8 , ,8,80",<y `/=N& ,%@1,8,80[g,8",<y++ ,+,8,81Zg[,8[g~,8",<y ,-@`00,8,81",< ,/,x" :uvC2IO-LOSSAGE-HANDLERsxan ioW;]nwr occeTUpx xy] px xpxw;@1 xpx x,8t ,5,8,8IP``",<y "-, ,8 ,:,8 ,8I",<y `/=N? ,?,8,8Jb[g,8",<y+D ,D,8,8JZg1[,8[g~,8",<y ,G,8,8K@``"",< ,/,x"ujUoC822BAD-GO-TAG-HANDLERsxan unseen go taU+]nwg error occurre  !!"*p""x" xy] p##x# xw;]`p##x# xp$$x$ x,8t ,O@h00,8,8b",<y "-, ,8 ,S,8,8c",<y `/=NY ,X@1,8,8c[g,8",<y+^ ,^,8,8dZg[,8[g~,8",<y ,`@`00,8,8d",< ,/,x" :u"##$eCp2KUNDEFINED-FUNCTION-HANDLERs$xit waU*U*Us used in al position, ~  ~%but h definitioW;U*Un as %%&B&''((?))*BU p**x* xDIALECT-VARIANTdialect variantrw:U*U+,,e-p--x- xPROGRAM-RECORD~2&Some lisps have aby thU*U*Uat name, but ~ isp dt. Maybe ~ you shouldU*U*U find out aboutsp construct ~A.~ might be wU*U*Uhat you want, thoughsyntax may be dift.~%w:U .//0y{0112J2D334(45566F,7788|}99::;;F<<}|==A>p>>x> xOUTPUTMAYBE-MESSED-UP-ARITHMETIC-CALLCHECK-FOR-ODD-SYMBOL,8t[`@ 00,8 ,i,8,8|",<y,8 g + B`4Br ,n,8,8}",<. ,r@1,8,8}Zg,8",<?+w g(N{ 1 8anb+v g?+w g@0 ,z,8,8~,8g~",< ,/0KU,x*->kDH2eGETCHARGETCHARNU*U*U*^/\postulating attempt at arU+]jUithmetic fonCDDEEFFwGpGGxG x~&Didperhaps meU*U*Uan to use on "~S" ~ accidentally ~  ~%left oU*U*Ue space after tn name? Thce ~  is important ~U*U*Ubecause Ma thought you intended ~S name  ofU*U*W~%funwas confused since i no d asn.~%HGHIIJrwJKJKLLMMoNNO8OPNPJQQR4(RSiSTTUU$FV{JVE}|WWXXYY'{{JZe8Z#pw*U*U[[x[ xWEIRD-FIRST-CHARwe think hed a / when he meantU;]*U \ or //\\_]]^^__p``x` xon "\" or the ~ fU*U*Uon "//"? ~You probably typed / as your fcharaU*U*Ucter and this ~ tricked theisp ~reader intU*U*Uo thinkingwas named ~S. ~If you don't unhy thU*U*Ud it, or why itour ~ion had thnny name,  do ~U*U*U(LESSON OBJECT)~%at your earliest conveniencew8 HGHIIJrw`aa4Jbwbc4(cddeefsfggh4Jhiij4(jkklCEy{lmm4(nnoi_oPQppq}|JSTq4(rr\ss45t4(Jtuu}|vvwwxxu/pyyxy x,<,8 $'@ $' ,8 gA Np *p,8 g1BA+ P(1BB+1BB+0BC+ , ,8,8D",<. ,,8,8,8g~,8g}",<? + (1N+ g*[4B ,@b,8,8",<. ,,8,8,8g~", "<?//,xG[`%A@yH2~,<,8,8 1.+!AA 1n+ g " +! "5B2 $( `A Np *p,8 g1.0+10n=+1 (1. ++1n-+*g " +, "5B21.+/1n+/7 " 5B21N P  " +2 "///jU*U,xK82ink the user accidentally mean inU*U*wvoke -, so we're correcting it.\yzz{{|<{|}}~~pxu*U*W xon "-" ~  and accidentally e?~%HGHIIJrw{MMoNNO8O pw*U*Ux xwe aren't sure-- could have been anU*U*U attempt ~ at + or a quoted structure ~%U;]*Ugone wrong        }    px x~&I'msure you there.U*U*U Did erhaps ~  me ~%(+ ~D ...)forgot theU*U*U space other possibility  occurs tome isant tU*U*Uo type '(~D ...) and forgot ~ he "'", soexpreU*U*Ussion got by act. ~ ~2%If my fguessorrect...~w:U*UQQ6!I}P{JC}CGHIh}vp{  s!)!"q#p""x" xe is important d~ ~D tohe naU*U*Ume oftion, evengh you are NOT~  ~%allowedU*U*U to give fons nc names (fmes can~  ~%contU*U*Wain nc characters, but can't ete toers.)y##$RSiSTTU$(%5%&Ey&'S'(())**+w+,,ww--..//0011\2T2pw33x3 x,8 5.; ,8,8,8E",@ 1<. ,:,8,8E",<?+A ,=,8 ,8F",<. ,A,8,8F,8g,8g~",@ <? ,D,8,8G,8g",<?/KW,x"3Gx24DEFINE-DIALECT-VARIANT-3-xWbDEFINE-DIALECT-VARIANT MACRO34 x,8.5BY `/1N+N0 ,N,8,8Z,8g",<0Z`[ZH[*-, $-,*-,2J $-,+z /l8U-, $-,2H $1-, &3 $ `1/0h;W,x/V@2G $+$2E02ZUNBOUND-VARIABLE-HANDLERs4xU*Unu~A wad as a var, ~ alue.5%566(Q7Ip77x7 xSPECIAL-LESSON-ATOM-HANDLERU*TSPECIAL-QUIT-ATOM-HANDLERLISTENTYIPEEKILLEGAL-FUNCTIONAL-NOTATION-CHECKCOLON-SYMBOL,8t[`,82 ,`,8,8w,8",<y 4Je[(Z (2H`+a `8+u 4Hi[ Z 2F`+e `8+u ,94nn@ 1 ,90N+n `:+u $' `A0N+r `:+u ,u,8,8x ,8g",< ,/,x7%jU*U+VH2[special lesson atom handler invokedw:U*U;;<<==>p>>x> x~&Typing aolic at Ma no parentU*U*Uheses around ~  ~%it cause. "~S"~ has nU*U*Uot been assigned a vf I ete that I will~ ~%geU*U*Ut an . Areps looking for help lessons~ %avaiU*U*Ulable? If so, you sh"(LESSON <name>)" with~ U*U*U%the parentheses. Parentheses are very iand~ U*U*U~%shoever be ignoredsee them ile.~ ~%Funsp arU*U*Ue found only asfirst word~  ~%after a "("U*U*U. Nowtyping (LESSON INTRO) to get trst~ ~%lesU*U*Uson or (LESSON)et a menu of available lessonsw:U*U??@V@iRAABBCCDD/Cv56EE(FFGGHQMH\IIJ)JKCKGHLLMMcNN.OOPPQ%vQRRSS.TTUUVVWWQ1UXCXYYZ!GZ[Hy[C\CV,\]]^F^__``aa6bbccddeCeffg*ghhiijuBpjjxj xSPECIAL-LESSON-ATOMEXPLANATION-HAS-BEEN-SEEN~&Areps still ced abU*U*Uout h get ns from me?~ u need help concerniU*U*Ung what leavailable, you~ ~%shSON)"of all theU;]* lessons.~lGHlmXmnnNoop(npqqrrsjzstt)u%vQu*g#vv}Jwwqpxxxx xTYICLEAR-INPUT,8 ,{@d,8,8",<.6B+ ,,8,8 C,8g",<? * J "kk+ ,@d,8,8",<? x/"y>".U*UjxW2xal quit atom handler invokedw:U*U;yzz{{|p||x| xps trto get outhis program?~ U*U*U%If so, you should type "(QUITth th ~%Paand sU*U*U never be~ ~%igle. Fmes in ~ %Maclisp are foU*U*Uund only at word after a "(" and, ~ ~%after aU*U.wll, getting outm is done by a ??@V@iRAABBCCDD/Cv56EE(FFGGHQMH\IIJ)JKCKGH}^}~A~.Spqq)VVWWQ1U5)Z!GZ[Hyww.  /      )   A~ q=px xU*U*USPECIAL-QUIT-ATOMaway from me?~ ~%Try typing "(QUIT)".~%w8lGHlmXmnnC px x,8 , ,8,8",<.D6B+ ,,8,8,8g",<? *  " J "k+ ,,8,8",<?hD] x/"y|W2l staU*Unurting colon handler edRpx xSYMBOL-STARTED-WITH-COLONU*U*U~2&That systarted wicolonre are only a few ~ U*U*Ucases in w~%you might wando that. (LispMachinU*U*Ue Lisp and NIL both  useols ~ ~%that start wU*U*Uith an for special reasons that ~  to ~ ~%boU*U*Uat the moment.)ou were tr a DDT-style ~ ~%comU*U*Umand, you'de anr beccommands t must b ~U*U.w%and do nok that way in Mp.~%/fCJ{  <!!""##$${J%%)J&&''(())*]E*|JJ8+)J+c,,-X-.^}*|JJ.//CJ001=1e2R231U_JJ34|45h5 66776p88x8 x@ 2 ,8 ,,8,8#",<.6B+ *   J "k ,,8,8#",<? ,"@,8,8$,8g",< /,x".T8+W(2`,|COMMA-CHECK,8(B{7 +) `0B8g " ++[`95B+AA:UZ`9/,xg2$t`-,-level|RECORDED-READU*U*WCorrecting user model of ional notation.;;<<==>>pw*U*U??x? x~&Macdoesn't use thax for funs. WU*U*Uhile %"conventional" computer languages may uU*U*Use a notation ~ ~S (...) %to mean aon ~S to U*U*U Ma uses~%the(~S ...) instead. ~  ~%The geU*U*Uneral formcall is: ~ (  ... ). %Make surealways goes INSIDE tU*]nUhe ~  parentheses!~%?U@@ABR<A}|JB8BC{4CDDEEFFGGHH4JJ3II{4JJdrwKK;2LM}|JLiL}|M>{MNNOOPPQ<y{QR4(JR8SSTTUUV{4VWEy{VWXXYYJJZZ[4p[[x[ xILLEGAL-FUNCTIONAL-NOTATION~2&..U*U*U.and e way, commas are wrong here. Put ~ sU*U*Upaceseen args.~ ~%Comma meansthingp which isU*U*U dian what you ~ ~%are trying tothem for..U*U*Ug in form again%(correctly this time) ifwant.W;U*W..~%\]0]^^__`` Jaabb4Jccd~dZeeO}|JJf%CfggJhhiJija6bj{|Jdkk}|4llmmnGno"pooxo xtional syntax model ;;yppqqkpw*U*Urrxr x~&Remember: Use (~S ...),~S (...) ~U*U*UAlso,al form ofl is:~%  (<ion-name>  ... )rssttQuu4(vFfvwe8w}|xxyyzz{{|up||x| x. and no cU*U*Wommas! Putes between. ~  Try again..\}}~~ upwbx x,8 *9-, : ,:9,8 ,3,8,8I",<.6B+> ,8,8,8J,8g~,8g~,8g}",<? *   J "\k7@`+= ,=,8,8J", <? "A+H ,A,8,8K",<. ,D@0,8,8K,8g~,8g~",<?7@`+H ,H@h,8,8L",<? "A/+"KU?[or|W 2,DIAGNOSE-QUOTED-FUNCTIONDIAGNOSE-RANDOM-FUNCTIONAL-FORMP EVAL-HANDLER,8[[0D+P+Pu*P/,xp82LDEFINED-FUNCTION?EXPLAIN-DONT-QUOTE-FUNCTIONS*EVALEXPLAIN-PUT-QUOTE-OUTSIDE,8-,[Z,8,8ZZ 4HWD g+`Z[,84B] ` 1 g `-,+_ g~  g~-,//,xp(2QU*UnuExplainingto quote fons.Qwpx xTYOU*U*UDONT-QUOTE-FUNCTIONS~&You seem to have qS ...hat inecessary.U*U*U In fact, it's really wrong.~ ~%Do just: ~% U*U*U (~S ...) ~ ~%No need to put in the quote.U*U*U Anyway, since you're ~ %just learning, I'llU*U.w corrhe error and continue...~     FH _O _  C_C.0apx x@$!,8 ,d,8,8j,8 ",<. " k ,i,8,8j,8g,8g~",<?/u*U,xpH2a to put ' outside the forW;U*Um.  !!p""x" xPUT-QUOTE-OUTSIDEe quote mark ina forU*U*Um. ~ ~%You said: ~ %  ~N~ ~%where I bet yU*U*Uou meant:  '~N.~ ~%Rem' always goes on theU*U*U outside o thing ~ %you rying to quote!ect iU*U*Wt thiyou -- real Macisn't so forgiving..   o##$p$%C%&&.''C(())*_*+C+sF,,--..U//.0F01122m!}(334U4556U pw 66x6 x,8-, QC` ,o,8,8wPb",<. ""k ,v,8,8x[g-,2@ $-,Zg-,,8,8g~A@D]",<?/,x"6pX2kRandoU+]jUm funrm dianosi77v88fp99x9 xRANDOM-FUNCTIONAL-FORM~N~  ~%isU*U*Uletely meaningless ... ~ he form for a lisp eU*U*Uxpression is a ion name insidet parsis followU*U*Ued byn~ ~%separated by spaces. Thst thing iU*Unps~ ~%is here,t eva it.~yQ_4':|:E;;<<=CO=>>??@@AAB}JM BqCCD;<8DJEEFFG?GHBFTUHJITy{VID9JJq"pKKxK x,8C ,{,8,8",<. "9k ,,8``",8,8g",</,x9K]*]nUp02xERRSET^G typedLLpMMxM x^GREDEFINED-^G-HANDLER -,K " $-. ,,8 `1,8",<. " + , M%|My`2;