; S`QU):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"#.,` 01B ( + 1B+0`1B+ P 01B`'0 `",8<@",x ,x+ 0@&h":U 0jHNAMED-HUNK-PRINTERGETDEFSTRUCT-DESCRIPTIONU*U*UBASE#TYOPRIN1-PRINLEVEL[PRINT-OBJECTU*@`HUNKSIZE],<,8 ,8,<,< ˀ Nw *w0,8[C an `+& $ `a4B& g~qs` +_`4B) an+> $ @ ` `a4B>-, [4B> b-, c,8,8g}",< ,5,8[g},8g}",o ,8,8b,8a,8g}",< y,8 g} *p0`a,8g}",o,+_@` (2.+\ ,8,8g}D",< ,H,8Zg},8g3,8g|@b",o,8b 13O`+X ,8,8g|",< ,U ,8 g| g-,,8g~3,8g{@",oˀ Np "p+K/ ,8,8c,8g}",<+_ ,_@,8,8g}",</DDDK,x!#D(U0NAMED-HUNK-GFORMATGETL[ an@1P1` $[`a z  T [`a%5Bl A@[U z,(O,x xxztg]@d:STARTGQU*U*U:IND[:SPECIALGDISPATCH:SPACE:BLOCK:NEWLINE]:END @,<,< $[a(C"C`` $ "a' ! "D0Ca' ) "a'As "a+",8  2/`+ ! "`0a' - "a'-, $!@ "a+ˀ Np "p`/2hC / "a' $ "a'/*P/,x!<n-- Unknown message to hunk.LISTIFYERROR-00 ,,8,8",o3*U,x10ANDFBOUNDPQUOTESPECIALW*@A*DPRINT-FLATSIZE-COUNT*577x -- unsolicited operation to flatsize SFA.DPRINT-FLATSIZE-STREAM,80D`- ˀb-, B`70D`1z<;``7 7@,89,8",o3,x9]:U*p%*DPRINT-FLATSIZE-STREAM*577;xORBOUNDPSETQSFA-CREATE=;;? x ,8 -,  (*;@kUb +8 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*DPRINTSASS5B* z|YZRgA0B`k z,R!CzhLQ!1SAS"z gL!`k z|YZRgA1B`k z|YZRgA554B/ `E`e z]c07"!C zT!"z gLD!`k k,8,87o",oG $ :U,x#$GSFA-GETDESCRIBE-TERPRIACHARPOSDESCRIBE-SFA -- unsolicited operation to describe SFA.DESCRIBE-INTERNAL-SFA,80D+PP  y+U0N`}+U C1C` $%aK&` ,E,8 aKKM ! gaK p2.+N ,83 g~aK@a",<` $'` +U T"0D+Rz<;`+U ,U,8,8V,8", :Po3,xO@ 8PRINC -- unsolicited operation to describe SFA. ,80D` 5.[`'0N 1+]`' +_&+l ,80@ !aKKM $% gaK p2.` ,k,83 !@ g~aK",<+l "`'  ` "' $t ,8 @ aK",o+ `'0D P a`& "' $ ,|,8,8gy1 aK",o ,8)0a aK",<+ `' P aQ` "' $  ,80a aK",oQ+ `' T(0D`QzHz`'M`! ,,8 !baKKoM`' ',8,8,8A@D]",o3,x)8OU*U*UFILEMODETTYTTYCONSTTYSIZEABSSFA-STOREPBMAKE-DESCRIBE-SFA,<,8,8  -, $-,-,1 $*-,1@ gA[4D/[ ZU+  -, $-,-,1 $+-,1@dgA B`-, $-,d0-,1 W-,gAZ,[`, Bg {`]0.d`]DC3 Bg~3 &' Y "'a? 7@g+5 g/. Np &p`k &!A0 $-a[ $. `a[ $% `"a[ g~ ! `a[ &( $.!A0 "(a? !a[ `a[ ` a[ $%a[ ]/,xSt+DESCRIBE-INDENTATIONw*U*U577/x=// xLISTENTYIPEEK  MEMBERDESCRIBE-PUNTCTERPRICURSORPOSTYIDESCRIBE-HOME-,~ !aK h $.aK $-@aK7@g@1` ,83K_ ,W,8`P,8,8g~",<0a1cz 3 "p2 e` ,^,8 ,8gK<37@`` ,8,8gKog[ 83/``j ,8`P,8,8g~",<0a1cz 3 "p25Bl e` ,8  3K<4`i /&.  `4Ny ,v,8,8,8g~",<1 ` Np "p B`+r /&.;  `4N ,,8 ,8g~",< ` Nw "w B`+|   "//,x(More)c%j@0JEL ,8#11",og ,8,8,8g",og !@,8%,8g",og,x5".]*WkDESCRIBE-SFA-CACHE5776xLAMBDAG0006FOOBAR=66m7[7!o7?'Y'xW+].uDESCRIBE-OUTPUT5778xDESCRIBE-LEVEL577qx=qq xDESCRIBE-LEVEL-LIMIT5779x=99%xDESCRIBED-ALREADYu;UjP577sxDESCRIBE-TOPLEVEL-P577:x=::xDESCRIBE-NEXT577uxDESCRIBE-1DESCRIBE-00$0 5N $+ @-, g;`7 #Z(+  ! 6aK2B`+ @d 6`C ``] B6 u-,1H1us8 $-aKc ,*,8! 0 ! 8aKKog[ 8 $- 8aK ,\2n`c !3A 8aK`ie i gy; + -,,k@,xARGS<w %x,8 ,;,8!,88",os[(Z (R3`wA4NA 8an+B+S@  8anb`+S 8 DjT+Sq2/9`ˀ-,  `./-,-,q/ :s g-,s g;0(,+S "/,x {*}jU*U7NAMED-HUNK-DESCRIBERDESCRIBE-DEFSTRUCT-1DESCRIBE-HUNKDESCRIBE-CONSDESCRIBE-SYMBOLARRAYDESCRIBE-ARRAYP ~&~S is an object of type ~S. an+d[``4B[ an+b y `a ``5B` $ `a-, [4Bb `D=+c`{` `16 8` `>` ` 8an+l ``}`7B`d1Z0B?` ```D7D:+x ,8,8837Bg~1 Z",oG` "0t,x@UDESCRIBE-DEFSTRUCT-0 0@@-,1n`@ 0 +  ! 6aK2B`+ 6 @d` ``] B6 u-, us8 $-aK+ ,,8 !@! 8aKKog[ 8 $- 8@!aK ,\2n`+ ! 8P `0aK`ie 3 @A@`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 y@  `aC gC`+] $ DaM M,8,8^3",o3B-, 7D:`y g~ 8Dan`k i,8,8833@ *p7Bg{Z ",oG+A ,<,8,880,8_33ZD !KoG+A ,A,8,883[g|",oG,8`3,83+L` B` ,83[ *p",<CAs Bg3```/,87@g+\[g B` ,V0,8,88[s,<`b *p",oGua g}4aD $.E`@+M  " "/,xAB"u*W  9AUTOLOADDEFPROPLISPSTRUCT5DDEDFxU@!~&This is a hunk of length ~R (type ~S).~@ Its elements are:~&~S: ~vX,<7D:+,< ,< Nw *w ,l,8,88,8Z",0oG ` "p Nw *w"3Og+,y,8,88,8,8g~0 g~,< *p",oGd-, $.q@u@0ˀ` "0P ` ",xK Ga~&(~& DESCRIBE-CDR7D:+ , @,8,88",oG Y[`q@uZ`P ]H` ",x ~&)!~&.~& ~&)~& % ,,8,88,8%Da",oG+$6 `- `" 8an`= 3,8,88K",BoG Y `q@u ,,8,88,8&",DoG+$ C,8,88M",oG Y``"[`q@uZ`H,xI".U*UJ@~&~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,8S!!!`U7B:`m7B:+0 ,/,8,88,88,8g~KoG  J`Kˀ1  iaH+5AHLw  u,8,88q33",oG a J``ZZ1B+E ",8,88,89,8g~,8g}",oG  $. J`q@u` ,I,83@`K<<7Z,8A6@``O+W[`0+Q @ 00BP+R`Z`[-,3-,Z`Z D`+L/0@QR?z +5U7: g~a%[ a ` $P g}a3+d ,d,8,88s33,8g{KoG7@g+k ! gp+k ,k,8,88,8:33 KoG g} g Bg}D7@g~` ,u,8,88u g|@1,8g{,8gzKoG $TZg~1 ,{,8,88,8;`KoG` ,8,88w`Zg|",@!oG  Jg}3+  ,8,88,8<`433",oGV  Jg}7@`!+ ,8,88y",oG `V !+7@`+ ,,8,88,8=33@h ",oG `V  Jg}6B:+`k3+`k{ ;,8,88,8>,8g{,8gz",oG,8g~7@`+' I,8,8g[g[ *p",<CZ` D`+ !,8g~7@``i a,8,88}`[0s,< *p",oGd  $.[`Zq@uZ` B`+(   "//+7 "/D",xNSU"KW X' / !..-,-,/ ,8,88DK<3 ,8,88,8g",oG0uju+?DESCRIBE-ARRAY-SIZE-LIMIT577x =YxARRAYDIMSU*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`CZ $ "Za7D:+V 0,8,88,8_,8g} *p`3",oG `DK` ,\,8,88,8:3", (oG`+^ "/,x[%k] 0\PRINT-ARRAY-LEVEL-LIMIT577]x=]]!xPRINT-ARRAY-0 @-,,8] g;@B+fZ(`  ! 6aK2B`  2` 6+l ``] B6 ub"$1-,usp98 $-aKF ,u,8 ! 8aKKog[ 8 $- 8aK ,\2n fA` ! 8aK`ie $``0 @`+ @```k/,+ `u*@`<!%x~&~S is an array of length zero.~&~S~vXPRINT-ARRAY-INC-INDEX,<`Z,8* $ "Za  , ,8@,88U3KoG`O,8`,8`3+,83a B` ,0,8,88,8+,8g~ g|,<`d *p",oG $. `q@u a3_5B+'c 8` "p s. ` -,As B`30A@``//-,K,x%^,<1,8sZZ_sc 8ˀ Np *pc 8 (L`o "(-,QCg+9 QCg "@`]/,x WINSPECT-HISTORYu:]*U577xINSPECT-N577`xINSPECT-L577xINSPECT-NEXTC*TERPRI*TYIU*U*UIBASE*READNTH*EVAL*PRINTAPROPOSALPHALESSPSORTGPRINT1U*TLIBLSPGPRINTFASLLOADINSPECT-0,8!  ! 6aK0B(` 6+B  "`] B6 *a-,u8 `   $` @-, ``a`,<,8,8 @h2,8,8AKoge  0a J`;``XbX` B` +a+Z0n=+Z/. Np "p B` `1.`;9+1Eb0N%+k`C *1-, c`, an +f `4.f0a#2o`+g+SOa $ `d Bg`u0N&` Ѐ+nX`Z[`yL(0I`bX $y-.D3-,-,$``,@a1 Bgy+ `uE`b`H A@ $-.-,-,L`d$``e,+ b0`S`b`J`4B  a `n+ +S,X g`a1-,-,`A`!bXP` `` $fa`uG+ !E& "ga)hz=ni ,,8K@`0og 9,83,8,8,8,8,8,8K<g1`0N"`G A,8,8OKog ,#b,83Kow`0N$+' g -,`uQ`S g-,+>1N+K?`YX`1N`@ 3 `1N`3`+S/.@,\3n+: `/.0O $ "pd`u+SD g-, Jg+K,0 ,+ ??? -> -> No more.Form to evaluate and inspect: Form to evaluate: Symbol to set to current object: Apropos: 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._( L;< !x[~2D] ~S , ,8,88 ,8` @",oG `ˀ-, B`@KU-,,xj FEATUREALAN;DPRINTw@!kx;