;;; Compilation of /home/juergen/lisp/mevalxp/comp-all.lisp, ;;; by juergen on LispWorks Personal Edition 4.4.6 at 2008/04/09 17:31:16. ;;; 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 UNSPECIFICBCABSOLUTEhomejuergenlispmevalxp>>EU comp-alllispB;TC LISPWORKS((TOP-LEVEL-FORM>>>E%= % U BH %IN-PACKAGEh:;%8v-u(UuuE E%*#16BHBNEWCL-USERBCB>>>E%= /~;%8veu`UPP}tZ}tTu uEPE}Eu EPEuu ɏ$1(;RIZinBH CONS-2ARGHCOMMON-LISP-USER44ZIPSEQ66CDR-1ARGHFCDISPH6CAR-1ARGHBB?4FN4L14L2 ;??? ? >^???? A>V nB >M B>??jB>5 B>,?V{B @ :B b;%8vLuGUPPP}t@u uEEu uEuu }ɏ$E#4<PUBHB&H4FOLDBHBHBB?B4START4LIS E??? H  >@?=??? J>8 B>'?B I DB ^;%8v-u(UPP}t"uEtEuuEuuE뷐$6LBHBH EQL-2ARGHB'HB4FINDL?4ELMB# O?? Q  >P?=?? S>(?B >#?fB R MB z;%8vQuLUPP}tFEPEEEP}u-Ep#uuhEΐU%0IZq +2ARGSHBH4 ENUMERATEB%HBHBHBB2?B4STRT X?? Z >u ?? \>M?B>4?Z{B>)?jB> ?=B [ WB vV;%8v/u*UPEt%u~t"EtᐐM&8BH6 CDDR-1ARGHB4LENGTH=2?B#? a >*?? b _B S:;%8vuUt@t2%BHB4LENGTH=1=B#= f dB ]6;%8v(u#UuuE E%#,1BHFORMAT~SBC4 SHOW-ERROR>>>E =4Z= n jGn:3UPhWE^[搐 *MAPCARBCBerror: BFIX-REST-ON-STACKHBH?&RESTB t? v >.??>?? w sB%  U BHDSPECyyINSTALL-DEFPARAMETERn:;%8v-u(UuuE E%#*16BHBhC4 %MAKE-CLOSURE>4GET-WORD?=4 %MAKE-VECTOR>B?>4%RESERVE-SPACE>B?>4%CONS>B?> >%>ERTJQ)E4 *SYSTEM-LIST*BC DEFPARAMETERBy>>E%=  U  HBmn:;%8v-u(UuuE E%#*16BHBhC5CARCDR4%SVREF4 %SET-SVREF4%SET-SYMBOL-FUNCTION4%SYMBOL-FUNCTION4%SET-SYMBOL-VALUE4 %SYMBOL-VALUE4 %CLOSURE-REF4%PRINT4%READ4DO-UNTILAPPLYFUNCALLVECTOR4GET-BYTE4SET-BYTEB4SET-WORD4GET-DSP4GET-CSP4GET-A-INDEX-PP4SET-B-INDEX-PP4SET-A4SET-B4 GET-STATUS4 SET-STATUS4P-ALIGN34P-CONSTR4P-ADD4 P-SHIFTL-14 P-SHIFTR-14TAG-AND4TAG-IOR4TAG-XOR4TAG-EQ4GET-TAG4TAG-SET4ADDR-EQ4ADDR-EQI4ADDR-AND4ADDR-IOR4GET-ADDR4DEC-SP4%+4%-4%*4%<=4%>=4%<4%>4%=4%/=>6>5EUUUUUUUUUUUUU 4*PRIMITIVE-LIST*BCB}Bl>>E%= |V;%8vIuDUPPP}EEE@uuuuuuuuuuuMRH6MEMBER-EQL-2ARGHB'HB4 IS-SYSTEM?4FORM?  >??  Gj ;%8vTuOUPPu u PhE}tEt@Ð!&,16>X]BH6 CADR-1ARGHMEMBER SYMBOL-FUNCTION$SYMBOLHKEY SYMBOL-VALUE-1ARGHBB4 SYSFUN-ARITY?4HEAD?% !  >B?=?%>: ^?%>* ?% " G j ;%8vTuOUPPu u PhE}tEt@Ð!&,16>X]BH6 CADDR-1ARGHBHBBCBHBB4 SYSFUN-HEAD? ?% '  >B?}?%>: ^?%>* ?% ( %G  U  Hy INSTALL-DEFUNo;%8U3VVP u EhEMuNEt uEhhWEhhuuuuu uE E%"3)8@RotΙy~צBH&BBBB  %NEW-CLOSURIZEHB CHECK-GENERATIONH MAKE-RECORD$FIXNUMHpHBB~HB$CB>>>E%? @ ?>4SYSTEM-LIST-HEADS @ 3?>3?>B>D>2 ><  >&? 2 /^;%8vNuIUPPEE u uuuuuuuuu).RWHHB HB9HB4 IS-PRIMITIVE??% 8 >2?DBG;; transform @?% :>>z?% 9 6B" A";%8vuU}}H LIST-2ARGHBC4MAKE-LET>>>E >4X4Y B>= E ?G{F;%8v6u1UPWu EPEE ɏ$!:*1?BHLETB!HB=$A?4VARS4VALS4BODY I??? M >.???? O>%?B N HB A";%8vuU}}H>H$C4 MAKE-LET*>>>E >CB T>= U QG{F;%8v6u1UPWu EPEE ɏ$!:*1?HLET*B!HBP$S?BBB Ympon ?o?j?g lZ x>.?al?;?b?u e\>%?WB P[ XB . =;%8vu UHH$ue4LET-VARS=4Eed= a ^u_ ay ==;%8vu UHBLHBossr4LET-BODY=`= e cB {N;%8vuUPEt EuuuuuEE(AJ3HPROGNBH4IS-PROGNB4 PROGN-IFY?`? k >>z? Al OiB Z:;%8vuUt@=u'BHLAMBDABu4 IS-LAMBDA== q oB[ plU.;%8v!uUPuEE%*Hn3HB4 MAKE-LAMBDA?JB uB?A?G v >??? x w sB( P*;%8vuUPE#HH4= UN-ANNOTATE$4 LAMBDA-VARS?}?u } >>z? ~ u{Bg PP*;%8vuUPE#HBLHz$H4 LAMBDA-BODY?ML?S  >>z?E  Bl G=;%8vu UHH$4 IF-EXPR-TST=`=  B& =;%8vu UH$H$4IF-EXPR-BRANCH-T=`L=  tB* =;%8vu U%HCADDDRB4IF-EXPR-BRANCH-F=`OLD=  B/ V6;%8vuUPEt 񐐐'H6 CDDDR-1ARGHB4 IF-EXPR-HAS-3?`^? - P>?u?  tB4 ]6;%8v uUPE=u !)HLABELSB'HB4 IS-LABELS? ?  >>z? P   U  H4zANNOTATEuPPZ ;%8vKuFUPPuEPEEEuu%(-2@OTBH24 GET-ANNOTATEN LIST-3ARGH9HB2$C4MAKE-LABELS-LAMBDA>>>E ? CB  ??  >D j)?? ?= >6 ZBd>1 U{B>,VB> u*U֪=B tu G t{F;%8v6u1UPWu EPEE ɏ$!:*1?H3HB$?4FUNS4 FUN-LAMBDASB @???  >.???? B>%?Be  HB =;%8vu UHBLHB4 LABELS-BODY=,=  O T U  HBmn:;%8v-u(UuuE E%#*16BHBhCgIFCONDQUOTEFUNCTIONVALUESTN-MULTIPLE-VALUE-BIND>>EUS4 *SPECIAL-FORM-LIST*BCB}>>E%= s^>;%8v'u"UPEt t8u 񐐐(0HB'HB4IS-FORM??  >>z?   #^;%8vNuIUPPEE u uuuuuuuuu).RWHHB HR)9HB4IS-SPECIAL-FORM??E% R >2?B' @?% >>z?%    fF;%8v(u#Uuut@=u鐐)"1H$HB4IS-IF==  S SETfF;%8v(u#Uuut@=u鐐)"1HgU$REFh=B=  RBS UfF;%8v(u#Uuut@=u鐐)"1EHSETQB-4IS-SETQ=EP=  -P fF;%8v(u#Uuut@=u鐐)"1-H1$-4IS-QUOTE=AG-=  A AG-fF;%8v(u#Uuut@=u鐐)"1DH$D4 IS-FUNCTION==  - *fF;%8v(u#Uuut@=u鐐)"1EHDEFUNB4IS-DEFUN==  u }fF;%8v(u#Uuut@=u鐐)"1HR$L-2'4 IS-DO-UNTIL=SSTE=  O ~;%8vkufUPPEu}uZE=uFuu}t uvuEuuuuuuuuuE"',KotHB!HB+H4 &&ANNOTATEBHH$z?BR?H  B >O??>+?LZ?N>&?$j=?B  Be }N;%8v7u2UPEu}u'E=uEÐ;5!&+@H9HH$?T? u  >9??>*?Z?>%?j=?   f ;%8vQuLUPPP}tEEEEEhEPEuuE +3;DUIZHB!HBH>H9Hz$* ?4VAL ??  >M?{L4FORM-1 @??  >H >? B>/?=B>$?=B E B b;%8vAu4 BH4ANN @NEW?U%?E   >?CE  A ON B C$=;%8vu UHB'HB4GET-FORM=` =   >D=;%8vu UHH$4GET-AUX=`u=  u  U  HLOAD-XREF-INFOHL&;%8vuU%BHCB, XREF-INFOBCALLSSYMBOLPTLF-NAME-BINDINGTOP-LEVEL-FORM-NAMEyDEFD& REFERENCESESTCADDRSYMBOL-FUNCTIONBADNENEQLBNULLGBBB|EzCADRGBBB0EU+D EB BBBBEtEECONSBBBBEyLOCATIONzD:E1GBBBHETBCDDRBBBBpEEQCONSPGBBBJYEOBDCE CB NBBBBhES?LISTPBBBBEB SBBBBBjuEB }hGBBBELISTBPzNBBBBEB NALGBBBEEBBAD0JEBBBBpDdEB BBBB;%HARLEQUIN-COMMON-LISPWW SUBFUNCTIONBEB *D5E5B PBBBBBB1&B EB *ED!_EB BBBBEB|V5oPBBBBjSgEB5PBBBBalESBBBBEWSBBBBBESBBBBBEUCDDDRB NOTBBBBBBEB *DelEEpBSGBBBE SBBBBBE=GBBBEB UzDeENBBBBBESBBBBBEBBBBBEB zD`EB NB BBBBBEuSBBBBBEB BBBBuESBBBBBmake-safe-for-tail-call-397B DAEB5GPBBBB&PENDEzGRBBBBVE+ VPBBBBBJEBBAGBBB7uJ E=BBAGBBBzEB BBSBBBB??EPTRTUU)EU)E)EUJQRTJQRTURTUU)EUUUJQUJQUUJQU)ERTRTDIUUDIU)EUURTUJQUJQU)EUUQ&RTRTUJQRTJQU)EUU)EUU)EUU)EUURRTRTURTUJQRU)EUU$CB>>>E%= ]