;;; Compilation of /home/juergen/lisp/mevalxp/comp-defstruct.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-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  ;%8vtuoUPPPEEEEu u t@uuuuuuu uE uu"8.=Blx}BH LIST-3ARGH3%SVREFB.HBHB?CAR-1ARGH? CADR-1ARGHB3REWRITE-STRUCT-ACCESSOR?3E? T  >F?DBGWW transform @? V>A?=B2>&??>?? U QB j;%8v]uXUPPPuEEu u Eu5Et hEE:QF0&5YfBH CHECK-GENERATIONHB/HB CONS-2ARGHB3ENTER-ACCESSOR?3SYM3OFFSET ^?5? a  >>>W new-value- @?5? e c>9?B?>>zB b \B V;%8v>u9UPPu u E}tEt@񐐐!&+GBHB.HBH3*STRUCT-INFO-TABLE*B3GET-STRUCT-SIZE?3STRCT?% k >/??%>*??% l hBE V;%8v>u9UPPu u E}tEt@񐐐!&+GBHB.HBHBB3GET-STRUCT-FIELDS?BF?% p >/??%>*??% q nB j;%8v]uXUPPPuEEu u Eu5Et hEE:QF0&5YfBHBHHBHBB&HB3SET-STRUCT-FIELDS?BF3 FIELD-LIST u?5? w  >>>B @?5? z y>9?B>>zB x sB V;%8v>u9UPPu u E}tEt@񐐐!&+GBHB.HBHBB3GET-STRUCT-FIELDS-INITS?BF?% ~ >/??%>*??%  |B j;%8v]uXUPPPuEEu u Eu5Et hEE:QF0&5YfBHBHHBHBB'HB3SET-STRUCT-FIELDS-INITS?BFB ?5?   >>>B @?5?  >9?B">>zB B M.;%8vuUt t 8u"(BHBHBC3DEFSTRUCT-EXPAND>>>E =3Z=  GM.;%8vuUuu Ð BHB>HBCBg>>>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~%BYMAPCARB +2ARGSHBB incl = ~a~% CONC-NAMEBH?CDR-1ARGHINCLUDEB=HFORMATl = ~a~%INTERN-p CONCATENATE- SYMBOL-NAMESTRING? CDDR-1ARGHBHBBg?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?mB?hڷo{B?c־U~B?tK  /ުB?n,smeҿB?d$tctJ~B?buge=B?rPso~on  3P 04 @B 316? eB? ,pa=B? a= B?te 0~B?anpe=B?uy  FB?yX3;;~B? GedeB? ;o ;B?c0 io{B?r(gs ~B?;o rmB?i i=B? ~B? B?UnB?B? o{B?T o{B?m EB?O`A-CV{OW NEW-VALUE @STAB I@B" @B ;% ?SB.?B? no{B?B?NTB?no{B?S-ACB?B?L?n{B?mEWKEYFORM @NSPC3L @B OTE ?ںmB7?zpj޶=B?>iEZB?fduj۶B?8 m{B?-޶=B?(Z{B?zB?EO>mB?  nB? B? B?VB? ZB? -B>F? >;?%  u B 4EK ;%8vqulUPPPPPPPPEEuuE}tHEPEEuEE}}EE}}EEEt EuuuuuuuuuuuuuuuuuuuEE:CKYjzB3T-LENGTH=1BHHBH-3ZE SETF-1-EXPANDBHBHB^HE$RN3 SETF-EXPAND?B/LEA UCT E  ??Bj @u U3 ASSIGN-LIST @   H? Z>B @B# @B0 J>n B>]?z d @u >O B>G UB>> B> ?    B \;%8vSuNUPPP}tEtAu>u9}uuuuuuuuuE }EEu}ueEEEEEtPEuuuuuuu uEuu EEɏ$%ɏ$%KW\p{,setf-1-expand: 000: no struct accessor foundERROR(setf-1-expand: 001: case not implementedBHBBBB HBHBHB;HSETQB ?uuu3LVALu3VAL u??   ? n=3OBJ @D @ ?I?3 H! ?F BH> B>t ?B RAR B wF;%8v6u1Uth(7-2?HBHHC=& DEFSTRUCT3PT3QX3YB2>>EU %3*S1*BPCEB>>>E%= -wF;%8v6u1Uth(7-2?BHBHHC H(3PT2BB{3BU>3W>>EQ&3*S2*BCB>>>E%= @s>;%8v.u)U u %!)27BHPRINTByBH%,$CB>>>E%= >-> >%> H Es>;%8v.u)U u %!)27BHDBH?C$CB>>>E%= >-> >%> M% JE d6;%8v&u!U u %!*/BHDAHBBCB>>>E%= >%> R OTT-Fd6;%8v&u!U u %!*/BHDEAHBBCB> >>E%= >%> W ET[.;%8vuU%"'BHEDBCUFLDSETF3PT2-X3OBJ1> >>EQ&$CB> >>E%= >> d a[.;%8vuU%"'BHD RC3PT2-U >>E%$@CB> >>E%= >> l i+ U BHLOAD-XREF-INFOL&;%8vuU%BHnC? XREF-INFOC REFERENCESBCALLSB ASSOCTLF-NAME-BINDINGTOP-LEVEL-FORM-NAMEDSPECDEF}B43CDR@UBBBBNi?gB@BBBBU7 D>tSETSB55CONSBBBB9P5DjRDb B8U94BBBɱBBBB]77BBBBBo5B@EBBBBA&  IBCARCADRLISTPLISTu BQ-LISTSYMBOLPBBB<9HB0+gA ? R7@BBBBBBBBB.5UPPPVALUESPPPEQB-NTHu}>= u BQ-APPENDB BQ-LIST*B̂BB(B CONSTANTSSYS-NUM  RAW-LOAD-HALF RAW-LOGAND SYS-=? ARRAY-TESTARRAYPESTRINGP+BBEQLB@NULLBBBBCDDRBBBB.E,K?DEF,DE  BBB BEBBBBBmake-safe-for-tail-call-397B EI7 @BBBBB}44BBBB??SEPTRTUJQRU)EI)EIIUJQRJQ)EUIRT%URRTUU%UURTUUUUUUUUUUJQJQR)EIUUU)E)EIU%%U$CB> >>E%=