‘XCL Compiler output for source file {DSK}arunwelch>SKYDRIVE>DOCUMENTS>UNIX>LISP>CLOS>CURRENT>plap.lisp;1 Source file created Wednesday, 6 November 1991, 9:26:33. FASL file created Friday, 4 December 2020, 19:45:32. ÿ˜– o ˜Œ1 top-level form˜ŒFUNCTION˜“€˜Œ IN-PACKAGE˜ŒCLOSœ˜’Œexpand-LAP-CASE˜‘˜ŒCLOS˜–‚=@X¹HZ»h¼h½Id3@ð^’N°,I3‘i€h_“O°I‘h€i_’O…I‘i€h˜Io€h‘I^L¼IM½N¾ggNhK_¿h_¿h_¿h_¿O£O°TO_gggOOhgNhhh_¿O˜OO&_¿ˆOh__¿O_¿°©¾gL _¿M _¿h_¿h_¿h_¿O‘h€i_’O…O‘h€i“O°1OOh_¿O˜OO&_¿ˆOh__¿O_¿O_¿°¼Nh™ ™˜“˜“˜Œ $$MACRO-FORM˜Œ$$MACRO-ENVIRONMENT‚ݘŒREVERSE‚Ô™ E˜ŒGENSYM‚ΘŒLET‚›˜ŒCDR‚‰˜ŒLAMBDA‚„˜ŒFUNCTION˜ŒAPPLYY˜ŒCART˜ŒECASE:˜“˜ŒQUOTE™˜–&gg ¿ggo ˜ŒDEFMACRO LAP-CASE™˜“€ ˜•ŒPUTPROP ˜•ŒSETF-MACRO-FUNCTION˜•ŒARGNAMES˜’ŒLAP-CASE™™™˜“˜ŒOPERAND˜Œ&BODY˜ŒCASES˜– o ˜ŒDEFVAR *LAP-ARGS*™˜“€˜ŒPROCLAIM˜“˜ŒSPECIAL˜’Œ *LAP-ARGS*™˜– o ˜ŒDEFVAR *LAP-REST-P*™˜“€™&˜“™'˜’Œ *LAP-REST-P*™˜– o ˜ŒDEFVAR *LAP-I-REGS*™˜“€™&˜“™'˜’Œ *LAP-I-REGS*™˜– o ˜ŒDEFVAR *LAP-V-REGS*™˜“€™&˜“™'˜’Œ *LAP-V-REGS*™˜– o ˜ŒDEFVAR *LAP-T-REGS*™˜“€™&˜“™'˜’Œ *LAP-T-REGS*™˜–"o ¿g X‘Hoc˜’Œ*LAP-OPTIMIZE-DECLARATION*™˜Œ!DEFVAR *LAP-OPTIMIZE-DECLARATION*™˜“€˜ŒBOUNDP™& ™?˜“˜“˜ŒSPEED˜“˜ŒSAFETY˜“˜ŒCOMPILATION-SPEED˜“™'™?˜–+noc¿noc¿noc˜’Œ*MAKE-LAP-CLOSURE-GENERATOR*™˜’Œ"*PRECOMPILE-LAP-CLOSURE-GENERATOR*™˜’Œ *LAP-IN-LISP*™˜Œ1 top-level form™˜“€!˜–BCDE ˜Œlambda in 1 top-level form˜ŒCLOSURE˜“˜“˜ŒCVARS˜ŒARGS˜ŒIREGS˜ŒVREGS˜ŒTREGS˜ŒLAP ˜’Œ MAKE-LAP-PROG™˜’Œ FLATTEN-LAP™˜–g@ABCDE h˜Œlambda in 1 top-level form™R˜“˜“˜ŒCVARS˜ŒARGS˜ŒI-REGS˜ŒV-REGS˜ŒT-REGS˜ŒLAP ˜’Œ!MAKE-LAP-CLOSURE-GENERATOR-LAMBDA™™˜–@ABCDE  ˜Œlambda in 1 top-level form™R˜“˜“˜ŒCLOSURE-VAR-NAMES˜Œ ARG-NAMES˜Œ INDEX-REGS˜Œ VECTOR-REGS˜ŒT-REGS˜ŒLAP-CODE ˜’ŒCOMPILE-LAMBDA™™g˜•ŒCOMPILED-CLOSURE™t™tœ™g˜–jgAX—AH €h¹HIo b¿H‘I€AH‘i€hg@ggAggThBCDE hhh™-™(™?™g™˜“˜“˜ŒCVARS˜ŒARGS˜ŒI-REGS˜ŒV-REGS˜ŒT-REGS˜ŒLAPX˜’ŒMAKE-LAP-PROG-INTERNAL™˜ŒAPPEND ˜ŒLDIFFJ˜ŒOPTIMIZEE˜ŒDECLARE?™:™4™˜Œ&REST˜“™‚ƒ˜’Œ.LAP-REST-ARG.™œ™[˜–gg@ABC ™-™(™[™˜“˜“˜ŒI-REGS˜ŒV-REGS˜ŒT-REGS˜ŒLAP™~ ˜’Œ LAP-IN-LISP™™‚œ™~˜–‚ÿ@ABC»h¼h½h¾K¢L°K ¾L”MN&½„Nh]¼K»°ä»g@AB ¼h½h¾h_¿L¢M°+L_ O h_¿M•NO&¾…Oh^½L¼°ÔgggH¼h½h¾h_¿L¢M°L _¿M•NO&¾…Oh^½L¼°àggI¼h½h¾h_¿L¢M°L _¿M•NO&¾…Oh^½L¼°àgWhK™<™7™2 ™?™~ ™˜“˜“˜ŒI-REGS˜ŒV-REGS˜ŒT-REGS˜ŒLAP‚И’ŒLAP-REG™‚˜™‚•Z˜’ŒLAP-REG-INITIAL-VALUE-FORM™S™‚•<™˜’Œ LAP-OPCODE™‚홂‚º˜Œ SIMPLE-VECTOR‚µ˜ŒTYPE‚‚˜ŒFIXNUM}™‚™x™‚‚4˜ŒPROG˜–o¿o ˜ŒDEFCONSTANT *EMPTY-VECTOR*™˜“€™&˜’Œ*EMPTY-VECTOR*™ ˜“˜’ŒCONSTANT˜‘˜ŒSYSTEM™‚Ÿ˜ˆœ™‚–˜–#@P‘j@Q•g@R‘ho@ ™2™7™<™‚–™˜“˜“˜ŒREG˜ŒERROR ™‚Ÿ˜ŒWhat kind of register is ~S?œ™‚—˜–‚ünX@¿HÉYgð²noHÉ IgðZ’J°Igð[‘K†Igð²noHHÉ Igð²noHÉ Igð²noHÉ Igð²noHÉ Igð²noHÉ Igð²noHÉ Igð²noHÉ Igð²noHÉ Igð²noHÉ Igð²noHÉ Igð²noHÉ Igð²noHÉ Igð²noHÉ Igð²noHÉ hoIo ™‚—™˜“˜“˜ŒOPCODE‚ö˜•Œ ECASE-FAIL‚䙂ƙ‚¨™‚Š™‚l™‚N™‚0™‚™‚ô™‚Ö™‚¸™‚š™|™^™&™‚͘ŒPRINT‚¯˜ŒBEEP‚‘˜ŒBREAK‚s˜ŒEXIT-LAP-IN-LISP‚U˜ŒGO‚7˜ŒLABEL‚˜ŒRETURN‚û˜ŒJMP‚ݘŒSTRUCTURE-INSTANCE-P‚¿˜ŒBUILT-IN-INSTANCE-P‚¡˜ŒFSC-INSTANCE-P‚ƒ˜ŒSTD-INSTANCE-Pe˜ŒIZEROPD˜ŒFIX=9˜ŒNEQ-˜ŒEQ˜ŒMOVE‚ñ˜“™‚À™‚¿™‚¾™‚½™‚¼™‚»™‚º™‚¹™‚¸™‚·™‚¶™‚µ™‚´™‚³™‚²™‚±™‚°‚똓™˜’ŒOPCODE™‚Ù˜– g@ ˜Œlambda in LAP-OPCODE™R˜“˜“˜ŒVAL˜’Œ LAP-OPERANDS™˜ŒPRINT‚»˜–h˜Œlambda in LAP-OPCODE™R˜“€‚˜–o˜Œlambda in LAP-OPCODE™R˜“€˜“˜ŒBREAK‚˜–o˜Œlambda in LAP-OPCODE™R˜“€˜“˜ŒGO˜’ŒEXIT-LAP-IN-LISP™‚a˜– g@h˜Œlambda in LAP-OPCODE™R˜“˜“˜ŒLABEL™‚Õ‚C˜–@˜Œlambda in LAP-OPCODE™R˜“˜“˜ŒLABEL‚%˜–g@ h˜Œlambda in LAP-OPCODE™R˜“˜“˜ŒVALUE˜’Œ LAP-OPERAND™˜ŒRETURN‚˜–GPgðšo gQ²g@ Po g@ Ph™(™-˜Œlambda in LAP-OPCODE™R˜“˜“˜ŒFN;™‚ç-™"™‚療©5˜’ŒRUNTIME FUNCALL™˜’Œ RUNTIME APPLY™™‚虂(˜“™‚„ ˜ŒCan't do a :JMP in LAP-IN-LISP.‚阖gg@ gAhh˜Œlambda in LAP-OPCODE™R˜“˜“˜ŒFROM˜ŒLABEL ™‚È™‚Õ˜’Œ RUNTIME ???™˜ŒWHEN‚˘–gigAhh˜Œlambda in LAP-OPCODE™R˜“˜“˜ŒFROM˜ŒLABEL™‚Õ™‚ù‚­˜–gg@ gAhh˜Œlambda in LAP-OPCODE™R˜“˜“˜ŒFROM˜ŒLABEL ™‚È™‚Õ˜’ŒRUNTIME FSC-INSTANCE-P™™‚ù‚˜–gg@ gAhh˜Œlambda in LAP-OPCODE™R˜“˜“˜ŒFROM˜ŒLABEL ™‚È™‚Õ˜’ŒRUNTIME STD-INSTANCE-P™™‚ùq˜–gg@ gAhh˜Œlambda in LAP-OPCODE™R˜“˜“˜ŒARG˜ŒLABEL ™‚È™‚Õ˜’ŒRUNTIME IZEROP™™‚ùP˜–]gHÉYgð–g°1Igð–g°"Igð–g°hoIo @A gBhh˜Œlambda in LAP-OPCODE™R˜“˜“˜ŒARG1˜ŒARG2˜ŒLABELJ™‚ÈC™‚¯O™‚Õ0˜’Œ RUNTIME FIX=™)™‚½!˜’ŒNEQ™™‚¾˜ŒEQ ™‚¿™‚ù>˜“™‚¿™‚¾™‚½8˜“™™‚˜–gA @ h˜Œlambda in LAP-OPCODE™R˜“˜“˜ŒFROM˜ŒTO ™‚療瘌SETF‚Õ™t‚·™t‚™™t‚{™t‚]™t‚?™t‚!™t‚™t‚å™t‚Ç™t‚©™t‚‹™tm™tL™t™t˜•Œ \PTRHUNK2œ™‚瘖‚+nX@¿HÉYgð²noHÉ Igð²noHÉ IgðZ‘J†Igð²noHÉ Igð²noHÉ IgðZ’J°8Igð[’K°,Igð\’L° Igð]’M°Igð^‘N†Igð²noHHÉ Igð²noHÉ Igð²noHÉ Igð²noHÉ Igð²noHÉ Igð²noHÉ Igð²noHÉ Igð²noHÉ Igð²noHÉ Igð²noHÉ Igð²noHÉ hoIo ™‚癘“˜“˜ŒOPERAND‚%™‚¯‚™‚õ™‚×™‚¹™‚›™‚}™‚_™‚A™‚#™‚™‚療‹™m™D™&™‚ü˜ŒLISP‚Þ˜Œ LISP-VARIABLE‚À˜ŒCREF‚¢˜ŒISET‚„˜ŒIREF‚f˜ŒILOGXOR‚H˜ŒILOGAND‚*˜ŒI-‚ ˜ŒI+‚I1+‚͘Œ FSC-SLOTS‚˜Œ STD-SLOTS‚¶˜ŒSTRUCTURE-WRAPPER‚ª˜ŒBUILT-IN-WRAPPER‚ž˜Œ FSC-WRAPPER‚’˜Œ STD-WRAPPERt˜ŒCONSTANTV˜ŒARGK˜ŒCVAR-˜ŒCDR˜ŒREG‚ ˜“™‚B™‚A™‚@™‚?™‚>™‚=™‚<™‚;™‚:™‚9™‚8™‚7™‚6™‚5™‚4™‚3™‚2™‚1™‚0™‚/™‚.‚˜“™˜’ŒOPERAND™‚˜–@˜Œlambda in LAP-OPERAND™R˜“˜“˜ŒFORM‚ꘖ@˜Œlambda in LAP-OPERAND™R˜“˜“˜ŒSYMBOL‚̘–g@ Ah˜Œlambda in LAP-OPERAND™R˜“˜“˜ŒVECTOR˜ŒI™‚瘒Œ RUNTIME SVREF™‚®˜–g@AB ˜Œlambda in LAP-OPERAND™R˜“˜“˜ŒVECTOR˜ŒINDEX˜ŒVALUE ™‚Ș’Œ RUNTIME ISET™‚˜–g@A ˜Œlambda in LAP-OPERAND™R˜“˜“˜ŒVECTOR˜ŒINDEX™‚Ș’Œ RUNTIME IREF™‚r˜–g@A ˜Œlambda in LAP-OPERAND™R˜“˜“˜ŒINDEX1˜ŒINDEX2™‚Ș’ŒRUNTIME ILOGXOR™‚T˜–g@A ˜Œlambda in LAP-OPERAND™R˜“˜“˜ŒINDEX1˜ŒINDEX2™‚Ș’ŒRUNTIME ILOGAND™‚6˜–g@A ˜Œlambda in LAP-OPERAND™R˜“˜“˜ŒINDEX1˜ŒINDEX2™‚Ș’Œ RUNTIME I-™‚˜–g@A ˜Œlambda in LAP-OPERAND™R˜“˜“˜ŒINDEX1˜ŒINDEX2™‚Ș’Œ RUNTIME I+™‚ú˜– g@ ˜Œlambda in LAP-OPERAND™R˜“˜“˜ŒINDEX™‚Ș’Œ RUNTIME I1+™‚Ù˜–wHÉYgð–g°^Igð–g°OIgð–g°@Igð–g°1Igð–g°"Igð–g°hoIo @ ˜Œlambda in LAP-OPERAND™R˜“˜“˜ŒXq™‚Èk™‚¯ X˜’ŒRUNTIME FSC-SLOTS™Q™‚8I˜’ŒRUNTIME STD-SLOTS™B™‚9:˜’ŒRUNTIME STRUCTURE-WRAPPER™3™‚:+˜’ŒRUNTIME BUILT-IN-WRAPPER™$™‚;˜’ŒRUNTIME FSC-WRAPPER™™‚< ˜’ŒRUNTIME STD-WRAPPER™™‚=f˜“™‚=™‚<™‚;™‚:™‚9™‚8`˜“™™‚D‚€˜– g@h˜Œlambda in LAP-OPERAND™R˜“˜“˜ŒC™b˜–@˜Œlambda in LAP-OPERAND™R˜“˜“˜ŒNAME9˜– g@ ˜Œlambda in LAP-OPERAND™R˜“˜“˜ŒREG™‚È™˜–@ ˜Œlambda in LAP-OPERAND™R˜“˜“˜ŒN™‚•‚™t‚æ™t‚È™t‚ª™t‚Œ™t‚n™t‚P™t‚2™t‚™t‚ö™t‚Õ™t|™t^™t5™t™t™‚)œ™‚Ș–;ejó§kh ¿he#¸@H¹hºh»h¼I¢J°I ¼J”KL&»„Lh[ºI¹°ä™‚È‚ÿÿÿÿ™˜“˜“˜ŒFN™‚ƒ˜ŒREGS"™‚瘒ŒARGUMENT-ERROR™‚¡œ™‚•˜–ho@ P ˜’Œ*THE-CLOS-PACKAGE*™™‚•™˜“˜“˜ŒN˜ŒINTERN˜ŒFORMAT˜ŒREG~D˜– o ˜Œ1 top-level form™˜“€™&˜“˜Œ DECLARATION˜’ŒCLOS-FAST-CALL™œ˜’Œexpand-RUNTIME FUNCALL™˜–@X¹HºgIJ™‚¾™˜“˜“˜Œ $$MACRO-FORM˜Œ$$MACRO-ENVIRONMENT ˜ŒFUNCALL˜–&gg ¿ggo ˜ŒDEFMACRO RUNTIME\ FUNCALL™˜“€ ™ ™™™‚¾™‚˜ŒFN™‚ƒ˜ŒARGSœ˜’Œexpand-RUNTIME APPLY™˜–@X¹HºgIJ™‚Ë™˜“˜“˜Œ $$MACRO-FORM˜Œ$$MACRO-ENVIRONMENT ™˜–&gg ¿ggo ˜ŒDEFMACRO RUNTIME\ APPLY™˜“€ ™ ™™™‚˙‚˜ŒFN™‚ƒ˜ŒARGSœ˜’Œexpand-RUNTIME STD-WRAPPER™˜–@X¹gIh™‚×™˜“˜“˜Œ $$MACRO-FORM˜Œ$$MACRO-ENVIRONMENT˜’ŒSTD-INSTANCE-WRAPPER™˜–&gg ¿ggo ˜ŒDEFMACRO RUNTIME\ STD-WRAPPER™˜“€ ™ ™™™‚‘™‚×™‚‘˜“˜ŒXœ˜’Œexpand-RUNTIME FSC-WRAPPER™˜–@X¹gIh™‚㙘“˜“˜Œ $$MACRO-FORM˜Œ$$MACRO-ENVIRONMENT˜’ŒFSC-INSTANCE-WRAPPER™˜–&gg ¿ggo ˜ŒDEFMACRO RUNTIME\ FSC-WRAPPER™˜“€ ™ ™™™‚™‚㙂˜“˜ŒXœ˜’Œexpand-RUNTIME BUILT-IN-WRAPPER™˜–@X¹gIh™‚“˜“˜Œ $$MACRO-FORM˜Œ$$MACRO-ENVIRONMENT˜’ŒBUILT-IN-WRAPPER-OF™˜–&gg ¿ggo ˜Œ"DEFMACRO RUNTIME\ BUILT-IN-WRAPPER™˜“€ ™ ™™™‚™‚˜“˜ŒXœ˜’Œ expand-RUNTIME STRUCTURE-WRAPPER™˜–@X¹gIh™‚û™˜“˜“˜Œ $$MACRO-FORM˜Œ$$MACRO-ENVIRONMENT˜’Œ???™˜–&gg ¿ggo ˜Œ#DEFMACRO RUNTIME\ STRUCTURE-WRAPPER™˜“€ ™ ™™™‚Ž™‚û™‚Ž˜“˜ŒXœ˜’Œexpand-RUNTIME STD-SLOTS™˜–@X¹gggIhh™‚™˜“˜“˜Œ $$MACRO-FORM˜Œ$$MACRO-ENVIRONMENT˜’Œ STD-INSTANCE™ ˜ŒTHE˜’ŒSTD-INSTANCE-SLOTS™˜–&gg ¿ggo ˜ŒDEFMACRO RUNTIME\ STD-SLOTS™˜“€ ™ ™™™‚™‚™‚˜“˜ŒXœ˜’Œexpand-RUNTIME FSC-SLOTS™˜–@X¹gIh™‚™˜“˜“˜Œ $$MACRO-FORM˜Œ$$MACRO-ENVIRONMENT˜’ŒFSC-INSTANCE-SLOTS™˜–&gg ¿ggo ˜ŒDEFMACRO RUNTIME\ FSC-SLOTS™˜“€ ™ ™™™‚Œ™‚™‚Œ˜“˜ŒXœ˜’Œexpand-RUNTIME STD-INSTANCE-P™˜–@X¹gIh™‚!™˜“˜“˜Œ $$MACRO-FORM˜Œ$$MACRO-ENVIRONMENT˜’ŒSTD-INSTANCE-P™˜–&gg ¿ggo ˜Œ DEFMACRO RUNTIME\ STD-INSTANCE-P™˜“€ ™ ™™™‚ ™‚!™‚ ˜“˜ŒXœ˜’Œexpand-RUNTIME FSC-INSTANCE-P™˜–@X¹gIh™‚-™˜“˜“˜Œ $$MACRO-FORM˜Œ$$MACRO-ENVIRONMENT˜’ŒFSC-INSTANCE-P™˜–&gg ¿ggo ˜Œ DEFMACRO RUNTIME\ FSC-INSTANCE-P™˜“€ ™ ™™™‚™‚-™‚˜“˜ŒXœ˜’Œexpand-RUNTIME IZEROP™˜–@X¹gggIhh™‚9™˜“˜“˜Œ $$MACRO-FORM˜Œ$$MACRO-ENVIRONMENT™‚š ™‚ ˜ŒZEROP˜–&gg ¿ggo ˜ŒDEFMACRO RUNTIME\ IZEROP™˜“€ ™ ™™™‚™‚9™‚˜“˜ŒXœ˜’Œexpand-RUNTIME FIX=™˜–2@X¹HºgggIhggJhh™‚E™˜“˜“˜Œ $$MACRO-FORM˜Œ$$MACRO-ENVIRONMENT#™‚š™‚ ™‚š™‚ ˜Œ=˜–&gg ¿ggo ˜ŒDEFMACRO RUNTIME\ FIX=™˜“€ ™ ™™™‚™‚E™‚˜“˜ŒX˜ŒYœ˜’Œexpand-RUNTIME IREF™˜–2@X¹HºgggIhggJhh™‚R™˜“˜“˜Œ $$MACRO-FORM˜Œ$$MACRO-ENVIRONMENT#™‚š™‚ ™‚˜™‚ ˜ŒSVREF˜–&gg ¿ggo ˜ŒDEFMACRO RUNTIME\ IREF™˜“€ ™ ™™™‚d™‚R™‚d˜“˜ŒVECTOR˜ŒINDEXœ˜’Œexpand-RUNTIME ISET™˜–A@X¹HZ»J¼ggggIhggKhhLh™‚_™˜“˜“˜Œ $$MACRO-FORM˜Œ$$MACRO-ENVIRONMENT-™‚š(™‚ ™‚˜™‚ ™‚W™‚'˜–&gg ¿ggo ˜ŒDEFMACRO RUNTIME\ ISET™˜“€ ™ ™™™‚]™‚_™‚]˜“˜ŒVECTOR˜ŒINDEX˜ŒVALUEœ˜’Œexpand-RUNTIME SVREF™˜–2@X¹HºgggIhggJhh™‚l™˜“˜“˜Œ $$MACRO-FORM˜Œ$$MACRO-ENVIRONMENT#™‚š™‚ ™‚˜™‚ ™‚W˜–&gg ¿ggo ˜ŒDEFMACRO RUNTIME\ SVREF™˜“€ ™ ™™™‚U™‚l™‚U˜“˜ŒVECTOR˜ŒFIXNUMœ˜’Œexpand-RUNTIME I+™˜–@@X¹HºgggggIhggJhhh™‚x™˜“˜“˜Œ $$MACRO-FORM˜Œ$$MACRO-ENVIRONMENT-™‚š(™‚ ™‚š™‚ ˜Œ+™‚š ™‚ ˜–&gg ¿ggo ˜ŒDEFMACRO RUNTIME\ I+™˜“€ ™ ™™™‚€™‚x™‚€˜“˜ŒINDEX1˜ŒINDEX2œ˜’Œexpand-RUNTIME I-™˜–@@X¹HºgggggIhggJhhh™‚…™˜“˜“˜Œ $$MACRO-FORM˜Œ$$MACRO-ENVIRONMENT-™‚š(™‚ ™‚š™‚ ˜Œ-™‚š ™‚ ˜–&gg ¿ggo ˜ŒDEFMACRO RUNTIME\ I-™˜“€ ™ ™™™‚y™‚…™‚y˜“˜ŒINDEX1˜ŒINDEX2œ˜’Œexpand-RUNTIME I1+™˜–,@X¹gggggIhhh™‚’™˜“˜“˜Œ $$MACRO-FORM˜Œ$$MACRO-ENVIRONMENT™‚š™‚ ˜Œ1+ ™‚š™‚ ˜–&gg ¿ggo ˜ŒDEFMACRO RUNTIME\ I1+™˜“€ ™ ™™™‚†™‚’™‚†˜“˜ŒINDEXœ˜’Œexpand-RUNTIME ILOGAND™˜–@@X¹HºgggggIhggJhhh™‚ž™˜“˜“˜Œ $$MACRO-FORM˜Œ$$MACRO-ENVIRONMENT-™‚š(™‚ ™‚š™‚ ˜ŒLOGAND™‚š ™‚ ˜–&gg ¿ggo ˜ŒDEFMACRO RUNTIME\ ILOGAND™˜“€ ™ ™™™‚r™‚ž™‚r˜“˜ŒINDEX1˜ŒINDEX2œ˜’Œexpand-RUNTIME ILOGXOR™˜–@@X¹HºgggggIhggJhhh™‚«™˜“˜“˜Œ $$MACRO-FORM˜Œ$$MACRO-ENVIRONMENT-™‚š(™‚ ™‚š™‚ ˜ŒLOGXOR™‚š ™‚ ˜–&gg ¿ggo ˜ŒDEFMACRO RUNTIME\ ILOGXOR™˜“€ ™ ™™™‚k™‚«™‚k˜“˜ŒINDEX1˜ŒINDEX2˜–nÿÿ¿o ˜ŒDEFCONSTANT INDEX-VALUE-LIMIT™˜“€™&˜’ŒINDEX-VALUE-LIMIT™ ˜“™‚¢™‚ºœ˜’ŒINDEX-VALUE->INDEX™˜–@™‚½™˜“˜“˜Œ INDEX-VALUEœ˜’ŒINDEX->INDEX-VALUE™˜–@™‚™˜“˜“˜ŒINDEXœ˜’ŒMAKE-INDEX-MASK™˜–a@l ¸Al ¹jºH»j¼LKýó¡°kkL J ºLkÔ¼°æI¼j»KLýó¡°jkK J ºKkÔ»°æJ™‚Ç™˜“˜“˜Œ CACHE-SIZE˜Œ LINE-SIZES˜ŒDPBM˜ŒBYTE3™‚Ì-™‚͘’ŒSFLOOR˜‘˜ŒXEROX-COMMON-LISP˜ŒLOG ™‚Й‚Ñš‚Óÿÿ