;;; Compilation of /home/juergen/lisp/mevalxp/system/basis-02.lisp, ;;; by juergen on LispWorks Personal Edition 4.4.6 at 2008/05/10 19:15:15. ;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0 ;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3 ;;; Source level debugging is on ;;; Source file recording is on ;;; Cross referencing is on A  U SYSTEM  MAKE-SAFE-FOR-TAIL-CALLHCOMPILERNOTE-START-OF-FILEL&;%8vuU%RUNTIMEBAD-ARGS-OR-STACKHB COMMON-LISPPATHNAMEKEYWORD UNSPECIFICBCABSOLUTEhomejuergenlispmevalxpsystem>>EU%basis-02lispB;TC LISPWORKS**TOP-LEVEL-FORM>>>E%= 'wF;%8v6u1Uth(7-2?BH CHECK-GENERATIONHCLET SETQCOMMON-LISP-USER VALUESCNTQ>VALUESQ %MAKE-VECTOR>B GET-WORD?> B*BASE-PKG-LEN*>5B *BASE-PKG*B?>DEFUNNEXT-IIMADDR-AND%+B>BBMOD-MBBIF%>=BB%-BBBB BASE_CTRLP-CONSTR = DEFCONSTANT *RAW-QUEUE*>pSET-WORD>d==B>d>=BIRQXBCHBB >GET-PTB>d=INSRT-PTB>d>SET-BYTEBBP-SHIFTLB>B INSRT-PT1B B>BNOT%=BBB>d>BBS GET-STATUS SET-STATUSADDR-IORB"?BBB=>=%SYMBOL-FUNCTIONQUOTEBBTO-ASCIIVALB%<=B> BB>0BB>7BPRINT-HEX-DIGITPOSB BBASE_VGABB>BBBPRINT-HEX-BYTEB#BBBB>BB>BBBTAG-ANDP-SHIFTRB>=>B PRINT-HEXB#BBVB)BBB>BBB >?BBB>BBB1BBB>=?BBB>BBB1BBB>=?BBBB"BB>=?BB,B =BQPRINTSTROBJCONDNUMBERPB, PRINT-NUMBERBBSTRINGPB PRINT-STRINGBBNEW-LINEBB/BNUMB+OUT-POS-BASE+?MB+OUT-POS-LAST+?`BB1BBBLENLENGTHB"FUNCALLB"DOB=BB>BBB4BBCHARBBB6B"BOUT-POSB=B SET-OUTPOSB#SETFBBBSOUTFUNCTIONLAMBDACBBBB&> CHAR-CODEBBBCB%BBB2 BDPOSB?%REMB2?BB=BB>BBBBBB BMINABBBBB P-SHIFTR-1BBB BB>BBBB B:=BBBEBBBRESBB>%*B%DIVBBBB BJBB=BPBBBBBD>=>BBZBBMBBBPBB!>BBOBB2>BB BB>BMULBGBBBB P-SHIFTL-1BBB>B%/=BGBBBB/B >BGET-INFOBBB&&EQBB:ANDADDR-EQBB:BGET-TAGBBJBBNULLBBB >BATOMBBCONSPBBBBBB.B&B CONSBB:BP%ALLOCATE-SPACE>BBQ=BBBQ>BBBgTAG-SETB>BBCARBBBTB BB=BCDRBBBTB BB>BSET-CARBBBB=BBSET-CDRBBBB>BB *CONS-TAG*>BB]BTAG-EQBBVBLISTPBORBKBBMBB*STRING-HEAD-TAG*>B *STRING-TAG*>B MAKE-STRINGNBB?BB"B$>>BN-ALIGNBRBBJB>>>BBhBBBBQ=BBBBY>>BBBQ>BBB=BB>BBBkSET-CHARBB CODE-CHAR=BBgBBB BBB:BBBBYTE-VALGET-BYTEB4BB>BnBBBoBBB?BBzBBBBBB>BoBB0BBHBBB[BHBB=BHADDR-EQIBBo>=BB BBB7BBBbBBARRAYPBBB>>BSTRINGBB:BSTRING=BB:BSTRING-CMP-CODEBB:BLEN-XB@BLEN-YB'BRES-CODE=BB=BB>BgBBBxBBByBB'=BCC-1BKBBBCC-2B@BBBBBB%>BvBe>BBBd=BBB7B>BBbB=BBB>BBGET-HASHB+BBBB?BBB#>BB=BB>BBBB->BB BBBVBBBIBB=BBBBMBBBBB>?BkB*ARRAY-HEAD-TAG*>B *ARRAY-TAG*>B *ARRAY-LEAD*> B MAKE-VECTORBmBN-BYTESBRBBJ>BB>BhBB%BBQ=BBBBp>>BBBQ>BBBQ>=BB=BB>BBBk SET-SVREFBB BBgBBB#SVREFVECTBBqBJB>loBBBBzBJB>lBBBuBBHBBBrB|BB=BHBBBo>=BB B *CHAR-MARK*=B *CHAR-TAG*>BBBBBB>BBpBBQBB>Bz CHARACTERPBBWBBz*SYMBOL-HEAD-ADDR*>B*SYMBOL-HEAD-TAG*>B *SYMBOL-TAG*>B MAKE-SYMBOLB+BBhB>BBQ=BB+BBBQ>BBBQ> BBQ> BBQ> BBQ> BBB/INTERNB+BHASH-VALiBBBSLOTpzP-OLD P-AKT  STR-CMP-VAL>TEST-STRBBAKT-ATOMBYBB4BBB<~=~BB SYMBOL-NAMEB7B5|B}BBB=B}BB2~=LET*NEW-SYMBB NEW-HOLDERB3B SYMBOL-VALUE>SYMBOL-FUNCTION>  SYMBOL-PLIST>SYMBOL-PACKAGE>SET-SYMBOL-VALUEBB>BBSET-SYMBOL-FUNCTIONBB> BBSET-SYMBOL-PLISTBB>BBBBB>BBSYMBOLPBBHBBB~B|BB=BHBBBo>>BB B *FIXNUM-TAG*=BB.BBWB%NEGBB=BB%DIV-0BGBBB[=B >BB3BBBBPB BBBgBB BBgBB'B=BBxB=BBPBBBBBG=BBBB?BPROGNBBOBB>BBBZBBMB BBPBBBBgBB'B=BBPBBBBBBBB*CLOSURE-HEAD-TAG*>B *CLOSURE-TAG*>B*CLOSURE-SLOTS*>B MAKE-CLOSURETEMPLqBhBBBJB^>>BQ=BBIBBQ>=SET-CLOSURE-REFB=BPBB>B)BgBBBMBB CLOSURE-REFCLBB>BJB>BBBB>BJB>BBCLOSUREPBBHBBB|BB=BHBBBo>>BB B8*TEMPLATE-HEAD-TAG*>B*TEMPLATE-TAG*>B*TEMPLATE-LEADER*>B MAKE-TEMPLATEDBABnBBBJBB>B>Bg>BhBB%BBQ=BBBBp>>B/BQ>P-ADDBBBJBg>BBi>BQ>BYBQ> BBB=BB>BBSET-TEMPL-REF-DBB B7B=BB>BBB?SET-TEMPL-REF-CBB==BBgBBBVBBLENGTH-D> TEMPL-REF-DBBJBg>BB>B TEMPL-REF-CBPCB>BB>BBBBBJBg>BB>BBBV-HIGHV-LOWB>BB>B B TEMPLATEPBBHBBB|BB=BHBBBo>=BB BAB`B %RESERVE-SPACEBB CREATE-NIL B  B B B  TOSP-MOVEB_QPSIZEBB=BB>BBBBbBB ALLOCATE-DOWNBmBB0BpB?>dTOSP-ALLOCATE-UPBpB<COLLECT-GARBAGE ALLOCATE-UPBBBBB0BpB?>\B BB0B?>0BBBBBB?>0B?>0BBB`*TOSP-ALLOCATE-DOWN**TOSP-ALLOCATE-UP*IN-TOSP-DOWN-PB_BBBWB?>\B$B>B?>dB IN-TOSP-UP-PB_BBBWB?>`BFBB?>\B*IN-TOSP-DOWN-P**IN-TOSP-UP-P*GET-SIZEB_BB0B>BB/ GET-SIZE-HEADBBBBvBB,B>BFB>BB1>BTB>BcBBvBBGET-TYPEB_BB0Blatcons BB/uestring BB/syarray B,Bi character BFBosymbol BB1number BTBclosure BcB19: template BBBSedPHBBb=BB>=1WAITBGBB=BB>BB ilB7B=BBF>BBCBB n s DSP-STARTGET-DSPug CSP-STARTGET-CSPBTOSP-DIRB?;>(s TOSP-ALLOCATE   IN-TOSP-P  IN-FROSP-P  TOSP-FOLLOW  DSP-TOPB*? >KECSP-TOPB?>H%PRINT?Ru7BB BOBA tosp-dir = BB?W%BxBf=BB%BB?>\B?>0B?>\B?>(>B?>,-BOTBBBML?>`B?>0B?E>`B?>(>B?>,PFBbefore do, dsp = Be"B&BB>BBWpBQ=TRANSPORT-TO-TOSP-1BBb=BB-Bafter do, tosp-follow =BBstart csp process:?-"B&-BB>BBW BHBPC4BBb=TPBBb>B:TPNBVBBBBPCNB!==BQ=(BQ>7B?2"B=B>BBBBB;B&B(BBaBBBBBBBB>BBF>BBC>BBML-BBBB?UB?BB;B=B>BBBB4BPBBMBEBBBafter *base-pkg*?B--AC=TC=PKCC=SC=FUCSC=ESYC=R BUBB?>0RD=B=BB-B=BBB+BBBB=]B>>BBCBJ>CBB>ORBB0BBC>N^BtB>WB?B>"B=BB>BBB4BPBcBBbRBBBBB0BB >-BB6B>BB9=BBB8=BBBBB9>BBB8>BBBBB0BBF>BBDB>T"B>BB>BB>B =dBBBB0BBS>-BB'B>B?DB-B>2"B=BB>BBB4B/M-BB,NBBB>3B>BBC=>BB!>>4BBB0BBB>5B>->B> Berror fall throughA>dBBrB>BB0>EYB>BB0>DB>ABB0>>B> -F>B=BBBBBBB0>B?B>BBgc-finished phase 1BBac / tc /sc / cc / csc / syc = B BB BBBB BBBBB GBIgc end.BBBBBBBDP=DBB>TRANSPORT-TO-TOSPBBBB*BIT31*B>>BBBBB/ MOVED-FLAG BB1BBBB0ABBSS!KRBE^EHBBB=BBBBX!OB>BBJBBPBH>>BB;PB>>-BB0EKUSRB^F>BBXO>BBJCN>BB;AA>BR-MOVEBABB)BB8BBB)BB0<6J>>PJ>B0RM2BRBBB^BB=B=B>BBBXB>BBBJB>BBB;BBB>>>moved templateB>BBBULB COPY-LISTLBBT BB1BEB EBBgBBBBBBBLBGBB B*LBgBBBXXB BBBBG>B> BBBB=BC=*RESERVE-SPACE-1*BGBB-BB?>,BpB?P>`B?>B?>dBB?>`B ULBB ?B>\BB"BB??>dB?>`>B?>`B?>(>B?F>0B?>B?>,BBB!B?>`?->,B?>B?>Lower Arena = B?>`RB Mid Arena = BB?B>\base pkg length = BT BB>B:B=BB>BBBi = BSBBoBBLB-B>BB7B=BB>BB> BBE>BSBB>A9B>BBB=BB> base pkg length = BB BB>-BBBmysymbolB]?N>0BB]TST1 B BNBjuergenTD B*XX1*B&JUERGENB*XX*yJUERGENB\B(B@BBBBqB@BB*YY*yvesselaB\@>ByBBjuergenB\B,BB8> > BFBmBBBL>>>BHBd>Bd>BABF1BmBBBAB >B> >BBB]LGBBYB > B4GBBYB > BAPPBB.GBH>[GBBBS=REVoB.B >BKBBLABP-LOWB_BBBB[B= I>>BP-HIGHB_BBBB[B I==>B COPY-TEMPLATELDBBELCB> B=ODEhere 0BB6BB7xB NEW-TEMPLBkBBhere 1"B=BB>BB BBkB>Bvhere 2"B=BB>BB BBj= BBBB-HBTTXB>B=BBBlBB>BBB> BBBB5B?kREVCLOSH-BBBsBBx=BBx>&*AAA*-L12345BB=BB>BBB5BB#-BmBBBnB>7B#BB >?B?>H EE%E)ETRTJQ)EITRRTJ%UR%EDDDRQ)AT*RD*Qi*QQ*ETR%E%RD%RDTf*EIPJT)QIQD%QDeRDTfR%BIRRI%EIRIPT*TJQT*A)ER)EDRTRJT*A*AQP)%QYJQTJQT*E)EQ%AE*QITRI%AI)AeJQ)E%QIQT*JTJTJQ%QI*ERIJeR*EIR%URTR$QFR$QFRT)EIRITJDITRIQQ*R%AQP)RT*EIEJQ*Ee*EQDT&IDI))E)E)E)EID)EBTRIIQDTD%D%D%AeBeBeJQD)EBQ)RDQ)E*TRIQQ*R%U R%ETRTRDeITDQTRI%ER)E)ER)TRIQ*R%UR%UR%JQQ)%%%E%JQDRIB%AJ%QRT)PIDRIUJ*ER)ER)ER)ER)ER)EIRT)EIRT)EQDT&TR$R$R%RRJeJTRJPD%QTJQRRD%QI)QIQT**TRI%EIRQ)UR%URTREJQIQTR$QIJDeRJ%TRIQ*RQD%*UR%AQP)UJPT*TJUJQi*ER)EIT%AT*EJQITRTIJQIJD%AT*I*ERJEQI%TEBTTIDT&RIR$QTJIR$AT*EJQTTRDQ*EE*EE*EJR$APR %P& eBPRIP& eBP& eBJQDe*E  TQ)%%%%Q)QTRRD%TRTJETIE*QI%RQ)UR*DJPT*TJETV*TR RDDDUJD%E*URJIPT*TJ Q*AQP)QY*%A)AQP)QYRIIPRRRRRRJ)ERDD))E%%EQ*EBII RJQ*EBIIETVJETVJQJQPR RJQJQPRDEBTDeRR*%EQ*%EJTRBIIQPRRT*JRQRTRRI%%%%%%%%UD%&Q*EUDPRDR% %EQBIPRDeAI)DI)BIPR)T*AJE)AIQDQT QRJETT)T)T)D%UID)eRDRRRQTD)Q)EDRQ)QIRTT*URQ)Q*Q)Q)URRRDEBDTDJPT*TJJT*%Q)Q)%QJTJRDD)E)E)%Q)QJEEDIPDDDIeR)Qf*e*EIPR)%E*EIDIR$ER$ER$AJJIIIJIPT*TJER RjDQJRDJDTJJ%AQPJTJET*Q *BASIS02*&CCB>>>E%= CURE U BHLOAD-XREF-INFOL&;%8vuU%BHCE XREF-INFO(CALLSB/BSETSBBJmake-safe-for-tail-call-397B >> EPRR*BBC>B>>>E%= 3L