;;; Compilation of /home/juergen/lisp/mevalxp/comp-2.lisp, ;;; by juergen on LispWorks Personal Edition 4.4.6 at 2008/05/10 19:14:56. ;;; 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-2lispB;TC LISPWORKS((TOP-LEVEL-FORM>>>E%= % U BH %IN-PACKAGEh:;%8v-u(UuuE E%*#16BHBNEWCL-USERBCB>>>E%= /6;%8vu UEBHBCCOMMON-LISP-USER77COMP-2LABELS7 COMP-2-OTHER>>E>7E7SL ;>= > 3G6;%8vu UEBHBCBB7 COMP-2-STRING>>E>BB E>= F @G6;%8vu UEBHBCBB7 COMP-2-NUMBER>>E>BB M>= N HG U BH7 COMP-2-SYMBOL U BH7 COMP-2-NOHEAD U BHBE U BH7 COMP-2-SETQ U BH7 COMP-2-LET U BH7 COMP-2-LAMBDA U BH7 COMP-2-LABELS U BH7COMP-2-GENERIC;%8vJuEUPPPP}}}}t%}tEt!u>uE%EEt}EEt+u>u#u~u"}E}u:}Eu~tɋu~uEu}uEtEH=Et E%Et E%Et E%Et E%Et E%Et E%E%%NSfy%R6A]nv~BPB7 IS-LABELSBB7 IS-LAMBDASEQaaCAR-1ARGHB7IS-SETQ7 IS-PRIMITIVEB7IS-SPECIAL-FORM7IS-QUOTEFCDISPHNUMBERPBHB>BBBBB?BB j?? k ?DBGoo#internal-flet-name-for-COMP--NUMBER @o#internal-flet-name-for-COMP--STRING @o"internal-flet-name-for-COMP--OTHER @?? s n?B1?|B?zB?a ~{B?E \=B?) B? oB>j?B l iB Z;%8v>u9UPPuEE}tEt@t EEt@5GBHBVaASSOC-EQL-2ARGHBB,?BB z?%? { >9?Z{7SUBS @?%?  }>?BB | yB : ;%8UPPPPEEEE}WEE}WEE]u?}EuuuuuuuuuuuE }EEE}uuuuuuuuu uEuu E +O= LIST-4ARGH7 %SET-SVREFBH LIST-3ARGHSETQB&a CADDR-1ARGHa CADR-1ARGHBB1?BB ?5?  ? 7E1 @7V @?5?  ? vBN>S?vB>A?B>/?B>$?B  B Q2;%8v%u UuuuE%).BHB&BCB9>>>E =7Z=  G;%8vxusUPPPsjjjhhjhht$uMuN+uePWEPEu$.QVcoBHMAPCAR%%CLOSE-ON-STACK ALLOCATE-CLOSURE-ON-STACKHB}BB9?BB ??  @ >s>?? >g>B_  B vB;%8v5u0UPPEEEPEuu!-9>BH CONS-2ARGHBKaCDR-1ARGHBHBB.?BB ??   >1?7HEAD @??  >%?Bg>?B B j;%8v\uWUPPP}EEh}WEuuuuuuuuuuu"16`eBHHBHBH7%SVREFBHBCB5>>>E ?B9?   >:n?>5nv?>Zm{? GP;%8UPPPPPPPPPPEEuEuEEu؉u+uesjjjhhjhht$uuFu3PEE}tluFu3E+uePWE}Pu$.E}WEEEE}WEE}t2uFPhEPEEuEu$.)6<M-?wfSYarBH7 MAKE-LAMBDA7MAKE-LETHVECTOR LIST-1ARGHB7 LAMBDA-BODYB8BBHB7GET-CLOSURE-WRITE-SL-VARAPPEND7 ENUMERATESET-DIFFERENCE7 ANNOTATE-PROP7CL-WRQS7 LAMBDA-VARS$B5? BB  ?  @ 6??{7LAM-BODY @7NEW-VAR @7SL-1 @7 DIFF-VARS @7 SUBS-VARS @7LAM-VARS @ ?       ?{ {?v =B?jvB?eZ۽B?WjB?C B?1?{B?# v{7 SUBS-VARS-L @B ? =B? =B? B? B??B??B>Q?ZB>@?B>-?B 6 B E&;%8vuU}}% BHBKBB3>BB >=  B j;%8v]uXUPPPEEEEEuuuuu uuEuu uu"0OafBHBoHLAMBDACADDDRBHBHBCB7>>>E ?B7?   >4*m?>&n?>J? GQ2;%8v%u UuuuE%).BHB&BCB7>>>E =B7=  G;%8UPPPPPPPPPPsjjjhhjhht$uMuNEEEEEEWEEPEE+uePWEPEEu$.uuFEuuE[it| BH7MAKE-LABELS-LAMBDABKB9BHBJ itSYMBOL-FUNCTION$SYMBOLH56CARBBBBH37Sp LABELS-BODY7, UN-ANNOTATEBptB7?0 ;BB id =?e?  , sa@  3?S ce  den7 E-BODY-RES c @e7FN-RES @;;;s7FN-VARS @ 7FN-LIS @7FN-DEFS @7E-BODY @BO @?S?- - L  L ?O STAmBf?I ҶB? ҶB? B? B? B>x?=B>m?B>_?B  M[  U BHLOAD-XREF-INFOHL&;%8vuU%BHCe XREF-INFOWxCALLSBmpTLF-NAME-BINDINGTOP-LEVEL-FORM-NAMEDSPECODEF-PEO>CDRhNOTBASSOCBBBULISTATOMG8CADRCADDRBBB]ǚ8B]BBB&8]BBBB#`BBBBBBLISTP CHARACTERP CONSTANTS%SYS-NUM RAW-LOAD-HALF RAW-LOGAND SYS-=a ARRAY-TESTARRAYPMMSTRINGPFUNCALLBBSYMBOLPNULL2WITHOUT-INLININGBBB0+[ 8B%B|BSYMBOL-FUNCTIONBTuBBBRB]CONSBBBYBBBX2BN>>B!BBBBBBBBmake-safe-for-tail-call-397B ??uEPTUU)EUUJQUJQJQUUUUUUUUUURTU)EUUUUUJQBCB>>>E%= ME