‘XCL Compiler output for source file {DSK}arunwelch>SKYDRIVE>DOCUMENTS>UNIX>LISP>CLOS>CURRENT>slots.lisp;1 Source file created Wednesday, 6 November 1991, 15:14:02. FASL file created Friday, 4 December 2020, 19:45:45. ÿ˜– o ˜Œ1 top-level form˜ŒFUNCTION˜“€˜Œ IN-PACKAGE˜ŒCLOSœ˜’Œ GET-WRAPPER˜‘˜ŒCLOS˜–8@Ó@É@¸@ÚjHÊð‘h‚i€hš@ÉÉo ™™˜“˜“˜ŒINST2˜ŒERROR#˜•ŒCOMPILED-CLOSURE™ ˜’Œ STD-INSTANCE™-˜ŒWhat kind of instance is this?œ˜’Œ GET-SLOTS™˜–8@Ó@É@¸@ÚjHÊð‘h‚i€hš@ÉÉo ™™˜“˜“˜ŒINST2™ #™ ™ ™-˜ŒWhat kind of instance is this?œ˜’Œ SET-WRAPPER™˜–l@Ö@AοA@¸@ÚjHÊð‘h‚i€h²=A¸@ɹlg`gg ÕkÕlÖºIJÐH¿Ho ™™˜“˜“˜ŒINST˜ŒNEWf™ L˜ŒPOSITIONG˜ŒSYMBOL-FUNCTIONB˜ŒEQ=˜ŒTEST8˜’ŒFUNCALLABLE-INSTANCE-DATA™3˜’ŒWRAPPER™)™ ™ ™a˜ŒWhat kind of instance is this?œ˜’Œ SET-SLOTS™˜–l@Ö@A¿A@¸@ÚjHÊð‘h‚i€h²=A¸@ɹlg`gg ÕkÕlÖºIJÐH¿Ho ™$™˜“˜“˜ŒINST˜ŒNEWf™ L™G™B™=™8™ 3˜’ŒSLOTS™)™ ™ ™a˜ŒWhat kind of instance is this?œ˜’Œexpand-GET-SLOT-VALUE-2™˜–x@X¹HZ»J\½L^_¿N_¿gggOOhhhggggWhhggKhIMhoh ˜’Œ*SLOT-UNBOUND*™™, ™˜“˜“˜Œ $$MACRO-FORM˜Œ$$MACRO-ENVIRONMENT [˜’Œ WRAPPER-CLASS™V˜’Œ SLOT-UNBOUND™H˜ŒQUOTEC˜’ŒVAL™>™9˜ŒIF'˜’Œ%SVREF™"™5˜ŒLETk˜“™5˜–&gg ¿ggo ˜ŒDEFMACRO GET-SLOT-VALUE-2™˜“€ ˜•ŒPUTPROP ˜•ŒSETF-MACRO-FUNCTION˜•ŒARGNAMES˜’ŒGET-SLOT-VALUE-2™™,™@˜“˜ŒINSTANCE˜ŒWRAPPER˜Œ SLOT-NAME˜ŒSLOTS˜ŒINDEXœ˜’Œexpand-SET-SLOT-VALUE-2™˜–.@X¹HZ[\]¾M_¿ggNOhIh™H™˜“˜“˜Œ $$MACRO-FORM˜Œ$$MACRO-ENVIRONMENT™7˜ŒSETF˜–&gg ¿ggo ˜ŒDEFMACRO SET-SLOT-VALUE-2™˜“€ ™= ™>™?˜’ŒSET-SLOT-VALUE-2™™H™Q˜“˜ŒNV˜ŒINSTANCE˜ŒWRAPPER˜Œ SLOT-NAME˜ŒSLOTS˜ŒINDEXœ˜’ŒGET-CLASS-SLOT-VALUE-1™˜–/BAl ¶X²HQð›Al ¶@B HAl ¶@Bg ™-™Z™˜“˜“˜ŒOBJECT˜ŒWRAPPER˜Œ SLOT-NAME)˜’Œ SLOT-MISSING™™3$˜’Œ SLOT-VALUE™œ˜’ŒSET-CLASS-SLOT-VALUE-1™˜–!CBl ¶X”H@Bl ¶ACg@ ™c™˜“˜“˜Œ NEW-VALUE˜ŒOBJECT˜ŒWRAPPER˜Œ SLOT-NAME™`™M˜–‚gghgihohhhno ¿gohigihohhhno ¿gghgihohhhno ˜Œ3 top-level forms™˜“€‚‡˜’ŒLOAD-DEFMETHOD™Y™m)™mj˜’Œ STD-CLASS™d˜’ŒFIND-SLOT-DEFINITION™_˜’ŒSTANDARD-METHOD™;™n/™p ™n˜’ŒCLASS-SLOT-VALUE™™p˜–?@Rð—Agð€h‘S@ ¦@ ¿@ ¸h¹H‘HhY Að‘IH¸°ë˜’Œ*THE-CLASS-STANDARD-CLASS*™˜’Œ!*THE-ESLOTD-STANDARD-CLASS-SLOTS*™˜Œlambda in 3 top-level forms˜ŒCLOSURE˜“˜“˜ŒCLASS˜Œ SLOT-NAME0˜’Œ SLOTD-NAME™ ˜’Œ CLASS-SLOTS™˜’ŒFINALIZE-INHERITANCE™˜’ŒCLASS-FINALIZED-P™™)s˜“˜’ŒCLASS™˜’Œ SLOT-NAME™Q˜–A ¸A ¹@IHB ˜Œlambda in 3 top-level forms™u˜“˜“˜ŒNV˜ŒCLASS˜Œ SLOT-NAME™c ˜’ŒCLASS-PROTOTYPE™˜’Œ CLASS-WRAPPER™E˜“˜’ŒNV™™™‚€4˜“™M™q!˜–@ ¸@ YHA ˜Œlambda in 3 top-level forms™u˜“˜“˜ŒCLASS˜Œ SLOT-NAME™Z ™‚ˆ™‚‰˜“™™‚€{™ M™ ™ œ™a˜–‚‚@ XWð²W@ ¹@ ºj»Il ¶¼h½L‘L‚h°½AMð‘K‰KkÔ^»L¼°é[²JK¶]gð›Il ¶@A M@IA HA Y˜H@I H@Ag ˜’Œ.*THE-CLASS-STANDARD-EFFECTIVE-SLOT-DEFINITION*™™a™˜“˜“˜ŒOBJECT˜Œ SLOT-NAME|™`n˜’ŒSLOT-VALUE-USING-CLASS™d™o\™ZQ™3™˜’ŒCHECK-WRAPPER-VALIDITY™˜’ŒCLASS-OF™w™aD˜’Œ..SLOT-UNBOUND..™œ˜’ŒSET-SLOT-VALUE™˜–o@ XWð²C@ ¹@ ºj»Il ¶¼h½L‘L‚h°½AMð‘K‰KkÔ^»L¼°é[”BJK·B@IA HA Y™BH@I H@Ag ™‚–™‚ ™˜“˜“˜ŒOBJECT˜Œ SLOT-NAME˜Œ NEW-VALUEi™`[˜’Œ SETF CLOS SLOT-VALUE-USING-CLASS™P™oH™c™™‚œ™‚d™Mœ˜’Œ SLOT-BOUNDP™˜–'@ XA Y˜H@I H@Ag ™‚¨™˜“˜“˜ŒOBJECT˜Œ SLOT-NAME!™`˜’ŒSLOT-BOUNDP-USING-CLASS™ ™o™‚™‚¨œ˜’ŒSLOT-MAKUNBOUND™˜–'@ XA Y˜H@I H@Ag ™‚¯™˜“˜“˜ŒOBJECT˜Œ SLOT-NAME!™`˜’ŒSLOT-MAKUNBOUND-USING-CLASS™ ™o™‚™‚¯œ˜’Œ SLOT-EXISTS-P™˜–@ XA Y˜H@I h™‚¶™˜“˜“˜ŒOBJECT˜Œ SLOT-NAME˜’ŒSLOT-EXISTS-P-USING-CLASS™ ™o™‚œ˜’ŒSLOT-VALUE-OR-DEFAULT™˜–8ekó”eló™ll ¿elÙjð¤la¸…o¸@A —@A H™‚½‚ÿÿÿÿ™˜“˜“˜ŒOBJECT˜Œ SLOT-NAME˜Œ &OPTIONAL˜ŒDEFAULT0™a(™‚¨˜’ŒARGUMENT-ERROR˜‘˜ŒSYSTEM ˜Œunbound˜–‚¡gghggghohhhno ¿gohiggghohhhno ¿gghggghohhhno ¿gghggghohhhno ¿gghggghohhhno ¿gghiiiihohhhno ¿gghiiihohhhno ¿gghghohhhno ˜Œ8 top-level forms™˜“€‚›™m‚o™m‚C™m‚™m‚Ý™m‚¥™mm™m3™m‚€˜’ŒSTANDARD-CLASS™‚z˜’ŒALLOCATE-INSTANCE™‚u™p‚N™3‚I™p‚ ™`‚™p‚ø˜’Œ"STANDARD-EFFECTIVE-SLOT-DEFINITION™‚ó˜’ŒSTANDARD-OBJECT™‚î™n‚虂»‚ã™p‚À™‚Í‚»™‚΂¶™n‚°™‚´‚«™p‚ˆ™‚Í‚ƒ™‚Î~™nx™‚­s™pO™‚ÍJ™‚ÎE™n9™p™‚Í™‚Î ™n™‚›™p‚“˜–8@ ¦@ ¿@ ¸Y@ gR ¿IYHοI™-˜Œlambda in 8 top-level forms™u˜“˜“˜ŒCLASS(˜Œ MAKE-ARRAY˜’ŒCLASS-NO-OF-INSTANCE-SLOTS™˜’Œ%%ALLOCATE-INSTANCE--CLASS™™‚‰ ™|™}"˜ŒINITIAL-ELEMENT‚‡˜“™˜Œ&REST˜’ŒINITARGS™‚g˜–oBA ˜Œlambda in 8 top-level forms™u˜“˜“˜ŒCLASS˜ŒINSTANCE˜Œ SLOT-NAME™ ˜Œ(The slot ~S is unbound in the object ~S.‚[˜“™˜’ŒINSTANCE™™‚€‚;˜–boCgð–o°GCgðhoD °1Cgð–o°"Cgð–o°hgCo BA ˜Œlambda in 8 top-level forms™u˜“˜“˜ŒCLASS˜ŒINSTANCE˜Œ SLOT-NAME˜Œ OPERATION™‚À˜Œ NEW-VALUE\™ U˜•Œ ECASE-FAIL$˜ŒFORMATJ˜’Œ OPERATION™;™‚¯,™‚¨™M™aP˜“™a™M™‚¨™‚¯B˜Œ'make the slot unbound (slot-makunbound)3˜Œ*test to see if slot is bound (slot-boundp)˜Œ/set the slot's value to ~S (setf of slot-value)˜Œ"read the slot's value (slot-value)˜ŒBWhen attempting to ~A,~%the slot ~S is missing from the object ~S.‚/˜“™™‚㙂€™‚À˜’Œ NEW-VALUE™‚ ˜–i˜Œlambda in 8 top-level forms™u˜“˜“˜ŒCLASS˜ŒOBJECT˜ŒSLOTD‚˜“™˜’ŒOBJECT™˜’ŒSLOTD™‚Õ˜–yA ¸A ¹B ºB [’K°3B¼j½Hl ¶¾h_¿N‘N‚h°_¿JOð‘MŠMkÔ_½N¾°å]L [—WIK·¿AJHl ¶\–LW¿A@AJg  ™-˜Œlambda in 8 top-level forms ™u˜“˜“˜ŒCLASS˜ŒOBJECT˜ŒSLOTDs™`M˜’ŒSETF CLOS SLOTD-INSTANCE-INDEX™˜’ŒSLOTD-INSTANCE-INDEX™™z ™™‚œn™‚¯‚ɘ“™™‚™‚‚˜–A ¸A ¹B ºB [’K°3B¼j½Hl ¶¾h_¿N‘N‚h°_¿JOð‘MŠMkÔ_½N¾°å]L [šIK¶Wð‘hiJHl ¶\™LWð‘hi@AJg  ™-˜Œlambda in 8 top-level forms ™u˜“˜“˜ŒCLASS˜ŒOBJECT˜ŒSLOTDy™`M™‚ ™‚ ™z ™™‚œt™‚¨‚‘˜“™™‚™‚e˜–cB ¸B ¹C ºC [’K°3C¼j½Hl ¶¾h_¿N‘N‚h°_¿JOð‘MŠMkÔ_½N¾°å]L [”@IK·@BHJ ˜Œlambda in 8 top-level forms ™u˜“˜“˜Œ NEW-VALUE˜ŒCLASS˜ŒOBJECT˜ŒSLOTD]™cM™‚ ™‚ ™z ™™‚œY˜“™‚÷™™‚™‚>˜“™M™‚›+˜–wA ¸A ¹B ºB [’K°3B¼j½Hl ¶¾h_¿N‘N‚h°_¿JOð‘MŠMkÔ_½N¾°å]L [²IK¶\gð›Hl ¶AJ LAHJ ˜Œlambda in 8 top-level forms ™u˜“˜“˜ŒCLASS˜ŒOBJECT˜ŒSLOTDq™Zf™3M™‚ ™‚ ™z ™™‚œY™‚ž˜“™™‚™‚‚™ ‚c™ ‚7™ ‚ ™ ‚Ñ™ ‚™™ a™ '™ š‚(ÿÿ