;"I(U*U*UPROGNCONDSTATUSNOFEATURENOLDMSGTERPRIMSGFILESPRINCPNPUTU*UjuQUOTE;Loading TREEPR 62pSETQxDEFPROPU:U*UT+INTERNAL-STRING-MARKER xALPHALESSPLISPV2071TREEPR62VERSIONU*U.UPUSHFUNCTIONLAMBDAXORFILE-EXIT-FUNCTIONS        xANDFEATUREU+UjwCOMPLRSPECIAL*OLD-LIST*xBOUNDPx*FORM-MAP*xxW:]jU*SFA*xx*ERROR-PRINT-FLAG*xx~2&The functionU*U*U "DISPLAY-LIST" is used to display the tree rU*U*Uepresentation of a list. If it is given an aU*U*Urgument, it takes the value of that argument U*U*Uand displays it for you. If no argument is gU*U*Uiven, it will offer to reay the last ant yoU*U*Uu gave to DISPLAY-LIST (this option is selectU*U*Ued by typing NIL at that point) or it will U*U*waccept a new list to display.~% !!""##$$%%&&''(())*$*++,,--..//001122334455667788%p99xu*B9 xOUTPUTDISPLAY-LIST-DOCSUBR ,,8,8",<9.U*U,x9 :The last list you looked at waU*U*Us:~   ~2% ~N~   ~2%Shall I U*]nUredisit for you?;;<<==>>??@@AABBCCD pDDxD xQUERYCLEAR-SCREENU*UnuDISPLAY~&Type in a list: FGGHpHHxH xRECORDED-READU*U*W?HELPThat's not a list! Want help?JKKLLMpw*U*UMMxM x~2&Don't bother to quote it. That mU*U*Uakes it look messy...~  ~%I'll pretend youU*]nU didn't use quote.~%NNOOPPQQRRSS@TTUUVVWW pXXxX xDISPLAY-LISTDISPLAY-LIST-NO-ARGH"7B+ 7D+ ,,8,8!,8",Lb<E4B EF+! , ,8,8"", <9 ,I,81BI+0BJ+ ,@b1,8,8"",<E4B:+ (B{6 0A+[`0B+ ,,8,8#",@<9 ,,8Zg[,8",<X+  , ,8,8g",<X/,xD"u*UHMX :~2&NIL, or (), is a speciU*U*Ual thing to Maclisp. It is both an atom ~ U*U*U ~%and an empty list. The CAR and CDR of NIU*U*UL are both NIL! NIL is ~   ~%also the falU*U*Use thing in Mac In truth-value tests, anythinU*U.wg ~ ~%thanot NIL is true.~%YZZ[[\\]]^^__``aabbccddeeffgghhiijj]kkllmmn@noopppqqxq xw:U*wJKKLLMpqqxq x~&~S is not a list!~rrss8pttxu*U*Ut x%I'll pretend you didn't use quote.~%w:TNNOOPPQQRRSSAtuuvvwwx pxxxx xMAKE-DISPLAY-ARRAYLSUBR-0,8 @04n' Z(+' ",8,8 14n* * Jg6@g+,Y+G5B/ ,/@b0,8,8H",<9+G(B{7 +; `1BI+30BJ+7 ,6,8,8I",L"<E4B7:+G ,:,8,8I,8",A<9+G[`0B+C ,?,8,8J",@<9 ,B,8Zg[,8",<X+G &1 $ `y4BFEF+G `-,0D%/,xqqtx y#U+U*UARGSzXz{ x~2&I'm afraid that won't U*]nPfit on your terminal{||}}~~ppx xPLOT-MISTAKE,8D7D+Q ,N,8,8R",<9 ,Q,8 `%,8g",<9 "/,x:JU*@`LISTIFYLEXPR-FUNCALL*MAKE-DISPLAY-ARRAY-TAG*ABORT-MAKE-DISPLAY-0,8@@@ ",8 ,X,8,8Z,8",< $ "ujU+ (ySzz x*TERMINAL-HORIZONTAL-SIZE**TERMINAL-VERTICAL-SIZE**ARRAYP@APLOT-,,8 " $m-. B ,e,8,8,8n &.,< *p,8 &.,< (p,8",</0DD-,  &z $z gyD gy-, B , B+0 KU /+ :ZARRAYDIMSVERTICAL-DIMENSIONAA: -, ,x`:nHORIZONTAL-DIMENSION tZ[,xh:pCALL-FORM-MAP,8  `".$ .(.4.x[+yZ/0.@1,xp:sSTORE-FORM-MAP,8 "-,  `".$( .(.4.QC(+*UXC(/,xx: ztry somethhat isn't U;] 1so long.~%\    p  x xDOWNP-,`,8,8,8 `2N+ , ,8 ,8",< g ` gZg(B{ 7 + + `.. ,< &p  gZg/[g(B{7  + "+[g,8 g..  gd,< $p `  g $,X@d]//+ P:(ing wU*U.with fewer nested parentheses.~    8px xU*Unpith shorter lists in it.~ 8px x,<0@-,,8,8,8 gD2N+& ,&,8,8@",< g-,0 ,8 g-,,8 g(N{7 80@ +, g~-,+> `2N@ 0+1 ,1,8,8A",< ` g~ 4B: &z g g~ g~..  g`a,< $p g~ /+> `..0 Np "pZg B` Dg+)/-,0 "//+]*U*P8:(FOOSFA-HANDLERSFA-CREATEINITARRAYPRINTCLOSE-,12" & $ " B & $d4! .+A  $z "z.T+`:ASFA-CURSORPOSPRINT-CONS,<,8@1-,,8,8j,<6B(!+h `3Og+h * J,8k `3Og~b +e ` g4Bb@@ .$g 00$`,< $p,< "p ` g .$g 0$`,< &p,< $p/ `.. Np "p B`+S/0  `.. Nw "w B`+O "/0 D]/+zzX:JFLUSH-MACROMEMOSW*]*UDIMENSxDIMENS MACROMACROxMACROFETCHSFA-GETSELFMACROMEMOE ,85Bo &zz Zi&&p''x' xPRINT-HORIZONTAL-ARROW ,v,8,8wA*w",<#,x'x:t|---|---|((p))xu) xPRINT-CELL-TOP ,z,8,8z",<#,x)];]!:w / |*p**x* xPRINT-NIL ,},8,8~A.w",<#,x*0:{ |+p,,x, xw:]nP$p,,x, xv-p--x- xPRINT-VERTICAL-ARROW,<0@ 1 ,,8,8",<#,8 `1N D+ $ ,,8,8",<# `.. c Np "p B`+/$ , ,8 ",8",<#/,x,z,%{].w-`:~-p..x. x| | |/p//x/ xP`PRINT-TREE,8,8) g.. `,< "p@) g.. `.0,< $p,<L "p% g.. `.0,< $p ,< "p ,!,8,8(",<# g..,X,< "p ,&,8,8(", %<#//,x./:U0FIX-ATOM-NAMEPRINT-SINGLE-CELL,8,8,8) g.. ` `,< "p) g..,X,< "pD0% ,5,8 g0,8",<# P%//,x: )PRINT-WHICH-CDR,8 ,8,8(B{ anb+<.+CB[g(B{7 +@[g1Zg1`00+C* "0Zg1/,x]&p: 7PRINT-CDR,85BF++I(B{7  &+I `2+I'/,x:D@`,8 ,N,80,8",<#/jU*U % :JEXPLODEC~&[Note that your long atom naU*U*Umes have been ~ truncated for prettier diU;]*wsplay.]~2%3344556677??8899::; p;;x; xNREVERSE <p==xw;]nP= x<p==x= x<p>>x> xIMPLODE,<0 `,82,8i,8,8 g1n +X7@`+W ,W,8,8i",<9 g@ <+f6@`+`0N+] g< $=-,+` g "=-,< $>-,+f g[`-, g.. Np *pZ` Bg D` Jg+R/ %>//,xz;:Ox;