‘XCL Compiler output for source file {DSK}arunwelch>skydrive>documents>unix>lisp>clos>current>low.lisp;1 Source file created Tuesday, 25 June 1991, 14:01:32. FASL file created Friday, 4 December 2020, 13:16:57. ÿ˜– o ˜Œ1 top-level form˜ŒFUNCTION˜“€˜Œ IN-PACKAGE˜ŒCLOSœ˜’Œ expand-%SVREF˜‘˜ŒCLOS˜–@@X¹HºgogggIhggJhhh™™˜“˜“˜Œ $$MACRO-FORM˜Œ$$MACRO-ENVIRONMENT-˜ŒFIXNUM(˜ŒTHE˜Œ SIMPLE-VECTOR™˜ŒSVREF ˜ŒLOCALLY˜“˜ŒDECLARE˜“˜ŒOPTIMIZE˜“˜ŒSPEED˜“˜ŒSAFETY˜“˜ŒINLINE™˜–&gg ¿ggo ˜ŒDEFMACRO %SVREF™˜“€ ˜•ŒPUTPROP ˜•ŒSETF-MACRO-FUNCTION˜•ŒARGNAMES˜’Œ%SVREF™™™"˜“˜ŒVECTOR˜ŒINDEXœ˜’Œ%SVREF-setf-expander™˜–‚…@¸h¹hºh»H¢I°»I”JK&º„KhZ¹H¸°æ¸@H¹ºH@JhI[¼K½goggggLhggMhhJhhI$™'™˜“˜“˜Œ ACCESS-FORM˜Œ%SVREF-setf-env,˜•ŒGENSYM™,i™ d™Z™U™P™K˜ŒSETFA™F˜“™˜“™˜“™˜“™˜“™™˜–gg ˜ŒDEFSETF %SVREF™˜“€ ˜ŒSET-SETF-METHOD-EXPANDER™'™"œ˜’Œexpand-WITHOUT-INTERRUPTS™˜– @¸gH™8™˜“˜“˜Œ $$MACRO-FORM˜Œ$$MACRO-ENVIRONMENT˜ŒPROGN˜–&gg ¿ggo ˜ŒDEFMACRO WITHOUT-INTERRUPTS™˜“€ ™ ™ ™!˜’ŒWITHOUT-INTERRUPTS™™8™A˜“˜Œ&BODY˜ŒBODYœ˜’Œexpand-STD-INSTANCE-WRAPPER™˜–@X¹gIh™F™˜“˜“˜Œ $$MACRO-FORM˜Œ$$MACRO-ENVIRONMENT˜’Œ%STD-INSTANCE-WRAPPER™˜–&gg ¿ggo ˜ŒDEFMACRO STD-INSTANCE-WRAPPER™˜“€ ™ ™ ™!˜’ŒSTD-INSTANCE-WRAPPER™™F™O˜“˜ŒXœ˜’Œexpand-STD-INSTANCE-SLOTS™˜–@X¹gIh™S™˜“˜“˜Œ $$MACRO-FORM˜Œ$$MACRO-ENVIRONMENT˜’Œ%STD-INSTANCE-SLOTS™˜–&gg ¿ggo ˜ŒDEFMACRO STD-INSTANCE-SLOTS™˜“€ ™ ™ ™!˜’ŒSTD-INSTANCE-SLOTS™™S™\˜“˜ŒXœ˜’ŒPRINT-STD-INSTANCE™˜–9Ao ¿Ao ¿Ao ¿@A ¿Ao ™`™˜“˜“˜ŒINSTANCE˜ŒSTREAM˜ŒDEPTH3˜ŒFORMAT'˜’ŒPRINTING-RANDOM-THING-INTERNAL™™f™f™f.˜Œ>˜Œ ˜Œ#˜Œ#<œ˜’Œ expand-%ALLOCATE-INSTANCE--CLASS™˜–&@X¹gogIoo™m™˜“˜“˜Œ $$MACRO-FORM˜Œ$$MACRO-ENVIRONMENT˜’Œ%ALLOCATE-INSTANCE--CLASS-1™˜ŒLET˜“˜’ŒINSTANCE™˜“™t ˜“˜“™t˜“˜’Œ%%ALLOCATE-INSTANCE--CLASS™˜–&gg ¿ggo ˜Œ"DEFMACRO %ALLOCATE-INSTANCE--CLASS™˜“€ ™ ™ ™!˜’Œ%ALLOCATE-INSTANCE--CLASS™™m™~˜“˜Œ NO-OF-SLOTSœ˜’Œ"expand-%ALLOCATE-INSTANCE--CLASS-1™˜–‚Þ@X¹Hºh»h¼Jd3@ð]’M°*J3‘i€h^’N°J‘h€i_’O…J‘i€h˜Jo€h‘J]K»JL¼M½gggMhgIhhh½gK ¾L _¿h_¿h_¿h_¿N‘h€i_’O…O‘h€i“O°-NOh_¿O˜OO&_¿ˆOh__¿N¾O_¿°ÁMh™‚‚ ™˜“˜“˜Œ $$MACRO-FORM˜Œ$$MACRO-ENVIRONMENT‚ƒ˜ŒREVERSE|™‚‡C˜ŒGENSYMv™se˜’Œ$%ALLOCATE-STATIC-SLOT-STORAGE--CLASS™\™\W™-R™=8˜“˜ŒQUOTE˜ŒFUNCTION˜–&gg ¿ggo ˜Œ$DEFMACRO %ALLOCATE-INSTANCE--CLASS-1™˜“€ ™ ™ ™!™r™‚‚™r˜“˜Œ NO-OF-SLOTS˜ŒINSTANCE˜–"o ¿g X‘Hgc˜’Œ*SLOT-UNBOUND*™˜ŒDEFVAR *SLOT-UNBOUND*™˜“€˜ŒBOUNDP˜ŒPROCLAIM˜’Œ..SLOT-UNBOUND..™ ™‚”˜“˜ŒSPECIAL™‚”œ˜’Œ+expand-%ALLOCATE-STATIC-SLOT-STORAGE--CLASS™˜–@X¹gIo™‚™˜“˜“˜Œ $$MACRO-FORM˜Œ$$MACRO-ENVIRONMENT˜Œ MAKE-ARRAY ˜“˜ŒINITIAL-ELEMENT™‚”˜–&gg ¿ggo ˜Œ-DEFMACRO %ALLOCATE-STATIC-SLOT-STORAGE--CLASS™˜“€ ™ ™ ™!™‚‰™‚™‚‰˜“˜Œ NO-OF-SLOTSœ˜’Œexpand-STD-INSTANCE-CLASS™˜–@X¹ggIhh™‚«™˜“˜“˜Œ $$MACRO-FORM˜Œ$$MACRO-ENVIRONMENT ™O˜’Œ WRAPPER-CLASS™˜–&gg ¿ggo ˜ŒDEFMACRO STD-INSTANCE-CLASS™˜“€ ™ ™ ™!˜’ŒSTD-INSTANCE-CLASS™™‚«™‚´˜“˜ŒINSTANCEœ˜’ŒSET-FUNCTION-NAME™˜–@A A ™‚¸™˜“˜“˜ŒFUNCTION˜ŒNEW-NAME ˜’ŒSET-FUNCTION-NAME-1™˜’ŒINTERN-FUNCTION-NAME™œ™‚½˜–3@ò*@ A¿B‘i€h˜Bgð€h›@ X“HB¿@™‚½™˜“˜“˜ŒFN˜ŒNEW-NAME˜ŒUNINTERNED-NAME&˜’Œ COMPILED-FUNCTION-DEBUGGING-INFO˜‘˜ŒSYSTEM ˜’ŒCOMPILED-CLOSURE-FNHEADER™˜’ŒMETHOD™˜•ŒCOMPILED-CLOSUREœ™‚¾˜–:@d3@ð‘@@‘h€iX‘H…@‘i€h² Tgiho@ T h˜Œ*PRINT-GENSYM*˜Œ *PRINT-CASE*˜Œ *PACKAGE*˜’Œ*THE-CLOS-PACKAGE*™™‚¾™˜“˜“˜ŒNAME2˜ŒINTERN+™f˜ŒUPCASE%˜Œ~Sœ˜’ŒCOMPILE-LAMBDA™˜– h@ ™‚×™˜“˜“˜ŒLAMBDA˜ŒCOMPILEœ˜’Œ&expand-PRECOMPILE-RANDOM-CODE-SEGMENTS™˜–&@X’H€h¹ggIhgIhh™‚Ý™˜“˜“˜Œ $$MACRO-FORM˜Œ$$MACRO-ENVIRONMENT˜’ŒPRECOMPILE-DFUN-CONSTRUCTORS™˜’ŒPRECOMPILE-FUNCTION-GENERATORS™ ™=˜–&gg ¿ggo ˜Œ(DEFMACRO PRECOMPILE-RANDOM-CODE-SEGMENTS™˜“€ ™ ™ ™!˜’ŒPRECOMPILE-RANDOM-CODE-SEGMENTS™™‚Ý™‚瘓˜Œ &OPTIONAL˜ŒSYSTEMœ˜’ŒRECORD-DEFINITION™˜–h™‚왘“˜“˜ŒTYPE˜ŒSPECœ˜’ŒDOCTOR-DFUN-FOR-THE-DEBUGGER™˜–A™‚ò™˜“˜“˜ŒGF˜ŒDFUNš‚øÿÿ