;;; Compilation of /home/juergen/hdlProjekte/tetrad/lisp/mevalxp/comp-3.lisp, ;;; by juergen on LispWorks Personal Edition 5.1.1 at 2011/12/21 19:59:55. ;;; 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-CALLH CCOMPILERPNOTE-START-OF-FILE Imake-safe-for-tail-call-365& ;%vuU%RUNTIMEEBAD-ARGS-OR-STACKHB?L COMMON-LISP LPATHNAMEKEYWORD C UNSPECIFICB CABSOLUTEhomejuergen hdlProjektetetradLlisp>Ymevalxp>>EUcomp-3lispB;TUC LISPWORKS-O-TOP-LEVEL-FORM>>>E%= *uU BH %IN-PACKAGEB: ;%v-u(UuuE E%*#16BHBNEWCL-USERBCLB>>>E%= 4TIR;%v.u)UƃtVuVt@=uVV鐐/(7BHLAMBDABBCOMMON-LISP-USER::IS-LAMBDA-VAR-3=:VVE= = 9PEB R;%v.u)UƃtVuVt@=uVV鐐/(7BH:GLOBALBB: IS-GLOBAL-3=BB= B @BTB R;%v.u)UƃtVuVt@=uVV鐐/(7BH:AR%SVREFB-: IS-SVREF-3=BF-= G EB ACJ;%v.u)UƃtVuVt@=uVV/(7BH:E$UNQUOTEBN: IS-UNQUOTE-3=B= L JFIB ";%vu U%BHIPCADRB-: UN-GLOBAL-3=B$= Q EOB NU BHY: ACCESS-READ-3B-U BHt: COMP-3-NOHEADBU BH:COMP-3-DO-UNTILBSSOU BHBHBTUUUU BHBHBMU BHI: COMP-3-SETQBECIU BH: COMP-3-LETBU BH: COMP-3-LAMBDABU BHP: COMP-3-LABELSBU BH: COMP-3-FORMB?U BH:COMP-3-GENERICBuPPI;%vEu@UPPP}Vt9}Vtuu0u~u'uEɏ$%EEuEuuu^ށtًut΋uuu~fuE몋uuEu~Vua>I >7? w $?g ;%?r uz?KPo{BQ?u*j=B?uo{B? B?V EmB?u |B? ~B?u .\B?d B?/ o{B>A WjB xu$ urB U BH! LISTN-2B E ;%vOuJUPPPuEE}Vt2uu:uvuut}Vu6EEE%}VtEuu빵ɏ$%XbkyERRORcomp-3-symbol: error 1 *%CDR-FRAME-STUBHBoBBH ASSOCEQLBBH?BB   ~?2  >} B:SUBS 8 E?  >!?B  %B   ;%vrumUThPPPPPP+ujVjVht$uuuuuutK}VtEuuuvuEu$.}VtEuu׋}WuuFuvuuEPVEuu!u~}U}Vt EE밃}VtE}ҋuu땐T{BHRPLACD  *%INTERNAL-CONSHB BHBHB *%ENDP-FRAME-STUBHBB< BB Th PPP ?P P E? >uDBGE̕EG B B E  ?   ?>B?3>B?>B??VjVj:Z uB uu?>B>X>B E B U BH APPEND2B ;%UPPPPEEEEhuuguFPEEuuWu~WEuEuEuu%}VtE돃}VtE}뜋Et#19Vv~BsHBHBHBBHBB:}DO-UNTILCDDRBBEB.?tBB E } ?u  E? 9]:BODY N<SECOND   ?R  B? SVRjB.?H?B??AB?T?B>z TB>Z?Z{B>5?AB>'?DB % EB - T ;%vGuBUPPuu7uvuuu6u~WEuu}Vt EE뿃}VtE}뽋uu뤐?KP^qB,HBHBHB{HBBB,?B B L)  E ?I   >u?N  ? >b>zB7>C?B B  ;%voujUPPPPuu]uvuuu\u~WEE}WEE}}}E}}Vt EE뙃}VtE}뗋uu{AS[sxB.HBHBHB{H:ACCESS-READ-FUN-3BBBB:?BB  ? ?  ??۪?  ? ??B>>_?۶?*{REST u8A:HEAD B >W?B>E?B v B P R:E;%|UThPPPPPPPPPPPPPPPPuYuFEuLuFEȋu?uvuĉ+ujVjVht$u؋u؉uuȉuu_}VtEu؃u؋vuE}̋u$.WEE+ujVjVht$uԋuԉuuĉuuK}VtEuԃuԋvuEu$.uEEuȵE}P}VtkE}Vt`E}VtEuu}VtEu؉u}VtEuԉuNE4EL}WuuvuhEuPVEuuyu~}/}WuuruvuuEPVEuuMu~}Q}VtLEEN}VtE}w}Vt+EE넃}VtE}릋uuuu[Gg9l}RG4?]B*BBBKHBHBHB{H:v MAKE-LAMBDABB)BHE: LAMBDA-VARS: LAMBDA-BODYBB4 BB } ?  H?P EصB B uB }W:SL-1 vu:ARGS :VARS B ~ t{?     t?  B?E?J{}B }B EB VB. } ?b?J{B? B? B? Vi{EB B& ?a?J{B?V?QJ{B?eK V={B B. 9?C CDI*B?H TB??DJ{B?%?ZB?B?B??JB? ҶHB:BODY-1 o:E1 B eue?h rojJB ?tp /B?v= pB?.?pB? ?jJ{B>k?oB>K?oB eonH iB 1 U BHBrBSd =U BHBrBl 0  ;%vuUPut EEVt E%EVt:hEuuuuE%EVt(uFuuuuE%EEG#._?JTgB6B: %SYMBOL-VALUEB4FIQUOTEBB BBHB-foB*?cBG65   ??{ %??= >k  UNT>c Ev >N?S ->2?t L  OB U BHBrBU BHBrBomeU BHBrBedL0 ;%vuUPut EEVt:hEuuuuE%EVt:hEuuuuE%EVt(uFuuuuE%EE#.8CmKdxB6KB :%SYMBOL-FUNCTIONB>B;BHB)U?Bu @  ??{ V??= /?  AMB? v >|?L ->O V >G D -3=>2?t E  B U  HBrBVu ;%vuUPut EEVt-EuuuuE%EVt E%EVt uF뇵EEs#.|>W`kB6BBBDBTNBBHB/:ACCESS-WRITE-3?Bq-: S-S 3 ?? { ? ?= >o?% >B UV >2?ut V = BH U  H LISTN-3BU BHU BH LISTN-4BHIU BHO-?;%UPPPPPPEEEE}WEE}}}WEE}}EVt:ENjEEuuuu}%EVt5E}EuuuuE%EVtIEEEËEE}uuu u} ]%EVt5E}EuuuuE%V%3E]qi*NYsSETQB+P:-L %SET-SVREFFBBH:%SET-SYMBOL-VALUEBAB2BBCADDRBBUB2?BB OMP NER?u  '?m E{PPBX < u u?  ?] EE?" {B? ֽB??{B? uB?ο?=B?u ~VB>u?B>a?vB>I?~B>7?B>)?B u' [ ރU BHCtV ;%v@u;UPPuuEuEEuu%'5DIBHBBHB,):PREPEND-LAMBDA-VAR?B:ELAM % ?   >9? }? >+>z>#?tB  B ";%vuU}}HB{HBC:PAIR>>>E >:X:Y >=  B:GSRMBU BH-:ZIPBOB ;%v+u&U]}uuu]%/4BHIB)E>F:L1Q:TEL2 3-S>=  MPB F ;%v#uUPuuuF%}Vt EEݐ',:iHBHB.BuzCB6>>>E ?uB; ?u  >> Z  E  G~U  H" !;%SJUThPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPuEuP+ujVjVht$uuuPuuj}VtEuuvpEpuu$.}WELL}WE``}uHE+ujVjVht$uuuċHu܋u܃}VtEuuvuEu$.}}u\E+ujVjVht$uuu\uu}VtEuuvtEu$.t}u@+ujVjVht$uuuȋ@uu}VtEu<uvxEu$.E}W3D+ujVjVht$uuuDuu}VtEuuv|E|u$.WEdElET+ujVjVht$uuuluu}VtEu@uvhEhu$.WdX}lWu~}}V<EE}VtE}}VE}VtE}}VE}VtE}}VEE}VtE}0}VEE:}VEE8}VtEER}VtE}w}VtbEE}VtE}uuNEEuuHuuuuuu(TZfk (/@QZOL:3 .:[`~4n/eWEA<GhNBYHBB_: %CLOSURE-REFB BuFCDISPHB:BBHBH: %MAKE-CLOSUREVECTORBBB)HB-BB:R ENUMERATE:GET-UNIQUE-VARh:SELFPCARCDRF REMOVE-IFBsBBH: ANNOTATE-PROP:READSBB6 v0+BB #u؋ u? $ }?EJ۶B vB ̋uB B TB! l$B du:SL-A tD:SELF-VAR uuu: CLOS-VECT ux:RDS-SUBS kE:RDS  }?E 5 3 1 / u- }+ * ) ( '?BcB?J~{uh B B E+ 8 7?ynҶ}W ur7 u:?lZB?RBB?8 ouM QB B EB @1 t> = }<?" }oB ?u u B 9B ٕinternal-variable- ]B B\B1 {A @ L??B HEB? BRS AMBB BB B  H1 E D PC? EصB?? B B vB P3 H G F?A?B?iBB?^BB?SVmo ' J?K*m~{B#?EBB?}BB?} Vm=B?V*mB?UioB?[ oB?P oB?E VEښ < O? ?B? B? {B? B? B?I B?TI?B?>?{B?3 Vi? JF P?BB?BB?1 oB? B?e eB?r?jB? 7n۶ pB .8:VARS-1 k<>KB eXBf T R?$m~{B)? m~{B?=Ҷm=B?ҶB?BB? UmB?DUPҶB?E3 ҶB?B B? tB? ~{B?j oB ? B?o B? ?v{B??u=B??B>^?B % t"_ u!F ;%v#uUPuuuF%}Vt EEݐ',:B HBHB.BCBB8>>>E ?TB9BB -fo *^ >>Z=  _ \GU  H:MAKE-LETB-*,;%ULUh PPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPEup$+ujVjVht$ XuuZ}VtE T v Dž u$.Dž(+ujVjVht$`uuX}VtEvDžu$.p+ujVjVht$Puu4}VtEvDžtu$.tWptWtttDž,+ujVjVht$Tuu}VtEvDžu$.ptDž0+ujVjVht$Luuz}VtEMvDžu$.tE}VyuuFpPHHptjV<p?B lG ia ,1U BHLOAD-XREF-INFOB p& ;%vuU%BHC XREF-INFOCALLSBjc=kmCONSqB>BnBe?TLF-NAME-BINDINGTOP-LEVEL-FORM-NAMEDSPECooDEFjFk?EQ?LISTPmBBB]kBVALUESBB B^ENDP X-DOluLISTCOMPILER-WITH-STACK-ALLOCATIONWITH-STACK-ALLOCATIONWITH-SAVED-STACKBSTACK-LET-INTERNAL9B STACK-LETMAPCARAPPENDBBbBBdmBBB+kj5k0jkBEmBBBUkelBBBB;khqBBBBBPsPkPeBBBBBBPPjBBBBBBBBBPrP CHARACTERP ARRAY-DATA$ARRAY X-F-SIMPLE-VECTOR-P DATA-VECTOR$ARRAY COMPILER-EVAL CONSTANTSSYS-NUM SYS-LOAD VECTOR-SIZE$VECTOR -$FIXNUM-NOOV ARRAY-RANK$ARRAY =$FIXNUM NON-SIMPLE-ARRAY-PtESIMPLE-STRING-PSTRINGPDžFUNCALL- SHORT-FLOAT-P NUMBERP$OTHER OTHERP-uFIXNUMPNUMBERPqBSYMBOLPNULLWITHOUT-INLININGmBBBeksBtBBB BBBBBBBBBBKkqBBBBB_kBBB;BB+Bj}hBtSSYMBOL-FUNCTIONABBqBtBBB BBBBBB mBBBWke$sltv}0NBQmBBBVAkqBBBBBLSkFKB4vAB BATOMmBBBMkFKBBB1vuA.BBBBkFEKBB B1v;BBBBakbeBB>>E%= W