‘XCL Compiler output for source file {DSK}sources>DEFSTRUCT.;1 Source file created Monday, 4 January 1993, 18:06:34. FASL file created Sunday, 25 January 1998, 12:25:14. ÿ˜–#ogg o ˜•ŒFILECREATEDLOC˜Œ*STANDARD-INPUT*˜Œ1 top-level form˜ŒFUNCTION˜“€˜•ŒDEFINE-FILE-INFO˜ŒOPEN ˜ŒOUTPUT˜Œ DIRECTION˜“˜Œ READTABLE˜ŒXCL˜ŒPACKAGE˜ŒLISP˜Œ{Null}˜–!ggo ¿o˜Œ2 top-level forms™˜“€˜•ŒPUTPROP˜•Œ DEFSTRUCTCOMS˜•Œ FILEDATES˜•Œ DEFSTRUCT˜“,˜“˜•Œ*˜•Œ;;;˜ŒNImplementation of Structure facilities of Commmon Lisp. (Chapter 19 of CLtL).˜“™™˜Œpublic interface ˜“˜•Œ DEFINE-TYPES˜•Œ STRUCTURES˜“˜•Œ FUNCTIONS˜Œ DEFSTRUCT˜“™™˜Œ top-level ˜“˜•ŒDECLARE:˜•ŒDOCOPY˜•Œ DONTEVAL@LOAD˜“˜•ŒFILES˜•ŒDEFSTRUCT-RUN-TIME˜“™™˜Œ parsing code˜“ ˜•Œ VARIABLES˜Œ%DEFAULT-DEFSTRUCT-TYPE˜Œ%DEFAULT-SLOT-TYPE˜Œ%DEFAULT-STRUCTURE-INCLUDE˜Œ%DEFSTRUCT-OPTIONS˜Œ%NO-CONSTRUCTOR˜Œ %NO-PREDICATE˜Œ %NO-COPIER˜Œ%DEFSTRUCT-CONSP-OPTIONS˜Œ%DEFSTRUCT-EXPORT-OPTIONS˜“ ™˜ŒASSIGN-SLOT-ACCESSOR˜ŒREMOVE-DOCUMENTATION˜ŒRECORD-DOCUMENTATION˜ŒENSURE-VALID-TYPE˜Œ PARSE-SLOT˜ŒDEFSTRUCT-PARSE-OPTIONS˜ŒENSURE-CONSISTENT-PS˜ŒPS-NUMBER-OF-SLOTS˜ŒPS-TYPE-SPECIFIER˜“™™˜Œslot resolution code˜“™˜ŒASSIGN-SLOT-OFFSET˜Œ RESOLVE-SLOTS˜ŒINSERT-INCLUDED-SLOT˜Œ MERGE-SLOTS˜Œ NAME-SLOT˜Œ DUMMY-SLOT˜Œ OFFSET-SLOT˜“™™˜Œdata layout code˜“™˜ŒASSIGN-STRUCTURE-REPRESENTATION˜Œ COERCE-TYPE˜Œ%STRUCTURE-TYPE-TO-FIELDSPEC˜ŒASSIGN-FIELD-DESCRIPTORS˜ŒSTRUCTURE-POINTER-SLOTS˜“™™˜Œtype system hooks˜“ ™˜Œ PROCESS-TYPE˜ŒPREDICATE-BODY˜ŒTYPE-EXPAND-STRUCTURE˜ŒTYPE-EXPAND-NAMED-STRUCTURE˜ŒPS-NAME-SLOT-POSITION˜ŒDEFAULT-PREDICATE-NAME˜Œ$DEFSTRUCT-SHARED-PREDICATE-OPTIMIZER˜ŒCACHE-PREDICATE-INFO˜“™-˜Œ %FUNCTION-DEFINING-FORM-KEYWORDS˜“™™˜Œaccessors and setfs˜“™˜Œ SETF-NAME˜“™˜Œ ACCESSOR-BODY˜ŒPROCESS-ACCESSORS˜ŒESTABLISH-ACCESSORS˜ŒDEFINE-ACCESSORS˜Œ#DEFSTRUCT-SHARED-ACCESSOR-OPTIMIZER˜ŒDEFSTRUCT-SHARED-SETF-EXPANDER˜ŒCACHE-SLOT-INFO˜“ ™˜Œ%MAKE-ACCESSOR-CLOSURE˜Œ%MAKE-LIST-ACCESSOR˜Œ%MAKE-ARRAY-ACCESSOR˜Œ%MAKE-POINTER-ACCESSOR˜Œ%MAKE-BIT-ACCESSOR˜Œ%MAKE-FLAG-ACCESSOR˜Œ%MAKE-WORD-ACCESSOR˜Œ%MAKE-FIXP-ACCESSOR˜Œ%MAKE-SMALL-FIXP-ACCESSOR˜Œ%MAKE-FLOAT-ACCESSOR˜“™™˜Œconstructor definition code˜“ ™˜ŒDEFINE-CONSTRUCTORS˜ŒDEFINE-BOA-CONSTRUCTOR˜ŒARGUMENT-NAMES˜Œ BOA-ARG-LIST-WITH-INITIAL-VALUES˜ŒBOA-SLOT-SETFS˜Œ FIND-SLOT˜ŒRAW-CONSTRUCTOR˜ŒBUILD-CONSTRUCTOR-ARGLIST˜ŒBUILD-CONSTRUCTOR-SLOT-SETFS˜ŒBOA-CONSTRUCTOR-P˜ŒDEFAULT-CONSTRUCTOR-NAME˜“™™˜Œcopiers˜“™˜ŒDEFINE-COPIERS˜ŒBUILD-COPIER-SLOT-SETFS˜ŒBUILD-COPIER-TYPE-CHECK˜“™™˜Œprint functions˜“™-˜Œ%DEFAULT-PRINT-FUNCTION˜“™™˜Œinternal stuff.˜“˜•ŒSETFS˜•Œ FFETCHFIELD˜“™™˜Œ utilities˜“™˜ŒDEFSTRUCT-ASSERT-SUBTYPEP˜“™™˜Œinspecting structures˜“™˜ŒSTRUCTURE-OBJECT-P˜ŒINSPECT-STRUCTURE-OBJECT˜Œ STRUCTURE-OBJECT-INSPECT-FETCHFN˜Œ$STRUCTURE-OBJECT-INSPECT-PROPPRINTFN˜Œ STRUCTURE-OBJECT-INSPECT-STOREFN˜ŒSTRUCTURE-OBJECT-PROPCOMMANDFN˜“™˜•Œ;;˜ŒGDefined last so functions required to load a defstruct are loaded first˜“™˜ŒPS˜Œ PARSED-SLOT˜“™™‚¢˜ŒLMapping between names of generated functions and their associated structures˜“™˜ŒSTRUCTURE-FUNCTION-P˜ŒSTRUCTURE-FUNCTIONS˜“™™˜ŒEditing structures˜“™˜ŒSTRUCTURES.HASDEF˜ŒSTRUCTURES.EDITDEF˜“˜•ŒP˜“˜•Œ FILEPKGTYPE˜“˜ŒQUOTE™˜“™‚´˜•ŒHASDEF˜“™‚´™‚¯˜“™‚´˜•ŒEDITDEF˜“™‚´™‚°˜“˜•ŒADDVARS˜“˜•Œ SHADOW-TYPES˜“™˜•ŒFNS˜“™$™%™&˜“™‚¾˜“˜•Œ INSPECTMACROS˜”˜“˜•ŒFUNCTION™‚›™‚œ˜“™™˜Œfile properties˜“˜•ŒPROP˜•ŒFILETYPE™˜“™‚͘•ŒMAKEFILE-ENVIRONMENT™ ˜“˜”˜Œ 4-Jan-93 18:04:53•Œ.{DSK}lde>lispcore>sources>DEFSTRUCT.;2˜–‚"ggo ¿oRgg c¿oSgg c¿o ¿g X¦h¿g` ³0g`gggl2gl2  ¿Q¸gQ‘H†gHc¿ggg ¿ggg ¿ggg ¿ggg ¿ggg ˜•Œ FILEPKGTYPES˜•ŒPRETTYDEFMACROS˜•Œ PRETTYTYPELST˜Œ!XCL:DEF-DEFINE-TYPE IL:STRUCTURES™˜“€ ‚™‚™‚ò™‚Ý™‚È™‚˜ŒPUTHASH‚˜˜ŒMAKE-HASH-TABLEn˜•ŒGETHASHV˜ŒBOUNDPK˜ŒPROCLAIM>˜ŒADJOIN&™‚ᘕŒSET-DOCUMENTATION!‚˜•ŒNILL‚˜•ŒFILEPKGCONTENTS‚ ™‚˜’Œ%DEFINE-TYPE-FILEGETDEF˜‘˜ŒXEROX-COMMON-LISP‚ý˜•Œ FILEGETDEF‚ø™‚혒Œ%DEFINE-TYPE-PUTDEF™‚æ‚蘕ŒPUTDEF‚㙂ؘ’Œ%DEFINE-TYPE-DELDEF™‚æ‚Ó˜•ŒDELDEF‚Ι‚Ø’Œ%DEFINE-TYPE-GETDEF™‚悾˜•ŒGETDEF‚¹™‚¯™‚¥™‚˜Œ REHASH-SIZE‚‰˜ŒSIZE‚„˜ŒEQUAL˜ŒTESTz˜’Œ*DEFINITION-HASH-TABLE*™‚æu™i™‚ód™^˜•ŒCHANGEDSTRUCTURESLSTQ™‚ô9™‚ñ4™‚ò!™‚ñ™‚ò™™F˜“˜’ŒGLOBAL™‚時ô.˜“™‚ô™˜ŒCommon Lisp structures˜“™˜’ŒX™‚易™‚²™˜“˜’Œ%DEFINE-TYPE-FILE-DEFINITIONS™‚易™‚´™˜“™‚´™‚ù ™‚÷˜–Gggg ¿gggÁÉg'¸gH‘H†gH ˜ŒXCL:DEFDEFINER DEFSTRUCT™˜“€A™™ :™ 0™ )˜Œ DEFINED-BY ™™‚™ ™˜Œ DEFINER-FOR™ œ˜Œdefinition-expander-DEFSTRUCT˜–‚®@X¹HZ»I \K ]L ¿ggogggLhogLhhhL L L goggLhhhL L L  ™‚™˜“˜“˜Œ $$MACRO-FORM˜Œ$$MACRO-ENVIRONMENT ‚¦˜ŒAPPEND‚ ™‚ ‚›™:‚•™‚ˆ‚™zh™fb™V\™N™E™9 ™= |™‚´w˜ŒESTABLISH-SETFS-AND-OPTIMIZERSm˜Œ EVAL-WHENJ™‚´8™‚´3˜ŒPARSED-STRUCTURE.˜ŒSETF$™‚ ˜ŒPROGNr˜“˜ŒEVAL˜ŒCOMPILE˜ŒLOADC˜“)˜“™‚™‚™‚˜–ggg ™‚™˜“€™ ™‚˜ŒDEFINITION-EXPANDER™ œ˜Œname-fn-DEFSTRUCT˜–@X‘i€h’HH™‚™˜“˜“˜ŒWHOLE˜–ggg ™‚™˜“€™ ™‚˜ŒDEFINITION-NAME™ œ˜Œprototype-fn-DEFSTRUCT˜–@d3@ð²g@ooh™‚#™˜“˜“˜ŒNAME™ ˜“˜Œdocumentation string˜“˜Œ slot-name˜Œ initial-value˜“˜“˜Œ:option˜Œvalue˜–.ggg ¿oPgg c˜•ŒPRETTYPRINTMACROS™‚™˜“€&™‚ᘒŒADD-PROTOTYPE-FN™‚æ!™‚ñ™‚ò ™‚#™ ™˜”™ ’ŒPPRINT-DEFINER™‚朘Œexpand-DEFSTRUCT˜–ggg@Ah™‚6™˜“˜“˜Œ $$MACRO-FORM˜Œ$$MACRO-ENVIRONMENT ™ ™˜’ŒDEFINER™‚昖&gg ¿ggo ™‚™˜“€ ™ ˜•ŒSETF-MACRO-FUNCTION˜•ŒARGNAMES™ ™‚6™ ˜“˜Œ&WHOLE˜ŒXCL::DEFINITION˜Œ &ENVIRONMENT˜ŒXCL::ENV˜– o ˜Œ1 top-level form™˜“€˜•Œ FILESLOAD˜“™(˜–5o ¿g X§gc¿ggo ™.˜ŒDEFVAR %DEFAULT-DEFSTRUCT-TYPE™˜“€/™‚♂ߙ‚à%˜ŒVARIABLE ™.˜ŒDATATYPE ™.*˜Œ8The type of structures when no :type option is specified˜“˜ŒSPECIAL™.˜–1o ¿g X£ic¿ggo ™/˜ŒDEFVAR %DEFAULT-SLOT-TYPE™˜“€+™‚♂ߙ‚à!™‚M™/ ™/&˜Œ;the type of any slot which does not specifiy a :type option˜“™‚P™/˜–8gh ¿g¿o ¿ggo ˜Œ&DEFCONSTANT %DEFAULT-STRUCTURE-INCLUDE™˜“€2™‚â™‚à˜’Œ SET-CONSTANTP™‚æ(™‚M#™0™0 ˜ŒSTRUCTURE-OBJECT™0-˜Œ$datatype included by every structure˜“˜’ŒCONSTANT˜‘˜ŒSYSTEM™0˜–o ¿oc™1˜ŒDEFPARAMETER %DEFSTRUCT-OPTIONS™˜“€™‚à ˜“ ˜Œ CONC-NAME˜Œ CONSTRUCTOR˜ŒCOPIER˜Œ PREDICATE˜ŒINCLUDE˜ŒPRINT-FUNCTION˜ŒTYPE˜ŒINITIAL-OFFSET˜ŒNAMED˜ŒINLINE˜ŒFAST-ACCESSORS˜ŒTEMPLATE˜ŒEXPORT˜“™‚P™1˜–8gh ¿g¿o ¿ggo ˜ŒDEFCONSTANT %NO-CONSTRUCTOR™˜“€2™‚â™‚à™‚Z(™‚M#™2™2 ˜ŒNONE™2-˜Œ7the value which says that no constructor was specified.˜“™‚_™2˜–8gh ¿g¿o ¿ggo ˜ŒDEFCONSTANT %NO-PREDICATE™˜“€2™‚â™‚à™‚Z(™‚M#™3™3 ™‚v™3-˜Œ6the value which says that no constructor was specified˜“™‚_™3˜–#gh ¿g¿o ˜ŒDEFCONSTANT %NO-COPIER™˜“€™‚à™‚Z™4 ™‚v™4˜“™‚_™4˜–o ¿gP c™1™5˜Œ%DEFPARAMETER %DEFSTRUCT-CONSP-OPTIONS™˜“€˜ŒREMOVE™‚à ™‚l˜“™‚P™5˜–o ¿oc™6˜Œ&DEFPARAMETER %DEFSTRUCT-EXPORT-OPTIONS™˜“€™‚à ˜“˜ŒACCESSOR™‚e™‚g™‚f˜“™‚P™6œ™8˜–2@²(l@gA @ þ h™8™˜“˜“˜ŒSLOT˜Œ CONC-NAME*˜Œ%SET-NTH$˜ŒINTERN˜Œ CONCATENATE˜ŒSTRING™‚• ™‚•œ™9˜–AX œl@H ¿AA™9™˜“˜“˜ŒPS˜ŒSLOT-DESCRIPTIONS™‚’˜ŒSTRINGPœ™:˜–2l@ X²&ggg@hoHhhh™:™˜“˜“˜ŒPS˜ŒNTH™‚´˜Œ DOCUMENTATION ™‚!˜“˜“™‚´˜Œ STRUCTUREœ™;˜–@™;™˜“˜“˜Œ TYPE-FORMœ™<˜–‚ìejó”eló˜kl ¿ekÙjð¤la¸i¸@‘i€h‘@‚@h¹ºI»I\’L€h½L^_¿Kd3@ð™jJK ¿‹oK ¿kJM ¿O_¿O¡°lO_gð²lJO ¿°BOgð²lJO‘i€h ¿°%M œoI ¿ŽoOK ¿O_¿°“H™lJi ¿J™< ‚ÿÿÿÿ™˜“˜“˜Œ DESCRIPTION˜Œ &OPTIONAL˜ŒGENERATE-ACCESSOR ‚䙂’‚ϘŒERROR‚¿™‚¯‚³˜ŒKEYWORDP‚ª™‚’‚™‚’‚ˆ™;d™‚’[™‚¯N™‚’-˜ŒMAKE-PARSED-SLOT ˜’ŒARGUMENT-ERROR™‚^‚—˜Œ READ-ONLYy™‚j‚ƘŒ!Illegal slot option ~S in slot ~S‚¹˜Œ7Initial value must be specified to use slot options. ~SU˜ŒSlot name not symbol: ~Sœ™=˜–‚:@‘h€iX‘H…@‘i€h‘@‚@hX¹H¸I¹gIggI o ºH»h¼K‘K‚±å\‘h€i]‘M…L‘i€h¢±™L½L^’N€h_¿N‘i€h_¿N_¿Mgð²lJO’O„o ¿±Mgð²eO²NJgð²lJO’LOh ¿±[O’LOJ_¿lJO ¿±7O¢±1lJh ¿±$Mgð²O¢±l JO ¿±Mgð²O¢±øl JO ¿±êMgð²lJO ¿lJL ¿±ÇMgð²4O–O‘h‚i€h²l Jg ¿± O¢±šl JO ¿±ŒMgð²rlJOgð–g°VOgð²lJi ¿g°;O‘i€h™Ogð€h²lJO ¿g‹oO ¿±Mgð²1O3 ‘i€h˜jOó‘h‚i€h¬oO ¿l JO ¿±ÛMgð²O¢±ÌlJO ¿±¾Mgð²O¢±¯lJO ¿±¡Mgð²O¢±’lJO ¿±„Mgð²:O²ogOO ¿°^OœlJO ¿°NlJi ¿°BoL ¿°4Lgð›l Ji ¿° LWœoL ¿‹oL ¿K»±ýJ ¿J ™5™= ™˜“˜“˜Œ NAME&OPTIONS‚2™>‚%™‚¯‚™‚¯‚™‚’‚ñ™‚¯‚㙂’‚×™‚’‚Ç™‚¯‚¡™‚’‚„™‚’‚g™‚’‚J™‚’‚?™‚¯‚™‚’‚ ™‚¯‚ú™‚’‚õ˜•Œ%GET-CANONICAL-CML-TYPE‚Ì™‚’‚™™‚’‚…™‚’‚^™‚’‚R™‚’‚;™‚’‚™‚’‚™‚’‚’‚Ê™‚’‚•™‚’>˜ŒMAKE-PS9™‚”/™‚•‚ú™‚l‚¼™‚p‚«™‚p‚Ž™‚o‚q™‚n‚T™‚m‚™‚k‚˜ŒVECTOR‚䙂½‚Ò™‚½‚À™‚½‚·˜ŒLIST‚°™‚¾‚£™‚j‚€˜•Œ\PRINT-USING-ADDRESS‚h™‚i‚E™‚h‚(™‚g‚ ™‚f‚µ™‚v‚Ÿ™‚e™‚d)™‚•$™‚d˜ŒNAME‚˜ŒBad option to defstruct: ~S.‚˜Œ9defstruct option ~s must be in parentheses with its value‚똌Bad option to defstruct: ~S.‚·˜Œ7The specified export functions is not list or atom : ~S‚8˜Œ0:initial-offset isn't a non-negative integer: ~S‚˜Œ8the specified :type is not list or subtype of vector: ~S‚˜Œ4˜Œ-œ™>˜–‚u@¢±Œ@XV Y‘IŠoH ¹H@ðœoHH ¿I‘h€iZ‘J‡lI ›oH ¿I@ð‘h€iZ’J°I@ð‘h€ižo@H ¿l@ XiðŸl@o ¿°aH‘h€iY‘I†Hgð³OH‘i€h‘HŠl@Hh ¹hºh»h¼I¡°0I]o‘hoMo ¼J”KL&»„Lh[ºI¹°Ðl@ ¢±‚@Wð³o@ ¿@gð‘h€iX’H°>@gð‘h€iY’I°$l @ gð‘h€iZ‘J‹@šo h@² @Wð³Vo@ ¿°C@X²-l @HV Y‘IŠoH  ¿Šl @W ¿@gðšl @ ið€h²Pg@ X¹HºI³0J²o@ ¿°oo@ ¿@gð²8@gðX‘H‡l @ ²l @@ ¿‰l @h ¿l @ gð²'l @go@ ¿l@ X²UHiðY³OH‘h€iZ‘J…H‘i€h‘hl@HhX ‘h€iZ³*H»h¼K‘K‡h\]‘M°\W]«oL ¿K»°Þ@gð²l@@ h h˜Œ*PARSED-DEFSTRUCTS*™.™‚Ž ™6™>™˜“˜“˜ŒPS&‚m™‚’‚f™‚„‚C™‚¯‚™‚’‚ó™‚ ‚Ꙃ’‚噂“‚à™‚”‚Û™‚•‚¾™‚ ‚µ™‚’‚ª™‚’‚¥™[‚˜™‚ ‚l˜ŒCERROR‚S™‚¯‚5˜•Œ\MVLIST‚0˜ŒSUBTYPEP‚™‚ ‚™‚’‚÷™‚’‚療¯‚Ø™‚Þ‚À™‚¯‚”™‚¯‚o™‚ ‚3™‚¯‚™‚ ‚ú™‚¯‚Ó™‚’‚ª™‚’‚™™‚ ‚™‚¯W™‚¯K™‚ 9™‚¯&™‚¯™‚Þ ‚X™‚v‚Ι‚•‚Ù‚v‚‹™‚N‚}™‚v‚$˜ŒSYMBOL‚™‚½‚t™‚v‚]™‚v‚C™‚v‚¼˜ŒONLY‚=˜Œ*~S is not valid option keyword for :EXPORT‚Ó˜ŒCOPY-‚`˜ŒOPerhaps, vector of ~S cannot contain the symbol required for the :named options‚[˜ŒAssume subtypep should return t‚G˜ŒFvector of ~S cannot contain the symbol required for the :named options‚ᘌ~s is not a defined structure‚µ˜Œ=A print-function can't be specified for structures of type ~s‚˜ŒTTemplated defstructs may not have constructors predicates copiers or print functions‚(˜Œ+Templated defstructs may not be of type: ~s‚õ˜“™‚Š™‚g‚~s must be one of ~s.‚時Ü‚¥™‚Ü‚‡˜Œ-~s must be same type as included structure ~sQ˜Œ5Included structure ~s is unknown or not instantiated.2˜Œ)You probably don't want ~S to include ~S. ™‚Øœ™?˜–l@ ™?™˜“˜“˜ŒPS ˜ŒLENGTH™‚ ˜–ggo ˜ŒDEFUN PS-NUMBER-OF-SLOTS™˜“€™‚☌FUNCTION™? ˜Œ4the number of slots in an instance of this structureœ™@˜–K@Xgð•gHgð²@Yið•ggIhhoHo ™@™˜“˜“˜ŒPSE˜•Œ ECASE-FAIL/™‚½)™‚½™‚½™‚¾™‚¾@˜“™‚¾™‚½:˜“˜ŒPS-TYPE™‚¥˜–ggo ˜ŒDEFUN PS-TYPE-SPECIFIER™˜“€™‚♂é™@ ˜Œ%returns list, vector, or (vector foo)œ™D˜–Tl@ ¸@YgðZ‘J†Igð² jºH»K¡hlKJ ¿JkÔ¼K»Lº°èhoIo ™D™˜“˜“˜ŒPSN™‚ï1™‚’™‚ ™‚¾™‚½I˜“™‚½™‚¾C˜“™‚ñ™‚¥œ™E˜–‚ú@¸h¹hºh»H¢I°H »I”JK&º„KhZ¹H¸°ä¸lA ¹hºh»h¼I¢J°I ¼J”KL&»„Lh[ºI¹°ä¹Aºl A ²l A ªo ¿A H¸jl A ð³™<+™‚ ™<‚㘌The slot ~s is repeated in ~s.‚.˜Œ2Can't include slots when ~s includes no structure.‚Ý™‚Ør˜Œ&:named not supplied for this defstructœ™F—˜–‚°@Agno X¹H³o@B ¿I™@‘h‚i€h²o@B ¿@I Z»J¼K³7L²o@@I ¿°oo@@I ¿H@™F™˜“˜“˜ŒNEW-SLOT˜Œ SUPER-SLOTS˜ŒPS‚¦™‚΂‰™‚¯h™‚Ïc™‚ÐU™‚¯-™‚¯˜ŒMEMBER™‚ò‚–˜ŒMPerhaps, Included slot ~S's type ~s is not a subtype of original slot type ~s‚‘™‚Öz˜ŒDIncluded slot ~S's type ~s is not a subtype of original slot type ~sF˜ŒCincluded slot ~s must be read-only. It is in included structure ~S˜Œ5included slot ~S not present in included structure ~S˜•ŒCOMPILED-CLOSURE™‚ ˜–@A𘌠SAME-SLOT˜ŒCLOSURE˜“˜“˜ŒSLOT1˜ŒSLOT2œ™G˜–@¸h¹H‘H€ŽYAB ¿H¸°îA™G™˜“˜“˜ŒINCLUDED-SLOTS˜Œ SUPER-SLOTS˜ŒPS™Fœ™H˜–gg@hoh ™H™˜“˜“˜ŒPS™<™‚´˜’Œ--STRUCTURE-NAME-SLOT--™‚^˜“™‚³œ™I˜– oh ™I™˜“€™<˜“˜’Œ--STRUCTURE-DUMMY-SLOT--™‚^€™‚³™‚j˜•ŒXPOINTERœ™J˜–oh ™J™˜“€ ™<˜ŒGENSYM˜“€™‚³œ™N˜–‚7l@ ¸l@h ¿@YgðZ‘J†Igð˜@ ¿hIgð¢±÷Hºh»h¼h½J¢K°J^ ½K”LM&¼„Mh\»Jº°àº@²0l@W [’K°o@ €h[J ¼@½l@L ¿l@ ‘h€ML ^_¿N__¿@O ¿l@ ‘hggMhgLhgOhOg@_’O„ghhhh ™‚Ê™N ™˜“˜“˜ŒPS ‚噂 ‚Ü™Q‚Ș•ŒTRANSLATE.DATATYPE‚¾™‚ ‚µ™‚’‚§™‚ ‚ž™‚ ‚™™‚¯‚‚™‚ÞT™P.™D™‚’™‚  ‚#™‚[‚™‚´‚™‚´‚û™‚´‚ò™‚´‚혒Œ%STRUCTURE-DECLARE-DATATYPE™‚^7™‚N&™‚¾™‚½‚Œ™‚Øœ™O˜–‚L@‘i€h¢±‹@Xgðš@ló‘i@Hgð–@ Hgð–@ Hgð–@ Hgð²'l@ ð²no@ €h‘@i@ Yœ@I b¿±ÿsi@iðX’H°8@gðY’I°,@gðZ’J° @gð[’K°@gð\‘L†@gð‘@@gð‘i@gðX’H° @gðY’I°@gðZ‘J†@gð•g@gð‘i@gð•g@gð•o@ Xœ@H b¿±þºi™O™˜“˜“˜Œ ELEMENT-TYPE ‚?˜Œ TYPE-EXPAND‚6˜Œ TYPE-EXPANDER‚†™‚9}™‚:o˜•Œ %EVERY-SINGLEZ™‚åG˜•Œ%REDUCE-INTEGER8˜•Œ %REDUCE-MOD)˜•Œ%GET-ENCLOSING-SIGNED-BYTE‚(˜ŒBIT‚!˜Œ STRING-CHAR‚˜Œ CHARACTER‚˜ŒFIXNUM‚ ˜Œ SINGLE-FLOAT‚˜Œ DOUBLE-FLOAT‚÷˜Œ LONG-FLOAT‚똌 SHORT-FLOAT‚ߘŒFLOAT‚Õ˜•ŒPOINTER‚Ë™‚@‚À™‚C‚´˜•Œ FULLXPOINTER‚¨™‚)‚œ˜•Œ FULLPOINTERN™‚ ?˜ŒINTEGER0˜ŒMOD!˜Œ SIGNED-BYTE˜Œ UNSIGNED-BYTE‚/˜“™‚Nf˜–@iðX‘H@‘hi˜Œlambda in COERCE-TYPE™‚˜“˜“˜ŒELTb™‚œ™P˜–‚«@ X‘i€h²THYgð›gHhIgð²!HZlð•gJl ð•ggIgð•ggHiðY‘I†Hgð•gHgðY’I°HgðZ‘J†Hgð‘HHgð•gg™P™˜“˜“˜Œ ELEMENT-TYPE™O‚¥™‚H‚Ÿ˜•ŒFLOATP‚˜™‚C‚Ž™‚I‚ƒ™‚)w™‚Jp™‚Hi™‚@[™‚HU˜•ŒFLAGN™‚ G™‚HA˜•ŒFIXP6˜•Œ SIGNEDWORD&™‚M˜•ŒBITS™‚Nœ™Q˜–>@gðªo ¿A¸l@ ¹H¡hlIH ¿HºI¹J¸°è™Q™˜“˜“˜ŒPS˜ŒFIELD-DESCRIPTORS.™‚’™‚ ™‚¯™‚N˜Œ Not a structure of type datatypeœ™R˜–‚Ä@W X‘HŠo@ ¸lH Y‘IlHlH ºh»h¼h½J¢K°J½K”LM&¼„Mh\»Jº°äºh»h¼h½J¢K°_J^_gð_“O°'Ogð_“O°Ogð_’O‡Ogð“Nh€h½L”LM¿M»M‘i€h–M ¼Jº°   ™‚Ê™R ™˜“˜“˜ŒSTRUCTURE-NAME‚¾™‚’‚³˜ŒLAST+™‚ ™‚ ™‚¯™‚Þ‚•™‚I‚‡™‚)x™‚Ji™‚H ™‚Øœ™V˜–‚cl@ ‘h@¸@¹@Z›@g €h»l@ ¼JžLið]‘MˆgL€h–J ¿Igð²1gogggHhhohh°;l @ ²0gogggHhhohh€hJ¢±”l@ ½Igð²Mgð^’N°M‘i€h—gM‚h€h¾Mgð_¿N¬Jgh ¿O’h°gJoKhhN²&gogg@hhhh€h €h ™V™˜“˜“˜ŒPS ‚]™‚ ‚V™‚ ‚™‚Ι‚ ‚™‚ O˜ŒEXPORT5™‚ *™W™‚ ‚@™‚´‚;˜ŒESTABLISH-PREDICATE‚1™‚ ‚˜ŒDEFUN‚ ˜’ŒOPTIMIZER-LIST˜‘˜ŒCOMPILER‚ý™‚Ò‚ð™‚g‚Þ™‚Ò‚Õ™‚N‚«™‚´‚¦™‚:‚¡™‚‚—™‚ r™‚´m™‚:h™‚^™‚ V™‚ND™‚g%˜ŒOBJECT‚6˜“™‚™‚™‚‚!˜“™‚s‚·˜“˜“™‚´™Y‚œ˜“™‚™‚™‚~˜“˜“™‚´™Xc˜“™‚™‚™‚œ™W˜–‚·@¸@Ygð²gAg@hhl @ ®oH@ ¿ggAgIgð•g„ghhgIgð²g@ AhgA@ hg@hhh™W™˜“˜“˜ŒPS˜ŒARG‚š™Z‚ˆ™ZD™‚¯5™‚ ‚£™‚´‚“˜ŒAREF‚‚™‚ z™‚¾t˜ŒEQh™‚½b˜ŒCONS[™‚¾U™‚´O˜ŒTYPEPJ˜ŒAND"™‚´™‚„™‚N;˜ŒFThe predicate ~s may not be specified for ~s because it is not :name'dœ™X˜– g@h™X™˜“˜“˜Œ TYPE-FORM˜ŒDATATYPEœ™Y˜–,g@Q X‘H‹o@ h™‚Ê™Y™˜“˜“˜Œ TYPE-FORM™‚¯ ™‚Þ˜Œ SATISFIES™‚Øœ™Z˜–<@X² lHR Y‘IŠoH €h¹l @ I Ô™‚Ê™Z™˜“˜“˜ŒPS5™‚å/™‚ $™‚ ™‚¯™‚Þ™‚ؘ–ggo ˜ŒDEFUN PS-NAME-SLOT-POSITION™˜“€™‚♂é™Z ˜Œ+returns the offset of the name slot for ps.œ™[˜–g@ o þ™[™˜“˜“˜ŒSTRUCTURE-NAME™‚“™‚”™‚•™‚• ˜Œ-Pœ™\˜–5@¸@¹HS Z¦H ºJ²gIgJhhg˜Œ*DEFSTRUCT-INFO-CACHE*™\™˜“˜“˜ŒFORM™‚«˜Œ ENVIRONMENT˜ŒCONTEXT™] ™‚Þ/˜’ŒPASS™‚q!™‚´™‚„œ™]˜–@i Xš@QH h™‚Ÿ™]™˜“˜“˜Œ PREDICATE™‚ܘŒGET-PS-FROM-PREDICATE˜–8gh ¿o¿o ¿ggo ˜Œ,DEFCONSTANT %FUNCTION-DEFINING-FORM-KEYWORDS™˜“€2™‚â™‚à™‚Z(™‚M#™_™_™_-˜Œ>all the legal contexts for function-defining-form in defstruct˜“™‚_™_ ˜“™‚Š™‚f™‚g˜ŒBOA-CONSTRUCTOR™‚eœ™c˜–g@h ™c™˜“˜“˜Œ ACCESSOR-NAME ˜’ŒPACK™‚昌%%SETF-˜–ggo ˜ŒDEFUN SETF-NAME™˜“€™‚♂é™c ˜Œ8produces the name of the setf function for this accessorœ™e˜–qBgð²#C•g„gg@hAhBgð²g@AhBgð²gA@hhgBo ™e™˜“˜“˜ŒSLOT˜ŒARGUMENT˜ŒSTRUCTURE-TYPE™‚«˜Œ NO-TYPE-CHECKk™‚ï `˜ŒSTRUCTURE-TYPEN™‚F™‚½4™‚ ,™‚¾™‚´˜•Œ FETCHFIELD ™‚“™‚Nf˜“™‚N™‚¾™‚½œ™f˜–bl@ gð‘hP²gg@hhhgogg@hhhgo@ h˜’Œ*NEW-COMPILER-IS-EXPANDING*™‚q™f™˜“˜“˜ŒPSW™h™‚ L™‚ :™‚´5™g+™‚ ™‚´™g ™‚ÒQ˜“™‚0˜“™‚œ™g˜–‚•@W X‘HŠo@ X¹lH ºh»h¼h½J¡KJ^_¿lH _¿O²,Oið_’O‡gO—O ¿ONI €h½L”LM¿M»M‘i€h–M ¼Jº°› ™‚Ê™g ™˜“˜“˜ŒPS-NAME‚Š™‚hq˜•ŒSETF-SYMBOL-FUNCTIONl™mb™‚mA™‚ "™‚ ™‚¯™‚ÞW™‚Š ™‚Øœ™h˜–‚@¸@¹l@ ºh»h¼h½J¡KJ^_¿l@ _¿O²7Oið_’O‡gO—O ¿gOHhNHI hh€h½L”LM¿M»M‘i€h–M ¼Jº°™h ™˜“˜“˜ŒPS‚‚™‚hb™eO™‚m.™‚ ™‚ U™‚oD™‚Šœ™i˜–8@¸@¹HW Z¦H ºJ²J»J\½L¾MIKN g™‚Ÿ™i™˜“˜“˜ŒFORM™‚«˜Œ ENVIRONMENT˜ŒCONTEXT,™e™k ™‚Þ2™‚¥œ˜Œ%expand-DEFSTRUCT-SHARED-SETF-EXPANDER˜–‚@X¹HZ»J¼IW ]¦I ½M¾M__¿O_¿O_¿Ngð²"O•g„ggOhKLhNgð²ggOKhLhNgð²qKd3@ð_’O…K ²Ld3@ð_’O‡L €hžgLKOh_¿_¿gOKhOLhhgOOOhhhgNo  ™‚Ÿ™‚Ý ™˜“˜“˜Œ $$MACRO-FORM˜Œ$$MACRO-ENVIRONMENT‚ ™‚ï‚Ì™‚-‚Ä™‚-‚­˜Œ CONSTANTP‚š™‚â™k™‚Þ ‚þ˜ŒTYPE‚蘒ŒASET™‚æ‚Ô˜ŒLET‚µ™‚䂆™‚½s™‚ n™‚f™‚¾S™‚´N˜•Œ REPLACEFIELDH˜•Œ FREPLACEFIELD=™‚N‚˜“™‚N™‚¾™‚½˜–&gg ¿ggo ˜Œ7DEFINE-SHARED-SETF-MACRO DEFSTRUCT-SHARED-SETF-EXPANDER™˜“€ ™ ™‚>™‚?™j™‚Ý™j˜“˜ŒACCESSOR˜ŒDATUM˜Œ NEW-VALUEœ™k˜–4@ ¸lH ¹@RH@H I‘i€hh ™‚Ÿ™k™˜“˜“˜ŒACCESSOR.™‚Ü ˜Œ COPY-TREE˜ŒGET-SLOT-DESCRIPTOR-FROM-PS ™‚ ˜ŒGET-PS-FROM-ACCESSORœ™m˜–‚:@¸Agð¢±úH¹HZ»J\gð]’M°"Lgð^’N°Lgð_’O†Lgð—IK Lgð—IK Lgð—IK L½L^låkÔ_¿lONmüçÔÕ_¿Mgð²Olð—IK IKOO Mgð²Okð™IKO oH Mgð²Olð—IK oH hgMo Agð–H Agð–H hgAo ™m ™˜“˜“˜ŒSLOT˜ŒSTRUCTURE-TYPE ‚4™‚ï‚"™o‚™n‚™‚ï‚ò™‚¯‚æ™u‚Ï™‚¯‚Ùr‚«™q‚Ÿ™sm™t]™vM™p‚)™‚™‚½‚ ™‚¾‚ù˜Œ FIELD-TYPE‚Ö˜•Œ SIGNEDBITS‚²˜•ŒFLAGBITS‚™‚]d™‚[T™‚YD™‚I7™‚)+™‚J™‚H ™‚N‚/˜“™‚N™‚¾™‚½‚ÿ˜“™‚]™‚þ™‚ý‚옌Illegal field descriptor: ~s‚ɘŒIllegal field descriptor: ~sœ™n˜–nX@¿noH™n™˜“˜“˜ŒOFFSET˜– HÉ@ ˜Œlambda in %MAKE-LIST-ACCESSOR™‚˜“˜“˜ŒLIST™‚  ™‚˜•Œ \PTRHUNK2œ™o˜–nX@¿noH™o™˜“˜“˜ŒOFFSET˜–@Hɶ˜Œlambda in %MAKE-ARRAY-ACCESSOR™‚˜“˜“˜ŒVECTOR ™‚™‚ œ™p˜–/nX@A¿HÉžnoHnoH™p™˜“˜“˜ŒTYPE˜ŒOFFSET$˜– @HÉÐɘŒ lambda in %MAKE-POINTER-ACCESSOR™‚˜“˜“˜ŒOBJECT˜–"@HÉ —@HÉÐÉoHÉ@ ˜Œ lambda in %MAKE-POINTER-ACCESSOR™‚˜“˜“˜ŒOBJECT™‚¯˜•Œ \INSTANCE-P˜ŒArg not ~s: ~s ™‚™‚™‚ œ™q˜–5nX@ABC¿HÉžnoHnoH™q™˜“˜“˜ŒTYPE˜Œ WORD-OFFSET˜ŒOFFSET˜ŒSIZE*˜–HÉHÉ @HÉÐÈ ˜Œlambda in %MAKE-BIT-ACCESSOR™‚˜“˜“˜ŒOBJECT˜ŒLDB˜ŒBYTE˜–3@HÉ ²HÉHÉ @HÉÐÈ oHÉ@ ˜Œlambda in %MAKE-BIT-ACCESSOR™‚˜“˜“˜ŒOBJECT-™‚¯™‚2™‚3™‚$$˜ŒArg not ~s: ~s&™‚™‚˜•Œ \PTRHUNK4œ™r˜–2nX@AB¿HÉžnoHnoH™r™˜“˜“˜ŒTYPE˜Œ WORD-OFFSET˜ŒOFFSET'˜–jkHÉ @HÉÐÈ ð‘hi˜Œlambda in %MAKE-FLAG-ACCESSOR™‚˜“˜“˜ŒOBJECT™‚2™‚3˜–7@HÉ ²jkHÉ @HÉÐÈ ð‘hioHÉ@ ˜Œlambda in %MAKE-FLAG-ACCESSOR™‚˜“˜“˜ŒOBJECT1™‚¯™‚2™‚3™‚$(˜ŒArg not ~s: ~s#™‚™‚™‚;œ™s˜–/nX@A¿HÉžnoHnoH™s™˜“˜“˜ŒTYPE˜ŒOFFSET$˜– @HÉÐȘŒlambda in %MAKE-WORD-ACCESSOR™‚˜“˜“˜ŒOBJECT˜–"@HÉ —@HÉÐÈoHÉ@ ˜Œlambda in %MAKE-WORD-ACCESSOR™‚˜“˜“˜ŒOBJECT™‚¯™‚$˜ŒArg not ~s: ~s ™‚™‚™‚ œ™t˜–/nX@A¿HÉžnoHnoH™t™˜“˜“˜ŒTYPE˜ŒOFFSET$˜– @HÉ ˜Œlambda in %MAKE-FIXP-ACCESSOR™‚˜“˜“˜ŒOBJECT˜•Œ \GETBASEFIXP˜–$@HÉ ™@HÉ oHÉ@ ˜Œlambda in %MAKE-FIXP-ACCESSOR™‚˜“˜“˜ŒOBJECT™‚¯™‚f™‚$˜ŒArg not ~s: ~s ™‚™‚™‚ œ™u˜–/nX@A¿HÉžnoHnoH™u™˜“˜“˜ŒTYPE˜ŒOFFSET$˜–@HÉÐÈYnÿó”lIÑI˜Œ#lambda in %MAKE-SMALL-FIXP-ACCESSOR™‚˜“˜“˜ŒOBJECT˜–/@HÉ ²@HÉÐÈYnÿó”lIÑIoHÉ@ ˜Œ#lambda in %MAKE-SMALL-FIXP-ACCESSOR™‚˜“˜“˜ŒOBJECT)™‚¯™‚$ ˜ŒArg not ~s: ~s ™‚™‚™‚ œ™v˜–/nX@A¿HÉžnoHnoH™v™˜“˜“˜ŒTYPE˜ŒOFFSET$˜– @HÉ ˜Œlambda in %MAKE-FLOAT-ACCESSOR™‚˜“˜“˜ŒOBJECT˜•Œ\GETBASEFLOATP˜–$@HÉ ™@HÉ oHÉ@ ˜Œlambda in %MAKE-FLOAT-ACCESSOR™‚˜“˜“˜ŒOBJECT™‚¯™‚‡™‚$˜ŒArg not ~s: ~s ™‚™‚™‚ œ™z˜–‚"l@ ‘h@¸l@ ¹@ºg H »l@ \ið]‘M†gL–H ¿K²6H½h¾h_¿h_¿M¡NM_@ _¿N˜OO&_¿†Oh_¾M½°ÚI ½IM@ ¾h_¿h_¿H_¿h_¿O’O°o_ ™O@ °gOgOIHi Ohh°gOIHi Oh¾L”MN&½„Nh]¼K»±ÿs™‚‚ ™˜“˜“˜ŒSLOTS˜Œ ARGUMENT-LIST˜ŒPS‚†™ek™eJ™e|™‚a™‚W™‚°@™‚œ™‚ƒ˜–@‘ih™‚ƒ™˜“˜“˜Œ CONSTRUCTORœ™‚„˜–go@ þ™‚„™˜“˜“˜ŒSTRUCTURE-NAME™‚“™‚” ™‚•™‚•˜ŒMAKE-œ™‚ˆ˜–‚¸l@ ‘hl @ ¸@¹H¢±›@I Z»J¼l@ @IgL ½l@ ^ið_’O†gNl @ ¿gl @ IhKgg@ hhMgh h hh™‚ˆ™˜“˜“˜ŒPS ‚«™‚ ‚¢™‚ ‚™‚€|™‚ n™‚mi™‚ P™‚ G™‚‰4™‚ %™‚Ï ™‚Š™‚ ™‚ ‚›˜ŒNEW‚Š™‚Û‚…™‚åt™‚o^™‚f@™‚Ûœ™‚‰˜–=@¸h¹hºh»H¡IH¼gLCAi LBAi h»I”JK&º„KhZ¹H¸°Î™‚‰™˜“˜“˜ŒSLOTS˜ŒSTRUCTURE-TYPE˜Œ FROM-ARGUMENT˜Œ TO-ARGUMENT˜ŒTYPE-CHECK-SLOTS?"™e™e™‚˜–ggo ˜ŒDEFUN BUILD-COPIER-SLOT-SETFS™˜“€™‚♂陂‰ ˜Œ4constructs the forms that copy each individual slot.œ™‚Š˜–m@gð²gA@hhh$@²9g@Ahgho@ Ahhhh$hi$™‚Š™˜“˜“˜ŒPS˜ŒFROM-ARGR˜ŒFORMATD™‚¯0˜ŒOR˜Œ CHECK-TYPE™‚NJ˜ŒArg not ~s: ~~S˜–5o ¿g X§gc¿ggo ™‚Ž˜ŒDEFVAR %DEFAULT-PRINT-FUNCTION™˜“€/™‚♂ߙ‚à%™‚M ™‚Ž˜ŒDEFAULT-STRUCTURE-PRINTER ™‚Ž*˜Œ9print function used when none is specified in a defstruct˜“™‚P™‚Ž˜–gg ˜ŒDEFSETF IL:FFETCHFIELD™˜“€ ˜ŒSET-SETF-INVERSE™‚療“œ˜Œ expand-DEFSTRUCT-ASSERT-SUBTYPEP˜–‚ @X¹HZ»J\]¾M_¿L__¿N‘N„o_¿O’O„IKh_¿gogIKhgoggOOhigohoO OOo hh™‚ü ™˜“˜“˜Œ $$MACRO-FORM˜Œ$$MACRO-ENVIRONMENT‚Ž™‚ }™‚ík™‚Î\™‚¯W˜ŒCERTAIN?M˜ŒCONDB™‚Ð8˜ŒMULTIPLE-VALUE-BIND‚‰˜“v˜Œ Perhaps, ~ap™‚ÖR˜“˜ŒSUBTYPE?=˜“™‚™‚"˜Œ~S is not a subtype of ~S˜–&gg ¿ggo ˜Œ"DEFMACRO DEFSTRUCT-ASSERT-SUBTYPEP™˜“€ ™ ™‚>™‚?™‚—™‚ü™‚—˜“˜ŒTYPE1˜ŒTYPE2˜Œ(ERROR-STRING . ERROR-ARGS)™‚§˜ŒCERROR-ACTIONSœ™‚›˜–@Ù‚›™˜“˜“˜ŒOBJECT™‚[œ™‚œ˜–a@l@ R X‘Ho@ ggghhg@ o hBg ˜’Œ*PRINT-STRUCTURE*™‚時ʙ‚œ™˜“˜“˜Œ STRUCTURE˜Œ OBJECTTYPE˜ŒWHERE[˜•ŒINSPECTW.CREATEM™‚”C˜ŒPRINC-TO-STRING$™‚ ™‚¯˜ŒTYPE-OF ™‚Þ™‚U™‚ž=™‚•3™‚ .™‚Ÿ)™‚H˜Œ Inspector™‚ؘ–ggo ˜ŒDEFUN INSPECT-STRUCTURE-OBJECT™˜“€™‚♂陂œ ˜ŒEcalls the system facilities with the appropriate slots and functions.œ™‚˜–!Aš@kAA@ ™‚™˜“˜“˜ŒOBJECT˜ŒPROPERTY™‚Äœ™‚ž˜–@™‚ž™˜“˜“˜ŒPROPERTY˜ŒDATUMœ™‚Ÿ˜–CA²-gAg@hhgBhh A@B ™‚Ÿ™˜“˜“˜ŒOBJECT˜ŒPROPERTY˜ŒNEWVALUE=™‚æ/™‚"™‚´™‚´ ™‚œ™‚ ˜–$AÕ@€hšo @AB ™‚ ™˜“˜“˜ŒPROPERTY˜ŒDATUM˜ŒINSPECTOR-WINDOW˜•ŒDEFAULT.INSPECTW.PROPCOMMANDFN˜•Œ PROMPTPRINT™‚[˜ŒCan't set a read-only slot.˜–'gio ¿ggg ˜Œ DEFSTRUCT PS™˜“€!™ ˜ŒSET-PARSED-STRUCTURE™Y˜Œ TYPE-EXPANDER™‚¥™‚¥˜“™‚¥™‚¥™‚¼˜“™‚$˜ŒNAME˜ŒSTANDARD-CONSTRUCTOR˜ŒALL-SLOT-NAMES™‚㘌 VECTOR-TYPE˜ŒINCLUDE˜Œ CONC-NAME˜Œ CONSTRUCTORS˜Œ PREDICATE˜ŒPRINT-FUNCTION˜ŒCOPIER˜ŒNAMED˜ŒINITIAL-OFFSET˜Œ LOCAL-SLOTS˜Œ ALL-SLOTS˜ŒINCLUDED-SLOTS˜ŒDOCUMENTATION-STRING˜ŒFIELD-SPECIFIERS˜ŒPOINTER-DESCRIPTORS˜ŒINLINE˜ŒFAST-ACCESSORS˜ŒTEMPLATE™‚m™‚¾€€˜ŒPS-˜“™‚¼˜ŒPS-P™‚ô˜ŒCOPY-PS€˜“˜“™‚$˜“™‚´™‚¥€˜“™‚C€€˜ŒPS-NAME˜“™‚D€€˜ŒPS-STANDARD-CONSTRUCTOR˜“™‚E€€˜ŒPS-ALL-SLOT-NAMES˜“™‚ã™.€™‚ñ˜“™‚F€€˜ŒPS-VECTOR-TYPE˜“™‚G€€˜Œ PS-INCLUDE˜“™‚H€€˜Œ PS-CONC-NAME˜“™‚I™2€˜ŒPS-CONSTRUCTORS˜“™‚J™3€ ˜Œ PS-PREDICATE˜“™‚K€€ ˜ŒPS-PRINT-FUNCTION˜“™‚L™4€ ˜Œ PS-COPIER˜“™‚M€€ ˜ŒPS-NAMED˜“™‚N€ ˜ŒPS-INITIAL-OFFSET˜“™‚O€€˜ŒPS-LOCAL-SLOTS˜“™‚P€€˜Œ PS-ALL-SLOTS˜“™‚Q€€˜ŒPS-INCLUDED-SLOTS˜“™‚R€€˜ŒPS-DOCUMENTATION-STRING˜“™‚S€€˜ŒPS-FIELD-SPECIFIERS˜“™‚T€€˜ŒPS-POINTER-DESCRIPTORS˜“™‚U€˜Œ PS-INLINE˜“™‚V€€˜ŒPS-FAST-ACCESSORS˜“™‚W€€˜Œ PS-TEMPLATE˜“™‚m€€˜Œ PS-EXPORT€€€€˜“™‚Š™‚g€€€œ™‚[˜–@Ø@gðh™‚[™˜“˜“˜ŒOBJECT ™‚¥˜•ŒLISTP˜–g ¿g ™‚?™˜“€™‚ ™g ™‚¥™‚¥œ™‚¼˜–‚rgµh¸h¹ƒa¸i¹gµhºh»ƒaºi»gµh¼h½ƒa¼i½gµWR¾a¾gµ h_¿h_¿‡a_¿i_¿gµ h_¿h_¿‡a_¿i_¿gµ h_¿h_¿‡a_¿i_¿gµ g_¿ƒa_¿gµ g_¿ƒa_¿gµ h_¿h_ ¿‡a_¿i_ ¿gµ g_"¿ƒa_"¿gµ h_$¿h_&¿‡a_$¿i_&¿gµj_(¿ƒa_(¿gµ h_*¿h_,¿‡a_*¿i_,¿gµ h_.¿h_0¿‡a_.¿i_0¿gµ h_2¿h_4¿‡a_2¿i_4¿gµ h_6¿h_8¿‡a_6¿i_8¿gµ h_:¿h_<¿‡a_:¿i_<¿gµ h_>¿h_@¿‡a_>¿i_@¿gµi_B¿ƒa_B¿gµ h_D¿h_F¿‡a_D¿i_F¿gµ h_H¿h_J¿‡a_H¿i_J¿gµ h_L¿h_N¿‡a_L¿i_N¿l _P¿jOPg ¿I™kOPH ¿KšlOPJ ¿MšlOPL ¿lOPN ¿O›lOPO ¿O›lOPO ¿O›lOPO ¿lOPO ¿l OPO ¿O ›l OPO ¿l OPO" ¿O&›l OPO$ ¿l OPO( ¿O,›lOPO* ¿O0›lOPO. ¿O4›lOPO2 ¿O8›lOPO6 ¿O<›lOPO: ¿O@›lOPO> ¿lOPOB ¿OF›lOPOD ¿OJ›lOPOH ¿ON›lOPOL ¿OP)™.™‚¼)‚ÿÿÿÿ™˜“˜“™‚”™‚À˜ŒSTANDARD-CONSTRUCTOR˜ŒALL-SLOT-NAMES™‚j˜Œ VECTOR-TYPE™‚h™‚d˜Œ CONSTRUCTORS™‚g™‚i™‚f™‚l™‚k˜Œ LOCAL-SLOTS˜Œ ALL-SLOTS˜ŒINCLUDED-SLOTS˜ŒDOCUMENTATION-STRING˜ŒFIELD-SPECIFIERS˜ŒPOINTER-DESCRIPTORS™‚m™‚n™‚o™‚p‚i™‚’‚Z™‚’‚K™‚’‚<™‚’‚0™‚’‚!™‚’‚™‚’‚™‚’‚ô™‚’‚噂’‚Ö™‚’‚Ê™‚’‚»™‚’‚¯™‚’‚ ™‚’‚”™‚’‚ˆ™‚’‚y™‚’‚j™‚’‚[™‚’‚P™‚’‚C™‚’‚6™‚’‚*™‚’‚™‚¾‚%™‚¥‚þ™‚p‚䙂o‚Ê™‚n‚¸™‚m‚ž™‚ ‚„™‚Ÿ‚j™‚ž‚P™‚‚6™‚œ‚™‚›‚ ™‚k‚ð™‚l‚㙂v‚Ú™‚f‚À™‚i‚³™‚v‚ª™‚g‚™‚v‚”™‚šz™‚d`™‚hF™‚™7™‚j%™‚˜™‚—™‚Àœ™‚\˜–‚ª@ X«o@ ¿l ¸jH@ ¿kH@ ¿lH@ ¿lH@ ¿lH@ ¿lH@ ¿lH@ ¿lH@ ¿lH@ ¿l H@ ¿l H@ ¿l Hl @ ¿l Hl @ ¿l Hl @ ¿lHl@ ¿lHl@ ¿lHl@ ¿lHl@ ¿lHl@ ¿lHl@ ¿lHl@ ¿lHl@ ¿lHl@ ¿lHl@ ¿H™‚\™˜“˜“˜ŒPS(‚¢™‚’‚™‚ ‚‘™‚’‚Œ™‚ ‚€™‚’‚{™‚ ‚o™‚’‚j™‚ ‚^™‚’‚Y™‚ ‚M™‚’‚H™‚ ‚<™‚’‚7™‚ ‚+™‚’‚&™‚ ‚™‚’‚™‚ ‚ ™‚’‚™‚ ‚ø™‚’‚ó™‚ ‚療’‚♂ ‚Ö™‚’‚Ñ™‚ ‚Å™‚’‚°™‚’‚œ™‚’‚‰™‚’w™‚’f™‚’V™‚’G™‚’9™‚’,™‚’!™‚’™‚¾™‚¯™‚[ ˜ŒArg not PS: ~S˜–(gio ¿g ¿g ˜ŒDEFSTRUCT PARSED-SLOT™˜“€"™‚ ™g ™‚A™‚¦™‚¦™‚¦˜“™‚¥™‚¦™‚±˜“™‚C˜Œ INITIAL-VALUE™‚㘌 READ-ONLY˜ŒFIELD-DESCRIPTOR˜ŒACCESSOR™‚¾€€˜ŒPSLOT-˜“™‚±€™‚ô™‚€€˜“˜“™‚C€™‚Ñ€˜Œ PSLOT-NAME˜“™‚«€€˜ŒPSLOT-INITIAL-VALUE˜“™‚ã™/€˜Œ PSLOT-TYPE˜“™‚¬€€˜ŒPSLOT-READ-ONLY˜“™‚­€€˜ŒPSLOT-FIELD-DESCRIPTOR˜“™‚®€€˜ŒPSLOT-ACCESSOR€˜Œ&describes a single slot in a structure€€™‚€€€œ™‚±˜–‚Õgµh¸h¹ƒa¸i¹gµhºh»ƒaºi»gµW¼a¼gµh½h¾ƒa½i¾gµ h_¿h_¿‡a_¿i_¿gµ h_¿h_¿‡a_¿i_¿l _¿I™jOH ¿K™kOJ ¿lOL ¿NšlOM ¿O›lOO ¿O›lOO ¿O ™/™‚± ‚ÿÿÿÿ™˜“˜“™‚”™‚À˜Œ INITIAL-VALUE™‚j™‚³˜ŒFIELD-DESCRIPTOR™‚Š‚Ì™‚’‚½™‚’‚®™‚’‚¡™‚’‚–™‚’‚Š™‚’|™‚¾`™‚ŠF™‚Ã4™‚³%™‚j™‚™‚Àœ™‚˜–Zl ¸jH@ ¿kH@ ¿lH@ ¿lH@ ¿lH@ ¿lH@ ¿H™‚™˜“˜“˜Œ PARSED-SLOTR™‚’B™‚’3™‚’%™‚’™‚’ ™‚’™‚¾˜–ggo ™‚©™˜“€™‚♂¢™‚¦ ™‚¿œ™‚ª˜–)nZ@¿g¹n[»noJT ˜’Œ*CATCH-RETURN-PC*™‚^˜’Œ*CATCH-RETURN-TO*™‚^™‚Ê™‚ª™˜“˜“˜ŒSYMBOL#˜ŒMAPHASH ˜ŒFOUND˜–‚ƒA‘i€hžHÉA€hY’I°PHÉAðZ’J°