;;; Compilation of /home/juergen/lisp/mevalxp/comp-defstruct.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-defstructlispB;TC LISPWORKS((TOP-LEVEL-FORM>>>E%= % U BH %IN-PACKAGEh:;%8v-u(UuuE E%*#16BHBNEWCL-USERBCB>>>E%= /zF;%8v8u3U&0ABHCOMMON-LISP-USER33*STRUCT-FIELDS-INITS-TABLE*3*STRUCT-FIELDS-TABLE*3*STRUCT-SIZE-TABLE*3*STRUCT-ACCESSOR-EXPANDERS*B3CLEAR-STRUCT-TABLES= 8B =;%8vu U%BHB'BCB>>>E%= ;xJ;%8v<u7UP u uuuuuuu"@EBHSEQ??ASSOC-EQL-2ARGH SYMBOL-VALUE-1ARGHB%B3IS-STRUCT-ACCESSOR?3HEAD? E >&?? F BB l>;%8v1u,UPu u t@ %*:BHB.HBHBB3GET-STRUCT-ACCESSOR-VAL?B ? J >.>z?>)?? K HB  U BH3EXPANDf ;%8vVuQUPPhEPEEu u t@%$:0?DQZ_BHB; LIST-3ARGHBHBHB?CAR-1ARGH? CADR-1ARGH3%SVREFB3REWRITE-STRUCT-ACCESSOR?3E? V >U>z?>H?DBGYY transform @? X>C B4>(?z?>?? W SB j;%8v]uXUPPPuEEu u Eu5Et hEE:QF0&5YfBH CHECK-GENERATIONHB/HB CONS-2ARGHB3ENTER-ACCESSOR?3SYM3OFFSET `?5? c  >>>Y new-value- @?5? g e>9?BA>>zB d ^B V;%8v>u9UPPu u E}tEt@񐐐!&+GBHB.HBH3*STRUCT-INFO-TABLE*B3GET-STRUCT-SIZE?3STRCT?% m >/??%>*??% n jBG V;%8v>u9UPPu u E}tEt@񐐐!&+GBHB.HBHBB3GET-STRUCT-FIELDS?BH?% r >/??%>*??% s pB j;%8v]uXUPPPuEEu u Eu5Et hEE:QF0&5YfBHBJHBHBB(HB3SET-STRUCT-FIELDS?BH3 FIELD-LIST w?5? y  >>>B @?5? | {>9?B>>zB z uB V;%8v>u9UPPu u E}tEt@񐐐!&+GBHB.HBHBB3GET-STRUCT-FIELDS-INITS?BH?%  >/??%>*??%  ~B j;%8v]uXUPPPuEEu u Eu5Et hEE:QF0&5YfBHBJHBHBB)HB3SET-STRUCT-FIELDS-INITS?BHB ?5?   >>>B @?5?  >9?B">>zB B M.;%8vuUt t 8u"(BHBHBC3DEFSTRUCT-EXPAND>>>E =3Z=  GM.;%8vuUuu Ð BHB?HBCBi>>>E =B=  G\V4;%87.UPPPPPPPPPPPPPPPPPPPPPPPPPPPEEEEEu }uũ}t űvuEEhEPEhEPEu }uu}t uvu}hhEEE}u3EEEE}}uu}uԋEEEhhE}EEuu}h}WEPE] uCp:EEE] u2ށup%}}}}끸?SSEˋEEEt,uĀ>u$u~,EEWEEWEEhh u hhEűEPEEPEEűEuu܃}h}WEPE] uVpMEEEЋ}Љ}뛋u~u~ShhEEhhujhEPhhhEPEE]E u8;|?EPE؋ESuhh}W] uY-pPPEEuEE}}] u1ށup$uu}}}}CSSE{e)7Bi}} ( uiv`$ 4DV?M\OC$,7T 05?d_GMRWi@ -2ARGSHBH LIST-4ARGH NTH-2ARGH3 %SET-SVREF >=2ARGSH LIST-5ARGHLIST*C3V>>E REVERSE LIST-1ARGH3 %MAKE-VECTORB@LET LIST-2ARGH3%PRINTDEFUNPROGNMAKE-BBBAPPEND*** incl = ~a ~% fields = ~a~%BHB sftab = ~a~%B[MAPCARB +2ARGSHBB incl = ~a~% CONC-NAMEBH?CDR-1ARGHINCLUDEB>HFORMATl = ~a~%INTERN-p CONCATENATE- SYMBOL-NAMESTRING? CDDR-1ARGHBHBBi?B   ?Q[=3RES @3I @3 MAKE-NAME  @3 FIELDS-INITS @3OWN-FIELDS-NAMES @3 CONC-NAME @3INCL @B @3 STRUCT-NAME  @3FIELDS @3 INIT-INFO @       ?Dz]B\?VmB @BX ?[=B?^}B?VmB?B?VmB?U~B?[=B?ZB?tm  /B?nhsmeڷo{B?dctct־U~B?bKugeުB?r,PsoҿB? $.atJ~B? 156=B?y3Sp~Spa13P =  @B rpt?=;B?ne ==B?u  FB?y3;;~B?eegg=B?;ySrcB?rXgs ~B?;Go rB?i;ionB?0 o{B?(~B?mB? =B?~B? B?EFFOnB?CHB?P Ro{B? o{B?Am OB?`V{;%Y NEW-VALUE %@B @B" @B  ?SUB.?B?S -no{B?B?M-LB?no{B?EB?B?F?n{B?moYKEYFORM @3L va@B E o?ttںmB7?zj޶=B?iZB?PdK(j۶B?-8 Em{B?-= ޶=B?(Z{B?zB?mB? nB?K B? B?(UVB? ZB?E B>F? >;?   B 4K ;%8vqulUPPPPPPPPEEuuE}tHEPEEuEE}}EE}}EEEt EuuuuuuuuuuuuuuuuuuuEE:CKYjzB3CELENGTH=1BBHHBH3 SETF-1-EXPANDBHBHB_H$3 SETF-EXPAND?B1  ??BBj @3 ASSIGN-LIST @  <? Z B @B# u@B0 u>n B>]?zf @ >O B>G UB>> B> ?- -2A  Y B E R U  HB@ U BHB@;%8vSuNUPPP}tEtAu>u9}uuuuuuuuuE }EEu}uJEEEE}uzH??? $ ?rm 3OBJ @D 4>(@?? ) '?v'? B?U PvB?mB? uֶ{B> B>t 5B %h B wF;%8v6u1Uth(7-2?HBJHC-E DEFSTRUCT3PT3X3YB2>>EU 3*S1*BC B>>>E%= 7ew-wF;%8v6u1Uth(7-2?BHBJHC 23EPT23@3U>3W>>EQ&3!*S2*BCB>>>E%= JSCT-s>;%8v.u)U u %!)27BHGPRINTB{BH%6$CB>>>E%= >-> >%> R Os>;%8v.u)U u %!)27BHN/BHI*$CB>>>E%= >-> >%> %W uTEd6;%8v&u!U u %!*/BHNAHBBCB>>>E%= >%> \ EYTELDd6;%8v&u!U u %!*/BHNAHBB{C9B> >>E%= >%> a ^;%[.;%8vuU%"'BHNBC&SETFG3PT2-X3OBJ1> >>EQ&$T-FC-B> >>E%= >> n k%>*[.;%8vuU%"'BHNETC3PT2-U(>>E%$CB> >>E%= >> v s U BHLOAD-XREF-INFOL&;%8vuU%BHxCC XREF-INFO9SETSBBBBCALLSTLF-NAME-BINDINGtTOP-LEVEL-FORM-NAMEDSPECDEFv53 REFERENCESBACONSBBBBI 7@ASSOCCDRBBBu CDDRCADRCAR BNULLBBBBq 5B@BBBB5%VALUES.UEQBP-NTH>= BQ-APPENDB BQ-LIST*LIST BQ-LISTBBB(BPSYMBOLPB4h CONSTANTSSYS-NUM RAW-LOAD-HALF RAW-LOGAND }SYS-=? ARRAY-TESTEARRAYPE}STRINGP+BBEQLB@BBB}LISTPBBBBBB_E7NZ5NEtTNlEB@uh4W4BBBBB&ki]B@BBBB<]9u0+}T7@BBBB BMBBB4EBu@BBBBKI,86WUIWN hIBCADDRB BBBBBBBBBBP6NC7@BBBBEmake-safe-for-tail-call-397B _77BBBB??EPT%UJQRRRTUJQUURTUJQRUUUUUUUUUU)EI)EI)ERT%URRRTUU)EIU%RTUUU)EI%U%%U$CB> >>E%=