; RHQU*U*UPROGNCONDSTATUSNOFEATURENOLDMSGTERPRIMSGFILESPRINCPNPUTU*UjuQUOTE;Loading THREAD 8   pSETQxDEFPROPU:U*UT+INTERNAL-STRING-MARKER xALPHALESSPLISPV2071PUTPROPTHREAD8U*U.UVERSIONPUSHLAMBDAXORFILE-EXIT-FUNCTIONS     xFBOUNDPdefvst-initialize|U*UjUGETAUTOLOADLISPDEFVSYFASL!!#!%#xANDFEATURECOMPLRU:]*USPECIALTHREAD-CLASS')+xCLASS-VAR +xCONS-A-THREADLINKSTHREAD-LINKSU*UjWCARTHREAD-CAR**SELF-EVAL**VECTORCLASS5pDSKNILCOM! -31/7 xU*U*uEVALDEFMACROTHREADPLIST*EQLISTSTRUCT-TYPEP')9;=? xSUBR:U`?0B  " ,xX *RSETTHREAD-RPLACASI:CHECK-TYPER&A",8A``?1B ` &! $ @`aC `-,@W*u/+  FLUSH-MACROMEMOSTHREAD-LINKSCDR"E"xTHREAD-LINKSCDR MACROW*U*PMACROE#GxMACROFETCHLENGTHWrong number args for macroERRORCDRMACROMEMO0$5B `I1N`% %,8,8  ,8g",oKZ`[-,1 $&-,2 E $ `aM,x%]:\0  THREAD-LINKSUNCDR"'"xTHREAD-LINKSUNCDR MACRO'OGx$G `I1N+ ,,8I,8g",oKH Z`[-,1 1-, &' $A@KW `aM,x%x 1CONS-A-THREAD-LINKS"("xW*@1 CONS-A-THREAD-LINKS MACRO(QGxUNCDRCONS$5B/ $& `0 $)*`-,1,Xd@-, S-, &( $ `aMu.,x %THREAD-CDRTH')9*UEUx`.Z,x 0THREAD-UNCDR')9+U'Ux` [,x0 eTHREAD-RPLACD,8A P(@+;`?1B +; W $ aC``-,XC`*g!+ 8 5THREAD-RPLACU,8A``?1B ` &, $ aC `-,QC`*g.].U+ @ SI:THREAD-FREELIST')YxBOUNDP-YYx+INTERNAL-WITHOUT-INTERRUPTSU MAKHUNKTHREAD-CONS,8,8 * -,1[Y B`4BR@Y-,0  `,7@`` ``@0 "-,XC` "-,QC`(2 `+h ".`]+XJ 30QH ...-, $-,/,8`,<i ..p g~0-,3 $-,/0@ U/,xp JEXTSTRLOADE_0_xSI:DEFVST-BARE-INITa +-1/7 xTHREAD-FIRST SI:THREAD-MOVEA (1 z0cIL;EC c*2 THREAD-LASTA e z0dw c*2$T;( lTHREAD-CDRINGTHREAD-LENGTH-CDRINGA (3 z0dw c*28 U C]THREAD-UNCDRINGTHREAD-LENGTH-UNCDRINGA (4 z0cIL c*2H qA4ETHREAD-LENGTH "5+|`i * (3 z0dw ` c 2 `.-,A:U,xX PFIXNUMPTHREAD-MOVEU*U*WNULL+INTERNAL-LOSSAGECircular T at this address q9 s:u;pwwwxw x,8,8,< "-,c[Z[Z[ ,8,84J7@g|` g|`?1B  ` ; g|aC Bg| m aC g|-,-,,827@g+3/g{+ ``? @ 1B `76@`+7 &p"  $7o83+-,`?37` g+03og}+& K@,8e *p",oK0ˀ7@g~`U g`Z+, g`[ g ; Bg3 `0 J``#/,x"u.W65w 0}non-simple-x|MACAID<<#<y#xSI:THREAD-RECLAIM-1-F"="xW*U*PSI:THREAD-RECLAIM-1-F MACRO={GxMACROEXPANDno-funp|+INTERNAL-DUP-PGENTEMP:LOCAL-VARSETF0$5Bb `I1N`s s,8,8c01,8g",oKZ`[>`}4B^1D `?4B^ ,g &@ $ a@2-,1-,1 E @0-,z :w-, -,@ P2-,1 $'-,z :w-, d-,-,1 $-,(`Yz jh U*-, -, g~-,2H(1 Y-, $-,z :w-,0@,X-,,X-,3-,0H,X-, $-, g -,1 $-,-,1,X-,0 C` ` "=<0`K &= $ `aM,x%X 3P&A"THREAD-RECLAIM-1A+i`?1B +i &A ;Ab `aC B` * -,[ ``[ `b $Z ,8 g`@1R`Z` gY g-,Y4Dv "`R`3``R``d /, ",x U:"THREAD-RECLAIM-CDRINGSI:THREAD-RECLAIM-MOVING $ &B {THREAD-RECLAIM-UNCDRING $hA&B( THREAD-RECLAIM`?0B + ``D[` " &C $ *`B7@`+"b@0 &C $ `B` ",x]!0 ~,8A+`?1B 0+ ` ; gaC Bg,87@g`+`[ B`4B`Z`+`Z B`4B`R`d!7@g+.,< * -,[_@ 3+, `4n,7@g+"`Z`G`[ g~`R`Z`b g~Y g~-,Y Np `0 "p,Xg~+,0P ]`3 ",x PRINLEVELU*U SI:PRINLEVEL-EXCESSPRIN1PRINLENGTHSI:PRINLENGTH-EXCESS:PRINT-SELF->THREAD-CLASSLSUBRs:p7BD"+7 p3.+7 m,8,8g~",@(<`6@`7d ": 1`{ +> .P `p+L4BL p: ,F,8,8F",<+Ljf@ $(Eg ``>pZ D`+?/00:-,` +R .P7@``@" pjg ,Y,8,8F",@ <`: `@ $(Eg ``>pZ D`+S/AHjh " ,xEs=e @  j]p|thG@00ADD-METHOD:PRINT-SELFH+x;