‘XCL Compiler output for source file {DSK}arunwelch>skydrive>documents>unix>lisp>clos>current>fin.lisp;1 Source file created Tuesday, 25 June 1991, 13:50:20. FASL file created Friday, 4 December 2020, 13:17:00. ے‌ک–o کŒ1 top-level formکگŒFUNCTIONک“€کڈŒ IN-PACKAGEکŒCLOS‌ک–,o؟o ؟ggoکŒ%DEFCONSTANT FUNCALLABLE-INSTANCE-DATA™ک“€&ک•ŒSET-DOCUMENTATIONکڈŒPROCLAIMکڈŒVARIABLEک’ŒFUNCALLABLE-INSTANCE-DATAک‘کŒCLOS™ !کŒ‚‍These are the 'data-slots' which funcallable instances have so that the meta-class funcallable-standard-class can store class, and static slots in them.ک“ک’ŒCONSTANTک‘کŒSYSTEM™ ک“ک’ŒWRAPPER™ک’ŒSLOTS™œک’Œ)expand-FUNCALLABLE-INSTANCE-DATA-POSITION™ک–|@XY‘i€h²Igًڑg ‚h€h²JI`gg Z‘JoI ؟gogIhhgIo™™ک“ک“کŒ$$MACRO-FORMکŒ$$MACRO-ENVIRONMENTNکڈŒWARN=کڈŒPOSITION8کڈŒSYMBOL-FUNCTIONکڈŒBOUNDPn™^کڈŒQUOTETکڈŒERROR3کڈŒEQ.کگŒTEST)™ ™ ™ tک“™ ™#ک“کڈŒFUNCTION™"YکŒ&Unknown funcallable-instance data: ~S.FکŒ&Unknown funcallable-instance data: ~S.‌ک–&gg ؟ggoکŒ+DEFMACRO FUNCALLABLE-INSTANCE-DATA-POSITION™ک“€ ک•ŒPUTPROPک•ŒSETF-MACRO-FUNCTIONک•ŒARGNAMESک’Œ"FUNCALLABLE-INSTANCE-DATA-POSITION™™™/ک“کŒDATAœک’ŒCALLED-FIN-WITHOUT-FUNCTION™ک–o ™3™ک“€™!کŒoAttempt to funcall a funcallable-instance without first~%~ setting its funcallable-instance-function.‌ک–l؟o کŒ-DEFCONSTANT FUNCALLABLE-INSTANCE-CLOSURE-SIZE™ک“€™ ک’Œ!FUNCALLABLE-INSTANCE-CLOSURE-SIZE™ ک“™™9‌ک–*o ؟g X‘Hli cک’Œ*FIN-ENV-TYPE*™کŒDEFVAR *FIN-ENV-TYPE*™ک“€"کڈŒTYPE-OFک•Œ\ALLOCBLOCK™™ ™<ک“کڈŒSPECIAL™<‌ک–Dgio؟goolg ؟gggکŒDEFSTRUCT FIN-ENV-POINTER™ک“€>™,)ک’Œ%STRUCTURE-DECLARE-DATATYPE™کڈŒSET-PARSED-STRUCTURE9کڈŒTYPE-EXPAND-STRUCTURE4کگŒ TYPE-EXPANDER/ک’ŒFIN-ENV-POINTER™#کڈŒSTRUCTURE-OBJECT™J™Jک“ک“™Jک•ŒFULLXPOINTERک“™Lک“کڈŒPS™Jک’ŒMAKE-FIN-ENV-POINTER™ک“ک’ŒPOINTER™کڈŒDATATYPE€€کŒFIN-ENV-POINTER-ک“™Qک’ŒFIN-ENV-POINTER-P™کڈŒDEFAULT-STRUCTURE-PRINTERک’ŒCOPY-FIN-ENV-POINTER™€€ک“ک“™R€™L€™Mک’ŒFIN-ENV-POINTER-POINTER™€€™O€ک“کگŒACCESSORکگŒ PREDICATE€€€œ™Wک–@أ™W™ک“ک“کŒOBJECT™J‌ک–"g ؟g ؟g ™D™ک“€کڈŒESTABLISH-SETFS-AND-OPTIMIZERSکڈŒESTABLISH-ACCESSORSکڈŒESTABLISH-PREDICATE™J™J™Jœ™Qک–#gµh¸h¹ƒa¸i¹`؛I”JHخ؟J™Q‚ےےےے™ک“ک“کڈŒ&KEYکگŒPOINTERک’ŒFIN-ENV-POINTERTYPE#™™lœ™Yک–3@¸@أ‘°igHgh b؟°ك`X@ةخ؟H™Y™ک“ک“کŒFIN-ENV-POINTERک•ŒCHECK-TYPE-FAIL$™o™J ™J™Jœک’ŒFIN-ENV-FIN™ک–@ةة™v™ک“ک“کŒFIN-ENV™Jœک’Œset fin-env-fin™ک–@gA ؟A™{™ک“ک“کŒFIN-ENVکŒ NEW-VALUE™Q™l‌ک–gg کŒDEFSETF FIN-ENV-FIN™ک“€کڈŒSET-SETF-INVERSE™{™vœک’ŒFINALIZE-FIN™ک–*j@تً³!@ةX²HةXأ™Hhخ؟h™‚…™ک“ک“کŒFIN™J™J ک•ŒCOMPILED-CLOSURE‌ک–g ںgg hکŒ1 top-level form™ک“€ک•Œ\SET.FINALIZATION.FUNCTIONکڈŒFBOUNDP™‚…™‚‰™‚…œک’ŒALLOCATE-FUNCALLABLE-INSTANCE-1™ک–4li ¸hH ¹HI ؟Ikد؟Ino ؟I™‚گ™ک“€,ک’Œ!SET-FUNCALLABLE-INSTANCE-FUNCTION™™{ک•ŒMAKE-COMPILED-CLOSURE™@%ک–کŒ)lambda in ALLOCATE-FUNCALLABLE-INSTANCE-1کگŒCLOSUREک“€™3!™‚‰œک’ŒFUNCALLABLE-INSTANCE-P™ک–@أڑj@تً‘hih™‚™™ک“ک“کŒX™‚‰œک’Œ definline-FUNCALLABLE-INSTANCE-P™ک–@¸oH™‚‍™ک“ک“کŒ$$WHOLEکŒ$$ENVکŒ$$CTXک“کڈŒLAMBDAک“ک’ŒX™ک“کڈŒBLOCK™‚™ک“کڈŒANDک“کڈŒTYPEP™‚¥ک“™ ™‚‰ک“ک•ŒFETCHک“ک’ŒCLOSURE-OVERLAY™™‚™ک•ŒOF™‚¥‌ک–2gggءةg'¸gH‘H†gHکŒ$XCL:DEFINLINE FUNCALLABLE-INSTANCE-P™ک“€,™,%™‚‍™‚‍ک’ŒOPTIMIZER-LISTک‘کŒCOMPILER™‚™™‚¹™‚™œ™‚’ک–‚ر@¸@أڑjHتً‘h‚i€h¢±®A ¢±کAأ²@ة¸AةY–I €j؛l` ص»I—JKَ‘h‚i€h²8K¼j½ML‎َ،° HMlضذMJ‎َکIMlضذة€h؟Mkش½°ف@A @A b؟b؟±ے[@A b؟b؟±ےKoA o@ ™‚’™ک“ک“کŒFINکŒNEW ‚ث™!‚؟™!‚«ک’ŒMAKE-TRAMPOLINE™‚›™‚؟‚“ک’ŒSET-COMPILED-CLOSURE-FNHEADER™‚ژک’ŒCOMPILED-CLOSURE-FNHEADER™OکڈŒLENGTH@ک•Œ\#BLOCKDATACELLSکڈŒ FUNCTIONPJ™ 6™‚‰-™‚‰%™‚‰™‚‰‚إکŒ ~S is not a funcallable-instance‚¹کŒ~S is not a function.œ™‚؟ک–nX@؟noH™‚؟™ک“ک“کŒFUNCTIONک–he#¹HةI کŒlambda in MAKE-TRAMPOLINE‚ےےےے™‚•ک“ک“کڈŒ&RESTکŒARGS کڈŒAPPLY ™‚‰ک•Œ \PTRHUNK2œک’Œ"expand-FUNCALLABLE-INSTANCE-DATA-1™ک–P@X¹H؛ggogIhggggJhooh™‚ش™ک“ک“کŒ$$MACRO-FORMکŒ$$MACRO-ENVIRONMENT3™/.™9)کڈŒ-$کڈŒ*™‚¯™‚¬ ک•Œ\GETBASEPTRDک“<ک“ک“™‚‰ک•ŒENVIRONMENT‌ک–&gg ؟ggoکŒ$DEFMACRO FUNCALLABLE-INSTANCE-DATA-1™ک“€ ™,™-™.ک’ŒFUNCALLABLE-INSTANCE-DATA-1™™‚ش™‚مک“کŒFINکŒDATAœک’Œ)FUNCALLABLE-INSTANCE-DATA-1-setf-expander™ک–‚چ@¸h¹h؛h»H¢I°»I”JK&؛„KhZ¹H¸°و¸@H¹؛H@JhI[¼K½ggogLhggggMhooJhI$™‚è™ک“ک“کŒACCESS-FORMکŒ$FUNCALLABLE-INSTANCE-DATA-1-setf-env,ک•ŒGENSYM™‚يj™/e™9`™‚ظ[™‚عP™‚¯F™‚¬Aک•Œ\RPLPTR{ک“sک“Kک“™‚‰™‚ق‌ک–gg کŒ#DEFSETF FUNCALLABLE-INSTANCE-DATA-1™ک“€کڈŒSET-SETF-METHOD-EXPANDER™‚è™‚مœک’Œexpand-FSC-INSTANCE-P™ک–@X¹gIh™‚÷™ک“ک“کŒ$$MACRO-FORMکŒ$$MACRO-ENVIRONMENT™‚™‌ک–&gg ؟ggoکŒDEFMACRO FSC-INSTANCE-P™ک“€ ™,™-™.ک’ŒFSC-INSTANCE-P™™‚÷™‚ےک“کŒFINœک’Œexpand-FSC-INSTANCE-CLASS™ک–@X¹ggIoh™‚™ک“ک“کŒ$$MACRO-FORMکŒ$$MACRO-ENVIRONMENT™‚مک’Œ WRAPPER-CLASS™ک“ک“™ ™‌ک–&gg ؟ggoکŒDEFMACRO FSC-INSTANCE-CLASS™ک“€ ™,™-™.ک’ŒFSC-INSTANCE-CLASS™™‚™‚ک“کŒFINœک’Œexpand-FSC-INSTANCE-WRAPPER™ک–@X¹gIo™‚™ک“ک“کŒ$$MACRO-FORMکŒ$$MACRO-ENVIRONMENT™‚مک“ک“™ ™‌ک–&gg ؟ggoکŒDEFMACRO FSC-INSTANCE-WRAPPER™ک“€ ™,™-™.ک’ŒFSC-INSTANCE-WRAPPER™™‚™‚ک“کŒFINœک’Œexpand-FSC-INSTANCE-SLOTS™ک–@X¹gIo™‚ ™ک“ک“کŒ$$MACRO-FORMکŒ$$MACRO-ENVIRONMENT™‚مک“ک“™ ™‌ک–&gg ؟ggoکŒDEFMACRO FSC-INSTANCE-SLOTS™ک“€ ™,™-™.ک’ŒFSC-INSTANCE-SLOTS™™‚ ™‚*ک“کŒFINœک’ŒALLOCATE-FUNCALLABLE-INSTANCE™ک–|¸AgR¹Hةlg`gg صkصlضذ@؟Hةlg`gg صkصlضذI؟Hک’Œ*SLOT-UNBOUND*™™‚.™ک“ک“کŒWRAPPERکŒNUMBER-OF-STATIC-SLOTSj™e™7™2™کڈŒ MAKE-ARRAY™‚گ`™"[™#V™ Q™H™‚‰-™"(™##™ ™™‚‰کگŒINITIAL-ELEMENTڑ‚7ےے