;"M@(U):UTALAN;DPRINT-USRHUSUBR ",xEQUAL:PRINT-SELFPRINTU*U*UFLATSIZE:GFORMAT-SELF:WHICH-OPERATIONSWHICH-OPERATIONSEVALALAN;DPRINT-UNKNOWN-MESSAGEDPRINT-FLATSIZE-HUNKDPRINT-GFORMAT-HUNKU*@DPRINT-WHICH-OPERATIONSDPRINT-HUNKALAN;DPRINT-SENDILSUBR"Q.,` 01B ( + 0B1B+1B+1B+0B P 01B+1B+ ",8<@"/,x70 "/,x6@0+ 0 0 0@/& 0/" 0/" 0:U 0 0 0/( NAMED-HUNK-PRINTERGETDEFSTRUCT-DESCRIPTIONU*U*UBASETYOPRIN1PRINLEVEL-PRINT-OBJECTU*@`HUNKSIZE.,<,8,8,8 ,8,<,< .. Nw *w0,8,8[4B!(B{ an `+& $ [g} Bg4B& g~ g}Eg` +_[g}4B)(B{ an+> $ @ ` [g} Bg4B>-, [4B> *  -, ,1,8,8`,8g}",<  ,5,8[g},8,8g}",< ,8,8b,8a,8g}",< ,<,8 g},< *p``0,8,8g}",< /,+_@7B+@ (2.+\ ,C,8,8a,8g}D",< ,H,8Zg},8,8g,8g},8g|@b",< g},8b Nw *w,8 gD3O`+X ,O,8,8b,8g|",< ,U ,8 g| g-,,8,8g~,8g|,8g{@",< g.. Np "p Bg+K/0@  ,[,8,8c,8g}",< +_ ,_@,8,8c,8g}",< //D%,x  (U0NAMED-HUNK-GFORMATGETL,8[4Bg(B{ an bP+k $[` 5Bk z  T [`5Bl A@[U7mz,(O/,xxxztg]d:STARTGQU*U*U:IND[:SPECIALGDISPATCH:SPACE:BLOCK:NEWLINE]:END @,8,<,< $[ ,8(C"4Bs gC`+ $ " $ "`C $ "Zg " g",8 Nw *w,8 g2/`+ $ "`0 $ " g~ g-, $!@ " g.. Np "p Bg+|/2hC $ " $ "/*P/,xxn-- Unknown message to hunk.LISTIFYERROR-000,8 ,,8,8,8",<*U/,x`  ANDFBOUNDPQUOTESPECIALW*@A*DPRINT-FLATSIZE-COUNT*x-- unsolicited operation to flatsize SFA.DPRINT-FLATSIZE-STREAM,80D + ..(-, B+0D+ z<;`+ ,@,8,8,8",</,x]:U*pP *DPRINT-FLATSIZE-STREAM*xORBOUNDPSETQSFA-CREATEx,8 ,8,8 *-,  (* @kU /+p USRHUSTATUSU*U*PSSTATUSSENDICALLISCREW ~&~ ;;;You must use the SCREW flag if you wish to screw yourself! ;;;(The USRHUNK feature is already in use by some other cretin.)FORMAT*DPRINT,8 MS)5B* z|YZR 0B+5 z, R!!zhLQ!)E&A)"z gL!+5 z|YZR 1B+5 z|YZR *54B/ `0B"+2 z]c07"!! z\b.T!"z gLD!+5 ,5,8,87,87",<# $ :U/,x#H#SFA-GETDESCRIBE-TERPRIU*@ CHARPOSDESCRIBE-SFA-- unsolicited operation to describe SFA.DESCRIBE-INTERNAL-SFA,8,8,80D +PP  5.< "+U0N+> "+U0N b!+A $%%&+O ,E,8 $% ,8",<& $ g,<% p/0 2.+N ,M,8,8g $ g~% (@0,8",< +O $' "+ +U T"0D+R z<;`+U ,U,8,8V,8", :P</,x' 8PRINC-- unsolicited operation to describe SFA.,8 ,8,80D +l 5.[ "+0N 1+] "+0N+_&+l ,b,8!@@ $%,8",<& $% g,<% p/2.+k ,k,8,8g $@ g~%,8",< +l "+0D  +t "' $t-. ,s,8,8 $@ gw%,8",< + +0D P a+& "' $-. ,|,8,8gy 1 $ gw%,8",< ,,8,8 00 $ gw%,8",< + + P a0D(+ "' $ -. ,,8,8 00 $ gw%,8",<(+ + T(0D+ (zxyzq+0D&+ ,,8 $b%,8",<&+ ,,8,8,8A@D]",</,x)p V'U*U*UFILEMODETTYTTYCONSTTYSIZEABSSFA-STOREPBMAKE-DESCRIBE-SFA,8,<,8I,8,8  -, $-,-, $*-,1@  [4D/[ Z0J*+ g~  -, $-,-, $+-,1@d B` g~-, $-, 0-, $+-, ,8Z,  Bg~[`, Bg 3og~+.0.d+. D!,8g~ Bg~,Xg~/ &' $, "' ,87@g+5 g/. Np &p+5 &!A0 $-- g $. `- g~ $% `"- g~ $ `-,X,8 &( $.!A0 "( g~ $,8- g} $ `- ` $ g- g $%,X- ],X//,x)hDESCRIBE-INDENTATIONw*U*U/x//xLISTENTYIPEEKMEMBERDESCRIBE-PUNTU*@!TERPRICURSORPOSTYIDESCRIBE-HOME,8-,~ $% h $.,8 g% $-*g%,87@g@1+[ ,S,8,8g~",</4N[ ,W,8P,8,8g~",<0011z '$f,< "p2/5B[ $2 "+ ,^,8 ,8g",<37@`+o ,a,8,8g",<3[ 83/`+o gj ,g,8P,8,8g~",<0011z '$f,< "p2/5Bl $2 "+ ,n,8  ,8g~",<4 g4 /&. Nw *w ,8 `4Ny ,v,8,8,8g~",< 1 `/. Np "p B`+r/ /&. Pw~ *w~,8 `4N ,,8,8 ,8g~",< `/. Nw "w B`+|   "//,x(More)1%j@`JEL,8 , ,8,8,8D",<3 , ,8,8,8g",<3 ,@,8,8,8g",<3/,x5".]*W5HDESCRIBE-SFA-CACHE6xLAMBDAG0006FOOBAR6667-777','xW+].uDESCRIBE-OUTPUT8xDESCRIBE-LEVEL8x88xDESCRIBE-LEVEL-LIMIT9x99%xDESCRIBED-ALREADYu;UjP9xDESCRIBE-TOPLEVEL-P:x::xDESCRIBE-NEXT:xDESCRIBE-1DESCRIBE-00$0,8 5N $+ Z(,8-,,8 g1n+ H#Z(+  ,8 $ 6%2B`+ @d 6+! `. B6/ *:-,1H1 :p98 $-%4B1 ,*,8! 0 $ 8%,8",<3[ 8 $- 8,<% /.,\2n+1 $M 8%4 "2 $4-. gy; + g-,,/k@,x8 ARGS<;% x,8,8 ,;,8,8 B,88",< 94JG[(Z (2Hg+;@  g4NA(N{ 8an+B "+S@ g(N{ 8anb+E "+S 8 DjT "+S 82/9+R..-,   `./,8-, -,p8/ : 9 g-, B9 g;/0(,+S "/,x {*}jU*U(7NAMED-HUNK-DESCRIBERDESCRIBE-DEFSTRUCT-1DESCRIBE-HUNKDESCRIBE-CONSDESCRIBE-SYMBOLARRAYDESCRIBE-ARRAYP ~&~S is an object of type ~S.,8(B{ an+d[`,8@4B[(B{ an+b $< ` ``5B` $ ` -, [4Bb `D g=+c g=/+x ` 1(N{6 8+g `>+x `4Nj(N{ 8an+l `>+x7B` H "(B{Z0B?+p `?+xD7D:+x ,w,8,88,8y,8g~7Bg~ "1 (B{Z,8",<#+x "/0t,x@0UDESCRIBE-DEFSTRUCT-0,8 0@Z(-,,8 g1n+Z( 0 +  ,8 $ 6%2B`+ 6 @d+ `. B6/ *:-,  :p98 $-%4B ,,8 $@! 8%,8",<3[ 8 $- 8@!,<% /.,\2n+ $ 8P `0%4 "2 $-. Z(A@`Z(=+ Z(/@ku,/+ z<@%. x-- not the name of any defstruct.U*U  ~&~S is a structure of type ~S.~@ It is implemented as a hunk of length ~R (type ~S).~@ Its components are: ~&~S is a structure of type ~S.~@ It is implemented as a ~S.~@ Its components are:~&~S's components are (~S):MAX~&~S: ~vXDEFSTRUCT-EXAMINE,8,8 $<@  ` ,84B! gC`+] $ gD 5B& ,&,8,8^,8g~",<,8B-, ,87D:+< g~(N{ 8Dan+5 ,4,8,88,8^,8g|,8g| g{@,< *p,87Bg{ "(B{Z ,8",<#/+A ,<,8,880,8_,8g|,8g|7Bg{ "(B{Z,8D !",<#+A ,A,8,88,8_,8g|[g| ,8",<#,8`,8g,87@g+L[g B` ,I,8,8g~[,< *p ,8",<C/Zg Bg Dg+B@/,87@g+\[g B` ,V0,8,88,8`[,8 g}/,<`b *p,8",<#/,8:[g g}P0 g|D $.E`Zg~ Bg~/+M  " "//,xAAB"u*WBCPAUTOLOADDEFPROPLISPSTRUCTD DDEDEFDxU@!~&This is a hunk of length ~R (type ~S).~@ Its elements are:~&~S: ~vX,<,87D:+,< ,< Nw *w,8 ,l,8,88,8,87Bg} "(B{Z,8",0<# `/.,< "p Nw *w,8",8 g3Og+ ,y,8,88,8,8g~@ g} g~/,< *p,8",<#d/ g~ g-, $.E: g@0.. Nw "w Bg+p "//0P + "//,xF".TGXa~&(~& DESCRIBE-CDR,87D:+ , @,8,88,8 ",<# $,[`E:Z`P ]H+ "/,xG`~&)U(~&.~& ~&)~& ,85B ,,8,88,8%Da",<#+$(B{6 + `(N{" 8an+ ,,8,88,8%",B<# $, `E: ,,8,88,8&",D<#+$ ,!,8,88,8&",<# $,``"[`E:Z`H/,xHI".U*UIJ ~&~S is a symbol.SXHASHOBARRAYMEMQ~&~:[~S~;It~] is NOT interned.SQUIDU*U*UMAKUNBOUND~&~:[~S's~;Its~] binding is: SYSPNREVERSEVARIABLE-DOCUMENTATIONDOCUMENTATIONFSUBREXPRFEXPRU*U*UMACRO~&~:[~S~;~*It~] is a system ~S.~&~:[~S~;~*It~] is defined as a ~S.~:[~&~; ~]~:[~S~;It~] takes at least ~R argument~:P.~@[from ~R to ~]~R argument~:P.~&~:[~S~;It~] is documented as a variable:DESCRIBE-DOCUMENTATIONU*@ ~&It is further documented:~&~:[~S~;It~] is documented:~&~:[~S~;It~] has the following properties:~&~S: ~vX,8,84B)0B B+*7B:+67B:+0 ,/,8,88,88 ,8g~",<# * J` gK&. K (.4.4[+5Z gL5B;  ,:,8,88,88,8g~,8g}",<# *a J`[gZZ1B+E,8 ,B",8,88,89,8g~,8g}",<# * $.,X J`E: gN,8 ,I,8,8g~@`",<<,87Bg~7Z,8 ,86@`+N gO+W[`1BO+Q @ 00BP+R g+TZ`[-, g-,Z`Z Bg D`+L/(`@ PQQR?Dz +5U7:,8 g~[ $O,8 g} ` $P,8 g} ,87@g}+d ,d,8@,88,89,8g{,8gz,8g{",<#7@g+k ! g3Bg}+k ,k,8,88,8:,8g{,8gz ,8",<# g}5Bm g}5Bm g Bg}D7@g~+ ,u,8,88,8: g|5Br g}@,8,8g{,8gz",<# $TZg~4B{  ,{,8,88,8;[g|,8",<#+ ,,8,88,8;[g|,8Zg|,8",<# * Jg}7@g+ ,,8,88,8<`4,8g{,8gz",<# gV * Jg}7@`@B+ , ,8,88,8<",<# `V !+7@`+ ,,8,88,8=,8g{,8gz@h ",<# `V * Jg}6B:+ "+56@g~+ "+5,8= ,,8,88,8>,8g{,8gz",<#,8g~7@`+' ,$,8,8g[g[,< *p,8",<C/Z` Bg D`+/ !,8g~7@`+4 ,0,8,88,8>[g~[@,8 g}/,< *p,8",<# / $.[`ZE:Z` B`+(   "//+7 "/D",xJLNRSSTU"KUVWWXh',8 / !..-, -,/ ,D,8,88D",<3 ,G,8,88,8g",<#/0uju+ `?DESCRIBE-ARRAY-SIZE-LIMITXx XXYxARRAYDIMSU*U TIMES*APPLY~&~S is a ~R dimensional array of type ~S.~@ Its dimensions are: ~{~S~^ x ~}LENGTH~&~:[~S's~;~*Its~] elements are:PRINT-ARRAY-1,8Y,8Z,8 $ "ZZ,87D:+V ,U0,8,88,8_,8g} g}[,< *p,8[g|,8,8g|",<#/ `4N]D2/X+] ,\,8,88,8_,8:,8g|", (<# g~\+^ "/,x[%k] 0\xHPRINT-ARRAY-LEVEL-LIMIT]x]]xPRINT-ARRAY-0,8 Z(-,,8],8 g1n@B+fZ(+f  ,8 $ 6%2B`  2+j 6+l `. B6/ *:D$-, :p9p98 $-%4B|F ,u,8 $ 8%,8",<3[ 8 $- 8,<% /.,\2n fA+| $ 8%4 "2 $-. ``0 Z(\+ Z(@`5/,/+ X `u*@`<]% x~&~S is an array of length zero.~&~S~vXPRINT-ARRAY-INC-INDEX,<,8YZ,8*,8 $ "ZZ 5N , ,8@,88,8*,8g}",<#+',8`,8A@6@g+,8 g g}Z B` ,0,8,88,8+,8g~ g} g|/,<`d *p,8",<#/ $. `E: a g~ g_5B/+'[g 8`/.,< "p 0.g~. Nw "w ` Bg~ "-,Zg B` Dg/0A@`+ //,X-,K/,x%^^ H,<1,8,84B9ZZ_5B9[g 8.. Np *p,8[g 8 (20+7 "(-,QCg "+9 "QCg "@`]///,x p+INSPECT-HISTORYu:]*U_xINSPECT-N`xINSPECT-L`xINSPECT-NEXTC*TERPRI*TYIU*U*UIBASE*READNTH*EVAL*PRINTAPROPOSALPHALESSPSORTGPRINT1U*TLIBLSPGPRINTFASLLOADINSPECT-0,8,8 !  $ 6%,X0B(+@ 6+B   ". B6 *a-, :_8 `  5NF $+G Z ,8-,@`0``,<,8,8 ,M@h2,8,8A",<3 "2 $R-. *`a J`@@` gx;-, +S+T`ALb`Bb B` 1.0+Z0n=+Z/. Np "p B` `1.+\1n+1Eb0N%+k`C *1-, cc,0 ,8(B{ an +f `4.f@ a `[2o`+g/+S `O a $ `d Bg/+:0N&+pD 6B_+n`C+SZ D_[ Fg+<L(00N$+yb`D " $y-. gxD3-,-,$cd,B Bgy "+ +:0N"+b`H A@ " $-. gx-,-,L`d$cde, "+ b0+S0N)+ b`Jc,84B (B{ a `n+ /+S,X gB-,-,+S0N +b`MP` ce $ff Bg+:0N#+ $ !E& "g 5Bghhz5zn}i ,,8,8N",@`0<3 ,,8,8g~,8,8,80 ,8,8,8",<g +S0N"+# , ,8,8O",<3 ,#b,8,8g~",<;+S0N$+' _ g -, Bg+:0N(+) g-,+>1N+K0N+,`O+S1N+T@ 1N+T1N+T1N?+T+S/. `@,<[,\3n+: `/. `,<`O $ "pd Bg/+:+SD _ g-, B_ g Jg+K,0 //,/+a ??? -> -> No more.Form to evaluate and inspect: Form to evaluate: Symbol to set to current object: Apropos: aa Inspector commands: (numbers in square brackets are base 10.) 0 - 9 Jump to the object with that number. J Jump to a numbered object. prompts for a number. L Last object. I evaluate form and Inspect result. * bound to current object. S Set some symbol's value to be the current object. E Evaluate form and print result. * bound to current object. D Describe current object. G Grind current object. H History list. A Apropos. Q Quit. inspector returns current object. ^L Redisplay current object._(  ;<i x[~2D] ~S,8 , ,8,88,8 ,8` @,8",<# `..-, B` `@KU,X-, B`,xj  FEATUREALAN;DPRINTw@!jkx;