;"I(U*U*UPROGNCONDSTATUSNOFEATURENOLDMSGTERPRIMSGFILESPRINCPNPUTU*UjuQUOTE;Loading THREAD 8pSETQxDEFPROPU:U*UT+INTERNAL-STRING-MARKER xALPHALESSPLISPV2071PUTPROPTHREAD8U*U.UVERSIONPUSHLAMBDAXORFILE-EXIT-FUNCTIONS           xFBOUNDPdefvst-initialize|U*UjUGETAUTOLOADLISPDEFVSYFASLxANDFEATURECOMPLRU:]*USPECIALTHREAD-CLASSxCLASS-VAR xCONS-A-THREADLINKSTHREAD-LINKSU*UjWCARTHREAD-CAR**SELF-EVAL**VECTORCLASSpDSKNILCOM @ xU*U*uEVALDEFMACROTHREADPLIST*EQLISTSTRUCT-TYPEP xSUBR:U0B g " ,xX *RSETTHREAD-RPLACASI:CHECK-TYPER&A",8,87F +1B + &! $ @` g! Bg `-, gXB(*gW*u/+ FLUSH-MACROMEMOSTHREAD-LINKSCDR"""xTHREAD-LINKSCDR MACROW*U*PMACRO"##xMACROFETCHLENGTHWrong number args for macroERRORCDRMACROMEMO,8@`$5B `$1N+ ,,8,8  ,8g",<%Z`[-, $&-,2 &" $ `&/,x%]:\0  THREAD-LINKSUNCDR"'"xTHREAD-LINKSUNCDR MACRO''#x,8$5B# ` $1N+ ,,8,8$,8g",<%H Z`[-, $-, &' $A@KW `&/,x%x CONS-A-THREAD-LINKS"("xW*@1 CONS-A-THREAD-LINKS MACRO((#xUNCDRCONS,8$5B/ $& `0 $),8 g*`-,,X @-, $)-, &( $ `&u./,x %THREAD-CDRTH**"*x,8[.Z/,x 0THREAD-UNCDR+*'*x,8[ [/,x0 2THREAD-RPLACD,8,87F P(@+;1B +; &+ $ g! Bg` g[,8 g-,XC`*g/0t+8 5THREAD-RPLACU,8,87F +E1B +E &, $ g! Bg g [,8 g-,QC`*g/.].U+@ ?SI:THREAD-FREELIST,xBOUNDP-,,x+INTERNAL-WITHOUT-INTERRUPTSU MAKHUNKTHREAD-CONS,8,8,8,8 * -,1 - , B`4BRZ B, g~-,0  `XB ,7@`+Y `[@0,8 "-,XC` "-,QC`(2/ `+h ".. XJ (0QH,8 ...,8 g}-, $,X-,,8`,<i ..p g~ g~0,<-, $,X,\-,/0@ U,X/,xp JEXTSTRLOADu:U""/ 0/xSI:DEFVST-BARE-INIT0  xTHREAD-FIRST SI:THREAD-MOVE (1 z0cIL!nDE! $1*2 iTHREAD-LAST (2 z0dw $1*2](HT( lTHREAD-CDRINGTHREAD-LENGTH-CDRING (3 z0dw $1*28 nU C]THREAD-UNCDRINGTHREAD-LENGTH-UNCDRING (4 z0cIL $1*2H qP4"THREAD-LENGTH,85Bu "5+|4 * (3 z0dw ` $1,8 g 2 `./.-, A:U//,xX sPFIXNUMPTHREAD-MOVEU*U*WNULL+INTERNAL-LOSSAGECircular T at this address899::;pw;;x; x,8,8,8,8,8,< "-,,81[Z[Z[ ,8,8,84J7@g|+ g|1B  + g} $ g|! Bg| g} $6 g| ! Bg| g|-,,8 g{-, ,82,87@g+ g3/g{+ ` @ 1B +6@`+ g4N gz,< &p"  $7 "78/7@g~+ g-,0@+6@g}7` g+03og}+& ,%@,8,82 gy,< *p,8",<%/0 g..,<7@g~+* g[Z+, g[[ g Nw (w Bg Hg `0 J`/+//,x"u.W65; 0}non-simple-x|MACAID<<<<xSI:THREAD-RECLAIM-1-F"="xW*U*PSI:THREAD-RECLAIM-1-F MACRO==#xMACROEXPANDno-funp|+INTERNAL-DUP-PGENTEMP:LOCAL-VARSETF,8@`$5Bb `$1N+9 ,9,8,8c 0,8g",<%Z`[>,8>4B^DD `?4B^ ,? &@ $ ,8 @2,X,8-,,8 g-, $" @0-,z :w-, $@-,*g P2-, $'-,z :w-, $@d-,,8 g~-, $-,(`,z jh U*-, $@-,,8 g~-,2H( $,-, $-,z :w-,0@,X-,,X-, g-,0H,X-, $-,,8 g -, $-,-,,X-,0 C/+_ ` "=THREAD-CLASSLSUBR,=g:p7BD"+7 p3.+7 ,6,8,8D,8g~",@(<+b6@`7d ",8 g~jd g} 1,87DE+= +> .P,8,<  `3Bg|+L4BL p5nF g}je ,F,8,8F,8",<+L g}jfZ $(Eg `[>pZ D`+?/00/ g~jf g}-,,8@ 7DE+Q +R .P,8,<7@`+_@" p5nY g}jg ,Y,8,8F,8",@ <+_ g}jg `Z $(Eg `[>pZ D`+S//AH g~jh/ " //,xEs=e @  j]p|thG@00ADD-METHOD:PRINT-SELFGHFx;