; RHQU*U*UPROGNCONDSTATUSNOFEATURENOLDMSGTERPRIMSGFILESPRINCPNPUTU*UjuQUOTE;Loading TREEPR 62   pSETQxDEFPROPU:U*UT+INTERNAL-STRING-MARKER xALPHALESSPLISPV2071TREEPR62VERSIONU*U.UPUSHFUNCTIONLAMBDAXORFILE-EXIT-FUNCTIONS      xANDFEATUREU+UjwCOMPLRSPECIAL*OLD-LIST*!#xBOUNDP%x*FORM-MAP*!#x%xW:]jU*SFA*!#'x%''x*ERROR-PRINT-FLAG*!#x%x~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.~% )+-/13579;=? A!C"E#G$I%K&M'O(Q)S*$U+W,Y-[.]/_0a1c2e3g4i5k6m7o8qKp99x9 xOUTPUTDISPLAY-LIST-DOCSUBR ,8,8Kos.U*U,x9uThe last list you looked at waU*U*Us:~   ~2% ~N~   ~2%Shall I U*]nUredisit for you? ;w<y={>}?@ABCD px xQUERYCLEAR-SCREENU*UnuDISPLAY~&Type in a list: GHpx xRECORDED-READU*U*W?HELPThat's not a list! Want help? KLMpw*U*Ux x~2&Don't bother to quote it. That mU*U*Uakes it look messy...~  ~%I'll pretend youU*]nU didn't use quote.~% NOPQRSTUVWpXXxX xDISPLAY-LISTDISPLAY-LIST-NO-ARGH"7B`7D` ,8C",Lb<E`F+! ,,8,8"Kos ,I0`!0BJ`) ,@b1,8EK<E4B:`A6 0A+[`0B+ ,,8,8#K1os ;,8@[Ko`A A,83Ko,x"u*UXu~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.~% Z[\]^_`abcdefghijklmn;oppqqxq xw:U*w KLMpx x~&~S is not a list!~ rsqpttxu*U*Ut x%I'll pretend you didn't use quote.~%w:T NOPQRSAuvwxpx xMAKE-DISPLAY-ARRAYLSUBR-0 @04n' @`O ",8@14n* * 3+,Y`_ ,/1a,8Kos`7 +; `0`g0BJ`o ,6,8,8IKL"<E4B7:` u,8",Aos`[`0B+C ,?,8,8JK1os ,8@[Ko` &1 $ `y`F` `-,DK,xqtGU+U*UARGSz{x~2&I'm afraid that won't U*]nPfit on your terminal |}~px xPLOT-MISTAKED7D+Q ,8Kos ,Q,8@`K3Kos ",xuU*@`LISTIFYLEXPR-FUNCALL*MAKE-DISPLAY-ARRAY-TAG*ABORT-MAKE-DISPLAY-0@@@ " ,8,8Z",o $ "ujU` Szx*TERMINAL-HORIZONTAL-SIZE**TERMINAL-VERTICAL-SIZE**ARRAYP@APLOT-, " $mB ,8,8,8nˀ *p &. (p,8",o /"D-,  D-, B , B+0 KU + u ARRAYDIMSVERTICAL-DIMENSION0`# ` -, ,x0uHORIZONTAL-DIMENSION ` tZ[,x4uCALL-FORM-MAP  `KD . `+y@0.@1,x8usSTORE-FORM-MAP "-,  `KT . 0+*U,x<u ztry somethhat isn't U;] 1so long.~%   p  x xDOWNP-,`,8 `2N+ , ,8 ,8Ko g `aZg 7 `+ `ˀ  &p 3Zg[g7  + "+[g gˀ 2 $p `b  $@d]+ (u(ing wU*U.with fewer nested parentheses.~  qpx xU*Unpith shorter lists in it.~  !#q p%%x% x,<0@-,,8` D2N+& ,&,8Ko g-,0 -,7 80@ `Y-,+> `2N0+1 ,1,8,8AKo ` 4B: gaˀ  g`a $p g~b+> `ˀ0 Np "pAs B`3+)/-,0 "+%]*U*P\u=FOOSFA-HANDLERSFA-CREATEINITARRAYPRINTCLOSE-,12"' & ' "a)' & $`24C .;pD`+' .T+0uSFA-CURSORPOSPRINT-CONS,<@1` -,,<6B(!` `s` * J,8k `sb +e `4Bb@@  00$`,< $p "pa- `  0$`,< &p $p/ `ˀ Np "p B`+S0  `ˀ B`+O "0 D]/+uFLUSH-MACROMEMOSW*]*UDIMENS//xDIMENS MACROMACRO1xMACROFETCHSFA-GETSELFMACROMEMOE `35Bo &5z 6 `1,xuY-COORD/7/xY-COORD MACRO7x`3"@``] 75{z 6 `,xupX-COORD1E/9/xX-COORD MACRO9x`35Bx 95;z Zi &Mp''x' xPRINT-HORIZONTAL-ARROW ,8,8wA*wKoG,x'<ut|---|---| (Qp))xu) xPRINT-CELL-TOP ,z,8KoG,x)Lu / | *pUUxU xPRINT-NIL ,8,8~A.wKoG,xUXu{ | Wp,,x, xw:]nP IpYYxY xv -p[[x[ xPRINT-VERTICAL-ARROW,<0@ 1 ,8,8KoG `3 D`$  ,8,8KoG `ˀ c Np "p B`+$ ,,8 "KoG,x,Y%{].w[pu -p]]x] x| | | /p__x_ xP`PRINT-TREE,8`S.. ` "p@a-`Sˀ `.0,< $pL "pa-`K.. `.0,< $p  "pa- ,!,8,8(KoGˀ,X "pa- M,8QKKoG/,x]_uU0FIX-ATOM-NAMEPRINT-SINGLE-CELL,8`S.. ` ` "pa-`Sˀ,X "p10a-`K k,8 g`aKoG P`K//,xu )PRINT-WHICH-CDR1,8 anb+<.+Ca[g7 `[g1Zg`c`00+CA "0Zg`c,x]&uoPRINT-CDR5BF+`7  +I `2``O,xuD@` ,N,8`aKoGjU*UhKuEXPLODEC~&[Note that your long atom naU*U*Umes have been ~ truncated for prettier diU;]*wsplay.]~2% 3g4i5k6m7o??8q9s:u;pwwxw xNREVERSE yp==xw;]nP= x yp{{x{ x yp>>x> xIMPLODE,<0 ``e,8i,8 g1n `7@`+W ,W,8Kos@ <`6@``0N+]< $=-,+`3{-,< $>-,`3[`-, gˀ Np *pZ` D` Jg+RK`},xwuOx;