‘XCL Compiler output for source file {DSK}arunwelch>SKYDRIVE>DOCUMENTS>UNIX>LISP>CLOS>CURRENT>dlap.lisp;1 Source file created Wednesday, 6 November 1991, 8:52:19. FASL file created Friday, 4 December 2020, 19:45:37. ÿ˜– o ˜Œ1 top-level form˜ŒFUNCTION˜“€˜Œ IN-PACKAGE˜ŒCLOSœ˜’ŒEMIT-ONE-CLASS-READER˜‘˜ŒCLOS˜–gk@ ™™˜“˜“˜Œ CLASS-SLOT-P˜’ŒEMIT-READER/WRITER™˜ŒREADERœ˜’ŒEMIT-ONE-CLASS-WRITER™˜–gk@ ™™˜“˜“˜Œ CLASS-SLOT-P™ ˜ŒWRITERœ˜’ŒEMIT-TWO-CLASS-READER™˜–gl@ ™™˜“˜“˜Œ CLASS-SLOT-P ™ ™ œ˜’ŒEMIT-TWO-CLASS-WRITER™˜–gl@ ™™˜“˜“˜Œ CLASS-SLOT-P ™ ™œ™ ˜–‚?h¸h¹hºg »@gð›j Xh¹°1@gð²k ¸j Hh¹°hg@o ¿Akð—oº°!Alð—oº°hgAo ¿hhmÿhhJIi ½g ¾g __¿B‘h‰g _¿B–i €h_¿ggH M gMg gMg gg gg ggM N O²ggM O €hgg gg ggM N O²ggM O €hgg ggNK O gOg Akð²Ngg °0Alð²Nggg °hgAo B²`ggg O @gðžOgM °'@gð›OIM °hg@o °cggg O @gð²OOgM °)@gðOOIM °hg@o gg g _¿O—O ¿O—O ¿O_¿M ¿N ¿O ¿O ˜’Œ*GENERATING-LAP*™™ ™˜“˜“˜Œ READER/WRITER˜Œ 1-OR-2-CLASS˜Œ CLASS-SLOT-P7‚9˜’ŒFINALIZE-LAP-GENERATION™‚1˜’ŒDEALLOCATE-REGISTER™‚)™&‚"™&‚™&‚ ™&‚þ˜’Œ FLATTEN-LAP™‚ø˜’Œ EMIT-MISS™‚ŒOPCODE™‚ß™'‚Ú˜•Œ ECASE-FAIL‚ǘ’Œ EMIT-SET-SLOT™‚±˜’Œ EMIT-GET-SLOT™‚™™)‚’˜’ŒOPERAND™‚|™'‚w™*‚d˜’ŒEMIT-SET-CLASS-SLOT™‚P˜’ŒEMIT-GET-CLASS-SLOT™‚;™)‚4™-‚™*‚ ˜’ŒEMIT-CHECK-2-CLASS-WRAPPER™‚혒ŒEMIT-CHECK-1-CLASS-WRAPPER™‚Ø™)‚Ç™)‚À™-‚¯™)‚ž™)‚—™-‚ƒ™)‚}™-‚m™)‚^™)‚M™)‚F™-‚2™)‚,™-‚™)‚ ™)‚þ™)‚î™)‚Þ™)‚Ø™-‚Ø’ŒALLOCATE-REGISTER™‚¸™2‚¥™2‚š™2‚™2z™*O™*7˜’ŒDFUN-ARG-SYMBOL™0™3™3 ˜’Œ WRAPPER-FIELD™;‚ó˜’ŒMISS-FN™‚阒ŒTRAP™‚䘌LABEL‚Ϙ’Œ READER/WRITER™‚¹™‚«™6‚Ÿ™ ‚˜’ŒINDEX™‚ˆ˜ŒCVAR‚ƒ˜ŒMOVE‚l™8‚X™‚J™6‚A™ ‚/™9‚*™:‚%™;‚˜’Œ 1-OR-2-CLASS™‚™6‚˜’Œ WRAPPER-1™‚û˜’Œ WRAPPER-0™‚è™6‚ã™>‚Ó™6‚̘ŒIZEROP‚¹˜ŒCREF‚´™;‚ª˜’Œ HAVE-WRAPPER™‚¥™7‚‘˜Œ STD-SLOTS‚Œ™;‚w˜Œ STD-WRAPPER‚r™;‚h˜’Œ STD-INSTANCE™‚c™7‚Y™A‚T˜ŒGO‚@˜Œ FSC-SLOTS‚;™;‚&˜Œ FSC-WRAPPER‚!™;‚˜’Œ FSC-INSTANCE™‚™7‚™6‚™E‚ù™H‚ó˜ŒFSC-INSTANCE-P‚é™D‚㘌STD-INSTANCE-P‚Ò˜ŒARG‚Í™;‚³˜ŒVECTOR‚ ™9‚•™Lo™™=™9™5Y˜“™>™9™5J˜“™ ™œ˜’ŒEMIT-ONE-INDEX-READERS™˜–‚»j h¸hhmÿhhoHg ºHogg »ggg K @œKgJ ‹JKg ¼K ¿Lgg g h@‘h‚Jh »J ¿K ™™V™˜“˜“˜Œ CLASS-SLOT-P‚µ™%‚®™&‚§˜’Œ EMIT-DLAP™‚™™'‚”™(‚Š™)y™&r™'m™,`™/R™)L™-7™2!™2™3 ‚™5‚…™6‚€™7h™6Z™6G™9B™:=™;2™9-™6™L(˜“˜’ŒSTANDARD-INSTANCE™˜“˜’ŒFIELD™˜’ŒCACHE™˜’ŒMASK™˜’ŒSIZE™™9™5œ˜’ŒEMIT-ONE-INDEX-WRITERS™˜–‚Æj k h¸hhmÿhhoHg ºHogg »ggg K @Kj J ŒJKj ¼K ¿Lgg g h@‘h„hJh »J ¿K ™™c™˜“˜“˜Œ CLASS-SLOT-P‚À™%‚¹™&‚²™Z‚¢™'‚™(‚“™)‚‚™&{™'v™+q™3h™.b™3Y™)S™->™2(™2™3™3 ‚˜™5‚Ž™6‚‰™7N™9I™:D™;9™94™6#™L/˜“™[˜“™]™^™_™`™9™5œ˜’ŒEMIT-N-N-READERS™˜–‚‡j h¸hhmÿhhoHg ºg »HogJKg gg g KJh ¼J ¿K ¿L ™™j™˜“€ ‚™%z™&s™&l™Zb™']™(S™)D™,,™2!™2™3X™5N™6I™7?™68™6'™9™L3˜“™[˜“™]™^™_™`™5œ˜’ŒEMIT-N-N-WRITERS™˜–‚–j k h¸hhmÿhhoHg ºg »HogJKj gg g KhJh  ¼J ¿K ¿L ™™o™˜“€‚™%‚‰™&‚‚™&{™'v™Zj™'e™([™)L™+G™33™2(™2™3™3`™5V™6Q™7?™6.™9#™L:˜“™[˜“™]™^™_™`™5œ˜’Œ EMIT-CHECKING™˜–‚¼@A ¸hhmÿhhoHgH @gi ºggg J gJ »J ¿Ki ºgg ggg J gJ »J ¿Kh  ™™t™˜“˜“˜Œ METATYPES˜ŒAPPLYP‚¶™%‚±™Z‚¨™&‚¡™'‚œ™)‚‘™)‚‹™-w™)g™2_™&X™'S™)H™)B™--™2!˜ŒREMOVE˜’ŒMAKE-DLAP-LAMBDA-LIST™ ‚–˜ŒJMP‚†™5‚™:|™;r™6m™7M™{=˜ŒFUNCTION8™:3™;'™6˜Œ&REST˜“™]™^™_™`™|™5œ˜’Œ EMIT-CACHING™˜–‚¢@A ¸hhmÿhhoHi ºgH @ggJ i »gg ggg K gK ¼K ¿LJ »J ¿K ™™‚€™˜“˜“˜Œ METATYPES˜ŒAPPLYP‚œ™%‚•™&‚Ž™Z‚…™&~™'y™)n™)h™-T™)D™2>™'9™)(™y™2™z s™{c™5^™:Y™;O™6J™73™{.™6"™}˜“™]™^™_™`™5œ™1˜–Fg ¸ggA H g@HB H ¿ ™1™˜“˜“˜ŒWRAPPER˜Œ CWRAPPER-0˜Œ MISS-LABEL@˜Œ VALUES-LIST:™&4˜•Œ\MVLIST/™'*™)™)™-™2"˜ŒNEQ™: ™;™Lœ™0˜–}g ¸ggA H g@Hg ggB H g@HC gg  H ¿ ™0™˜“˜“˜ŒWRAPPER˜Œ CWRAPPER-0˜Œ CWRAPPER-1˜Œ MISS-LABEL w™‚Œq™&k™‚f™'`™)Q™)D™)>™-.™)™)™-™2 [˜’Œ HIT-INTERNAL™V™7I™‚Ž8™:3™;)™‚–"˜ŒEQ™: ™;™Lœ™,˜–`gR ¸C‘C…i ¹gg@A I gIHB gI C¦I ¿ ˜’Œ*SLOT-UNBOUND*™™,™˜“˜“˜ŒSLOTS˜ŒINDEX˜Œ TRAP-LABEL˜Œ &OPTIONAL˜ŒTEMP Z™‚ŒT™&L™‚G™'B™)7™)*™)$™-™2™-<˜ŒRETURN/™‚—˜ŒIREF™;˜ŒCONSTANTœ™+˜–]C‘C…i ¸ggB H gHg@A gH C¦H ¿ ™+™˜“˜“˜ŒSLOTS˜ŒINDEX˜Œ NEW-VALUE-ARG™‚˜ŒTEMP W™‚ŒQ™&I™‚D™'?™)4™)/™-™)™-™29™‚¡(™‚¢"™;™K ™;œ™/˜–_gR ¸B‘B…i ¹gg@ I gIHA gI B¦I ¿ ™‚™™/™˜“˜“˜ŒINDEX˜Œ TRAP-LABEL™‚˜ŒTEMP Y™‚ŒS™&K™‚F™'A™)6™))™)#™-™2™-;™‚¡.™‚—˜ŒCDR™;™‚£œ™.˜–\B‘B…i ¸ggA H gHg@ gH B¦H ¿ ™.™˜“˜“˜ŒINDEX˜Œ NEW-VALUE-ARG™‚˜ŒTEMP V™‚ŒP™&H™‚C™'>™)3™).™-™)™-™28™‚¡(™‚±"™;™K ™;œ™(˜–@i ¸gg@ H gH H ¿ ™(™˜“˜“˜ŒMISS-FN:™‚Œ4™&.™‚)™'$™)™)™-™2™{ ™:™;œ˜’Œ DLAP-WRAPPERS™˜–1@¸h¹hºh»H¡IH\ið‘h‰g »I”JK&º„KhZ¹H¸°Ú™‚½™˜“˜“˜Œ METATYPES™2™Lœ˜’ŒDLAP-WRAPPER-MOVES™˜–‚–h¸h¹Bºh»A¼h½@¾h_¿j_¿h_¿J ‘°rJ_¿JºO»L ‘°^L_¿L¼O½N ‘°JN_¿N¾O_¿O_¿OkÔ_¿O_¿O²&KMOCOD _¿H•IO&¹…OhY¸°‰H™‚ ™˜“˜“˜ŒWRAPPERS˜ŒARGS˜Œ METATYPES˜Œ MISS-LABEL˜Œ SLOT-REGS|˜’ŒEMIT-FETCH-WRAPPER™v˜ŒNTHD˜ŒENDP0™‚Ì™‚Ìœ™Z˜–=A ¸hH ¹H@ABF ºIJCDBE »I¼L ŒL ¿L¼°òK™Z™˜“˜“˜ŒARGS˜Œ METATYPES˜Œ MISS-LABEL˜ŒHIT˜ŒMISS˜Œ VALUE-REG™‚˜Œ SLOT-REGS0™&#˜’ŒEMIT-DLAP-INTERNAL™™‚ ™y™‚½œ™‚ט–0@œ@ABCDE Ež@ABCDE @ABCD ™‚×™˜“˜“˜Œ WRAPPER-REGS˜Œ WRAPPER-MOVES˜ŒHIT˜ŒMISS˜Œ MISS-LABEL˜Œ VALUE-REG*˜’ŒEMIT-1-NIL-DLAP™˜’Œ EMIT-1-T-DLAP™ ˜’ŒEMIT-GREATER-THAN-1-DLAP™œ™‚ᘖ‚‰g ¸g ¹g ºAggg J g »@IK gIH JH@B gKD ¼K ¿Lg »ggg K gg ggH H gHID gHKg gg JH@B gg gg gID ggj H gg ¼K ¿LC  H ¿I ¿J ¿ ™‚ᙘ“˜“˜ŒWRAPPER˜Œ WRAPPER-MOVE˜ŒHIT˜ŒMISS˜Œ MISS-LABEL%‚ƒ™‚Œ‚}™&‚v™&‚o™&‚i™‚‚d™'‚[™&‚T™'‚N™)‚?™)‚9™-‚4˜’ŒINDEX-VALUE->INDEX™‚$™)‚™)‚ ™)‚ú˜’ŒEMIT-CHECK-1-WRAPPER-IN-CACHE™‚ñ™)‚â™)‚Ñ™)‚Ä™)‚¾™-‚®™)‚Ÿ™)‚™™-‚„™2x™&q™'l™)`™‚íW™)K˜’Œ-EMIT-1-WRAPPER-COMPUTE-PRIMARY-CACHE-LOCATION™B™28™)2™-™2™2™2‚I˜’ŒCONTINUE™‚D™E‚.™‚£‚)™;‚™?‚˜’ŒSET-LOCATION-TO-MIN™‚™7‚˜ŒLOOP‚ÿ™E‚왂ï‚ç™7‚Ý™‚ð‚Ö˜ŒFIX=‚É™‚ò‚¸˜ŒI1+‚³™;‚©™‚ñ‚¤™7‚”™`‚™:‚Š™;™9e™?P™;=™9-™^(™:#™;™L ™9™9œ™‚☖‚!g ¸g ¹g ºi »Aggg J g ¼@IL gIH ggJj K JH@g gLD ½L ¿Mg ¼ggg L gg ggH H ggH H gg gHID gHLg JH@g gg gg gID ggl H gg ½L ¿Mgg ggH H gJH E KJg Cgg B H ¿I ¿J ¿K ¿ ™‚♘“˜“˜ŒWRAPPER˜Œ WRAPPER-MOVE˜ŒHIT˜ŒMISS˜Œ MISS-LABEL˜ŒVALUE2‚™‚Œ‚™&‚™&‚™&‚™&‚ú™‚‚õ™'‚î™)‚Þ˜’ŒEMIT-LOCK-COUNT-TEST™‚Ò™)‚̘’ŒEMIT-CACHE-REF™‚À™)‚º™-‚ª™)‚™™&‚’™'‚Œ™)‚}™)‚w™-‚r™‚ì‚a™)‚U™)‚F™)‚7˜’ŒEMIT-CHECK-CACHE-ENTRY™‚*™)‚™)‚ ™)‚ý™)‚÷™-‚ç™)‚á™-‚Ñ™)‚™)‚¼™-‚§™2‚›™&‚”™'‚Ž™)‚‚™‚ÿu™)o™-^™)R™‚îI™2?™)9™-#™2™2™2™2-‚阒ŒHIT™‚ä™7‚Ù™‚‚Å™;‚´™‚󂯙;‚¥™‚–‚ ™7‚‡™‚ï‚‚™E‚k™‚£‚f™;‚Z™?‚P™‚ð‚K™7‚A™‚ñ‚<™E‚2™‚–‚%™‚ð‚™‚ò‚™‚ò‚™‚ï‚™7‚ñ™‚ó‚ì™;‚Û™‚ó‚Ö™;‚Ì™‚ñ‚Ç™7‚·™`‚²™:‚­™;‚¢™9‚‡™?}™‚–h™@c™;W™;D™94™^/™:*™;™L ™9™9œ™‚㘖‚Å@ E‘k€jÔ ¸g ¹g ºg »i ¼g ½g ¾g A ggH N ggg K @JD gJI gIM ggKj L g _¿ggg O gg ggIN M KI@g IMJOgD gg E²gKI E €hLKg Cgg B _¿O ¿O  I ¿J ¿K ¿L ¿M ¿N ¿ ™‚ã ™˜“˜“˜ŒWRAPPERS˜Œ WRAPPER-MOVES˜ŒHIT˜ŒMISS˜Œ MISS-LABEL˜ŒVALUE+‚¿™‚Œ‚¹™&‚²™&‚«™&‚¤™&‚™&‚–™&‚™‚‚‹™'‚‚™&‚x™'‚q™)‚a™‚ý‚S™)‚M™‚þ‚>™)‚/˜’ŒEMIT-ADJUST-LOCATION™‚˜’ŒEMIT-CHECK-CACHE-LINE™‚™)‚ ™-‚ú™)‚ë™)‚ä™-‚Í™2‚Ù)‚½™-‚¬™)‚ ™)‚”˜’Œ-EMIT-N-WRAPPER-COMPUTE-PRIMARY-CACHE-LOCATION™‚Œ™)‚†™-r™)l™-\˜ŒAPPLYV˜ŒSYMBOL-FUNCTIONK™2@™25™2.™2#™2™2 ˜’ŒCOMPUTE-LINE-SIZE™˜ŒLENGTH‚l™‚–‚g™7‚\™‚–‚F™;‚9™‚‚4™7‚(™‚ï‚™‚‚˜ŒI+‚ÿ™;‚õ™‚ï‚ð™7‚ß™`‚Ú™:‚Õ™;‚È™9‚¶™@‚±™;‚¥™;‚™™;‚™^|™:w™;f™‚£a™;Q™'F™9;™9)™L™9™9œ™‚혖Yo ¸g ¹g@A I gIBH CgH I ¿ ™‚환“˜“˜ŒCACHE˜ŒLOCATION˜ŒWRAPPER˜ŒHIT-CODE S™‚ŒM™&G™‚B™'=™)1™)$™)™‚þ™2˜Œ MAKE-SYMBOL7™7)™‚Ž™; ™L˜Œ"exit-emit-check-1-wrapper-in-cacheœ™‚ÿ˜–Bg ¸g@A H gHBC H ¿ ™‚ÿ™˜“˜“˜ŒCACHE˜ŒLOCATION˜ŒWRAPPER˜Œ HIT-LABEL<™‚Œ6™&0™‚+™'&™)™)™‚þ™2™‚— ™;™Lœ™‚ ˜–‚©h¸B¹hºI ‘°`I»I¹Kºg »g@A K gKJg ggA A \H¸K ¿°›g H XgC gg ™‚ ™˜“˜“˜ŒCACHE˜ŒLOCATION˜ŒWRAPPERS˜Œ HIT-LABEL‚£™'‚ž™)‚™)‚ƒ™'~™‚ y˜ŒREVERSEs™‚f™&\™'W™)Q™-A™)0™)*™‚þ™2™‚Ì ‚™˜’ŒEXIT-EMIT-CHECK-CACHE-LINE™‚”™7‚‰™En™'K™‚óF™;<™‚*5™‚Ž#™;™Lœ™‚ý˜–Ci ¸ggAj H gH@B H ¿ ™‚ý™˜“˜“˜ŒINITIAL-LOCK-COUNT˜ŒCACHE˜Œ HIT-LABEL=™‚Œ7™&1™‚,™''™)™)™-™2™‚ò ™@™;œ™‚ ˜–‚ŽgA@ g@Cg g@BE gD gg gBgk E ggk @ gD ™‚ ™˜“˜“˜ŒLOCATION˜Œ NEXT-LOCATION˜ŒPRIMARY˜ŒSIZE˜Œ CONT-LABEL˜Œ MISS-LABEL ‚ˆ™'‚‚™)w™)q™-l™‚ì\™)V™-Q™‚ì@™)1™)&™)™)™) |™Ef™‚£a™;K™‚£E™‚ò;˜’ŒAT-END-OF-CACHE™6™7+™E™‚ò™‚: ™‚ò™;š‚<ÿÿ