‘XCL Compiler output for source file {DSK}arunwelch>skydrive>documents>unix>lisp>clos>current>low2.lisp;1 Source file created Tuesday, 25 June 1991, 14:02:01. FASL file created Friday, 4 December 2020, 13:17:00. ÿ˜– o ˜Œ1 top-level form˜ŒFUNCTION˜“€˜Œ IN-PACKAGE˜ŒCLOSœ˜’Œexpand-LOAD-TIME-EVAL˜‘˜ŒCLOS˜–@X¹gIh™™˜“˜“˜Œ $$MACRO-FORM˜Œ$$MACRO-ENVIRONMENT˜•ŒLOADTIMECONSTANT˜–&gg ¿ggo ˜ŒDEFMACRO LOAD-TIME-EVAL™˜“€ ˜•ŒPUTPROP ˜•ŒSETF-MACRO-FUNCTION˜•ŒARGNAMES˜’ŒLOAD-TIME-EVAL™™™˜“˜ŒFORM˜–Dgio ¿goolg ¿ggg ˜ŒDEFSTRUCT STD-INSTANCE™˜“€>™)˜’Œ%STRUCTURE-DECLARE-DATATYPE˜‘˜ŒSYSTEM ˜ŒSET-PARSED-STRUCTURE9˜ŒTYPE-EXPAND-STRUCTURE4˜Œ TYPE-EXPANDER/˜’Œ STD-INSTANCE™#˜ŒSTRUCTURE-OBJECT™ ™ ˜“˜“™ ˜•Œ FULLXPOINTER˜“™ ˜•ŒPOINTER˜“™"™$˜“˜ŒPS™ €˜“˜’ŒWRAPPER™˜’ŒSLOTS™˜ŒDATATYPE€€˜’Œ%STD-INSTANCE-™˜“˜“˜’Œ%%ALLOCATE-INSTANCE--CLASS™€˜’ŒSTD-INSTANCE-P™˜’Œ%PRINT-STD-INSTANCE™˜’ŒCOPY-STD-INSTANCE™€€˜“˜“™)€™"€™#˜’Œ%STD-INSTANCE-WRAPPER™˜“™*€€™%˜’Œ%STD-INSTANCE-SLOTS™€€™'€˜“˜ŒACCESSOR˜Œ PREDICATE€€œ™1˜–@Ù1™˜“˜“˜ŒOBJECT™ ˜–"g ¿g ¿g ™™˜“€˜ŒESTABLISH-SETFS-AND-OPTIMIZERS˜ŒESTABLISH-ACCESSORS˜ŒESTABLISH-PREDICATE™ ™ ™ œ™.˜–`XhοHh¿H™.™˜“€˜’ŒSTD-INSTANCETYPE#™œ™3˜–:@¸@Ñ°igHgh b¿°ß`X@ÉοH@É¿H™3™˜“˜“˜Œ STD-INSTANCE˜•ŒCHECK-TYPE-FAIL$™H™ ™ ™ œ™2˜–LnX@B¿A žHÉAHÉ ¿iHý¿iHý¿noHkoH-h™2™˜“˜“˜ŒINSTANCE˜Œ &OPTIONAL˜ŒSTREAM˜ŒDEPTH#˜•ŒMAKE-FILL-POINTER-OUTPUT-STREAM˜’ŒPRINT-STD-INSTANCE™˜ŒSTREAMPB˜–'HÉHÉHÉ ¿HÉ ¹hHý¿I¹j@¿I˜’Œ*UNWIND-PROTECT*™˜ŒCLOSURE˜“˜“˜ŒG4196˜ŒGET-OUTPUT-STREAM-STRING ™V7˜–HÉgHÉ ˜ŒClean-up forms™Y˜“€ ˜ŒCLOSE˜ŒABORT3˜•ŒCOMPILED-CLOSURE˜•Œ \PTRHUNK4œ˜’ŒFUNCTION-ARGLIST™˜–‚ƒ@ Xd3@ð²!@ ‘i€hš@ ¹I†@i ¸Hd3@ðgghg H ²0H¹hºh»h¼I¡JI]d3@ð‘M…M ¼J”KL&»„Lh[ºI¹°ÜH™g™˜“˜“˜ŒXj˜ŒINTERNL˜•Œ %SOME-SINGLEF˜ŒSYMBOL-FUNCTION'˜•ŒARGLIST™m™m™nA˜ŒSTRINGP8˜ŒREST3˜Œ&RESTœ˜’ŒPRINTING-RANDOM-THING-INTERNAL™˜–$l@ÒA ¿oA ¿@ÓA ˜Œ *PRINT-BASE*™s™˜“˜“˜ŒTHING˜ŒSTREAM˜ŒPRINC™y ™y˜Œ,œ˜’ŒRECORD-DEFINITION™˜–h™|™˜“˜“˜ŒNAME˜ŒTYPE™P˜Œ PARENT-NAME˜Œ PARENT-TYPE˜–o ¿o ˜Œ2 top-level forms™˜“€˜•Œ BLOCKRECORD˜•ŒDATATYPE ˜“˜’ŒCLOSURE-OVERLAY™˜“˜“˜’ŒFUNCALLABLE-INSTANCE-P™˜•ŒFLAG˜“™d˜“˜•ŒFNHEADER˜•Œ ENVIRONMENTœ˜’ŒCOMPILED-CLOSURE-FNHEADER™˜– @É™‚“™˜“˜“˜ŒCOMPILED-CLOSURE™dœ˜’ŒSET-COMPILED-CLOSURE-FNHEADER™˜–@XA¿A™‚˜™˜“˜“˜ŒCOMPILED-CLOSURE˜ŒNV™d˜–gg ˜Œ!DEFSETF COMPILED-CLOSURE-FNHEADER™˜“€ ˜ŒSET-SETF-INVERSE™‚˜™‚“œ˜’ŒSET-FUNCTION-NAME-1™˜–3@ò*@ A¿B‘i€h˜Bgð€h›@ X“HB¿@™‚¢™˜“˜“˜ŒFN˜ŒNEW-NAME˜ŒUNINTERNED-NAME&˜’Œ COMPILED-FUNCTION-DEBUGGING-INFO™ ™‚“˜’ŒMETHOD™™dš‚«ÿÿ