‘XCL Compiler output for source file {DSK}export>lispcore>sources>CLTL2>DEFSTRUCT.;1 Source file created Friday, 22 October 1993, 15:13:59. FASL file created Thursday, 4 November 1993, 11:50:37. ÿ˜–#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˜ŒSET-XP-PRINTER˜“™™˜Œ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™ ˜“˜”˜Œ 8-Jan-92 09:59:20•Œ1{DSK}local>lde>lispcore>sources>DEFSTRUCT.;7˜–‚"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 L  ™‚™˜“˜“˜Œ $$MACRO-FORM˜Œ$$MACRO-ENVIRONMENT ‚¬˜ŒAPPEND‚¦™‚ ‚¡™A‚›™:‚•™‚‰‚™{h™gb™W\™O™F™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™‚7™˜“˜“˜Œ $$MACRO-FORM˜Œ$$MACRO-ENVIRONMENT ™ ™˜’ŒDEFINER™‚瘖&gg ¿ggo ™‚™˜“€ ™ ˜•ŒSETF-MACRO-FUNCTION˜•ŒARGNAMES™ ™‚7™ ˜“˜Œ&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™˜“€+™‚ã™‚à™‚á!™‚N™/ ™/&˜Œ;the type of any slot which does not specifiy a :type option˜“™‚Q™/˜–8gh ¿g¿o ¿ggo ˜Œ&DEFCONSTANT %DEFAULT-STRUCTURE-INCLUDE™˜“€2™‚㙂ᘒŒ SET-CONSTANTP™‚ç(™‚N#™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˜“™‚Q™1˜–8gh ¿g¿o ¿ggo ˜ŒDEFCONSTANT %NO-CONSTRUCTOR™˜“€2™‚㙂ᙂ[(™‚N#™2™2 ˜ŒNONE™2-˜Œ7the value which says that no constructor was specified.˜“™‚`™2˜–8gh ¿g¿o ¿ggo ˜ŒDEFCONSTANT %NO-PREDICATE™˜“€2™‚㙂ᙂ[(™‚N#™3™3 ™‚w™3-˜Œ6the value which says that no constructor was specified˜“™‚`™3˜–#gh ¿g¿o ˜ŒDEFCONSTANT %NO-COPIER™˜“€™‚ᙂ[™4 ™‚w™4˜“™‚`™4˜–o ¿gP c™1™5˜Œ%DEFPARAMETER %DEFSTRUCT-CONSP-OPTIONS™˜“€˜ŒREMOVE™‚á ™‚m˜“™‚Q™5˜–o ¿oc™6˜Œ&DEFPARAMETER %DEFSTRUCT-EXPORT-OPTIONS™˜“€™‚á ˜“˜ŒACCESSOR™‚f™‚h™‚g˜“™‚Q™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™‚k‚ƘŒ!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¢±n¾L½L_“O€hNý¿O‘i€h_¿O_¿Mgð²lJNÉ“NÉ„o ¿±ÈMgð²hNɲPJgð²lJO’L‚NÉh ¿±‘O’L‚NÉJ_¿lJO ¿±lO¢±flJh ¿±YMgð²O¢±Jl JNÉ ¿±;Mgð²O¢±,l JNÉ ¿±Mgð²JnoNo ²ooNÉ ¿lJNÉ ¿lJL ¿±ÌMgð²lJNÉ ¿lJL ¿±¨Mgð²AO—NÉ‘h‚i€h²l Jg ¿±€Ožl JNÉ ¿±nl JW ¿±`Mgð²xlJNÉgð–g°[NÉgð²lJi ¿g°?NÉ‘i€hšNÉgð€h²lJNÉ ¿gŒoNÉ ¿±áMgð²5NÉ3 ‘i€h™jNÉó‘h‚i€h­oNÉ ¿l JNÉ ¿±¥Mgð²O¢±–lJNÉ ¿±‡Mgð²O²ylJNÉ ¿°kMgð²O²^lJNÉ ¿°PMgð²;O²ogNÉO ¿°*OlJNÉ ¿°lJi ¿‹oL ¿°4Lgð›l Ji ¿° LWœoL ¿‹oL ¿K»±ü¡J ¿J ™‚ ™5™= ™˜“˜“˜Œ NAME&OPTIONS$‚«™>‚ž™‚°‚‘™‚°‚~™‚“‚j™‚°‚]™‚“‚Q™‚“‚@™‚°‚™‚“‚ÿ™‚“‚㙂“‚Å™‚“‚¹™‚°‚‰™‚“‚„™‚°‚p™‚“‚k˜•Œ%GET-CANONICAL-CML-TYPE‚?™‚“‚ ™‚“‚ü™‚“‚Ꙃ“‚™‚“‚¶™‚“‚ž™‚“‚’™‚“‚†˜ŒCERROR‚r˜•Œ %SOME-SINGLE‚M™‚“‚/™‚“‚™‚“‚þ™‚“‚Ù™‚“‚¢™‚“>˜ŒMAKE-PS9™‚•/™‚–‚s™‚m‚4™‚q‚#™‚q‚™‚p‚홂o‚Ï™‚n‚“™‚l‚v˜ŒVECTOR‚Y™‚À‚E™‚À‚3™‚À‚)˜ŒLIST‚"™‚Á‚™‚k‚嘕Œ\PRINT-USING-ADDRESS‚Ì™‚j‚¨˜ŒSYSTEM-INCLUDE‚W™‚i‚9™‚h‚™‚g‚Ù‚w‚¬™‚f‚Š™‚e)™‚–$™‚e˜ŒNAME ‚˜˜ŒBad option to defstruct: ~S.‚‹˜Œ9defstruct option ~s must be in parentheses with its value‚d˜ŒBad option to defstruct: ~S.‚/˜Œ7The specified export functions is not list or atom : ~S‚±˜Œ0:initial-offset isn't a non-negative integer: ~S‚|˜Œ8the specified :type is not list or subtype of vector: ~S‚~˜Œ0~a is a standard type and shouldn't be :INCLUDEd‚y˜ŒInclude it anyway‚m˜“ ˜ŒCONS˜ŒSYMBOL˜ŒARRAY˜ŒNUMBER˜Œ CHARACTER˜Œ HASH-TABLE˜Œ READTABLE˜ŒPACKAGE˜ŒPATHNAME˜ŒSTREAM˜Œ RANDOM-STATE‚c˜– HÉ@ ˜Œ!lambda in DEFSTRUCT-PARSE-OPTIONS˜ŒCLOSURE˜“˜“˜ŒX˜ŒSUBTYPEP‚˜Œ4˜Œ-‚_˜•ŒCOMPILED-CLOSUREc˜•Œ \PTRHUNK2œ™>˜–‚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™‚½‚S™‚°‚5˜•Œ\MVLIST‚0™‚Þ‚™‚¡‚™‚“‚÷™‚“‚療°‚Ø™‚ß‚À™‚°‚”™‚°‚o™‚¡‚3™‚°‚™‚¡‚ú™‚°‚Ó™‚“‚ª™‚“‚™™‚¡‚™‚°W™‚°K™‚¡9™‚°&™‚°™‚ß ‚X™‚w‚Ι‚–‚Ù‚w‚‹™‚O‚}™‚w‚$™‚΂™‚À‚t™‚w‚]™‚w‚C™‚w‚¼˜Œ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‚õ˜“™‚‹™‚h‚~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 ˜Œ1 top-level form™˜“€™‚㘌FUNCTION™? ˜Œ4the number of slots in an instance of this structureœ™@˜–K@Xgð•gHgð²@Yið•ggIhhoHo ™@™˜“˜“˜ŒPSE˜•Œ ECASE-FAIL/™‚À)™‚À™‚À™‚Á™‚Á@˜“™‚Á™‚À:˜“˜ŒPS-TYPE™‚¦˜–ggo ˜Œ1 top-level form™˜“€™‚㙂™@ ˜Œ%returns list, vector, or (vector foo)œ™A˜–‚@¸gggHho@Wð¢±Ù@Wð¢±Æ@ ¹l@ ºh»h¼h½J¢K°!J^‘i€h’N€N½K”LM&¼„Mh\»Jº°ÞºggogggHhJ»h¼h½h¾K¢L°HK_ gIO oh¾M”MN¿N¼N‘i€h–N ½K»°·hhŠg„ohh™‚ ™.™A™˜“˜“˜ŒPS‚옌LAST‚Ì™‚”‚Ç™‚•‚™‚–‚µ™‚–Q™‚¡H™‚– ‚™‚w‚º™‚–‚›™‚µ‚–˜ŒXP‚‘˜ŒSTRUCTURE-WITH-DEFAULT-PRINTER‚‡˜ŒLAMBDA‚‚™‚™‚µ ˜ŒGET™‚‚˜“™‚µ˜ŒSTRUCTURE-WITH-USER-PRINTER‚ј“˜ŒOBJ‚Œ˜“™‚™‚˜“˜“™‚µ˜ŒSTRUCTURE-PRINTERœ™E˜–Tl@ ¸@YgðZ‘J†Igð² jºH»K¡hlKJ ¿JkÔ¼K»Lº°èhoIo ™E™˜“˜“˜ŒPSN™‚1™‚“™‚¡™‚Á™‚ÀI˜“™‚À™‚ÁC˜“™‚ ™‚¦œ™F˜–‚ @¸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 ð³™<+™‚¡™<‚嘌STRING=‚à™‚ó‚ö˜ŒThe slot ~s is repeated in ~s.‚.˜Œ2Can't include slots when ~s includes no structure.‚Ý™‚ðr˜Œ&:named not supplied for this defstructœ™G—˜–‚°@Agno X¹H³o@B ¿I™@‘h‚i€h²o@B ¿@I Z»J¼K³7L²o@@I ¿°oo@@I ¿H@™G™˜“˜“˜ŒNEW-SLOT˜Œ SUPER-SLOTS˜ŒPS‚¦™‚½‚‰™‚°h™‚éc™‚ÞU™‚°-™‚°™‚+™‚ó‚–˜Œ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™‚♂= ˜–@A𘌠SAME-SLOT™‚Ú˜“˜“˜ŒSLOT1˜ŒSLOT2œ™H˜–@¸h¹H‘H€ŽYAB ¿H¸°îA™H™˜“˜“˜ŒINCLUDED-SLOTS˜Œ SUPER-SLOTS˜ŒPS™Gœ™I˜–gg@hoh ™I™˜“˜“˜ŒPS™<™‚µ˜’Œ--STRUCTURE-NAME-SLOT--™‚_˜“™‚´œ™J˜– oh ™J™˜“€™<˜“˜’Œ--STRUCTURE-DUMMY-SLOT--™‚_€™‚´™‚k˜•ŒXPOINTERœ™K˜–oh ™K™˜“€ ™<˜ŒGENSYM˜“€™‚´œ™O˜–‚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 ™‚å™O ™˜“˜“˜ŒPS ‚噂¡‚Ü™R‚Ș•ŒTRANSLATE.DATATYPE‚¾™‚¡‚µ™‚“‚§™‚ ‚ž™‚¡‚™™‚°‚‚™‚ßT™Q.™E™‚“™‚¡ ‚#™‚\‚™‚µ‚™‚µ‚û™‚µ‚ò™‚µ‚혒Œ%STRUCTURE-DECLARE-DATATYPE™‚_7™‚O&™‚Á™‚À‚Œ™‚ðœ™P˜–‚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™P™˜“˜“˜Œ ELEMENT-TYPE ‚?˜Œ TYPE-EXPAND‚6˜Œ TYPE-EXPANDER‚†™‚b}™‚co˜•Œ %EVERY-SINGLEZ™‚ýG˜•Œ%REDUCE-INTEGER8˜•Œ %REDUCE-MOD)˜•Œ%GET-ENCLOSING-SIGNED-BYTE‚(˜ŒBIT‚!˜Œ STRING-CHAR‚™‚Ñ‚˜ŒFIXNUM‚ ˜Œ SINGLE-FLOAT‚˜Œ DOUBLE-FLOAT‚÷˜Œ LONG-FLOAT‚똌 SHORT-FLOAT‚ߘŒFLOAT‚Õ˜•ŒPOINTER‚Ë™‚i‚À™‚k‚´˜•Œ FULLXPOINTER‚¨™‚R‚œ˜•Œ FULLPOINTERN™‚+?˜ŒINTEGER0˜ŒMOD!˜Œ SIGNED-BYTE˜Œ UNSIGNED-BYTE‚/˜“™‚vf˜–@iðX‘H@‘hi˜Œlambda in COERCE-TYPE™‚Ú˜“˜“˜ŒELTb™‚✙Q˜–‚«@ X‘i€h²THYgð›gHhIgð²!HZlð•gJl ð•ggIgð•ggHiðY‘I†Hgð•gHgðY’I°HgðZ‘J†Hgð‘HHgð•gg™Q™˜“˜“˜Œ ELEMENT-TYPE™P‚¥™‚p‚Ÿ˜•ŒFLOATP‚˜™‚k‚Ž™‚q‚ƒ™‚Rw™‚rp™‚pi™‚i[™‚pU˜•ŒFLAGN™‚+G™‚pA˜•ŒFIXP6˜•Œ SIGNEDWORD&™‚u˜•ŒBITS™‚vœ™R˜–>@gðªo ¿A¸l@ ¹H¡hlIH ¿HºI¹J¸°è™R™˜“˜“˜ŒPS˜ŒFIELD-DESCRIPTORS.™‚“™‚¡™‚°™‚O˜Œ Not a structure of type datatypeœ™S˜–‚Ä@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º°   ™‚å™S ™˜“˜“˜ŒSTRUCTURE-NAME‚¾™‚“‚³™‚+™‚¡™‚¡™‚°™‚ß‚•™‚q‚‡™‚Rx™‚ri™‚p ™‚ðœ™W˜–‚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 ™W™˜“˜“˜ŒPS ‚]™‚ ‚V™‚ ‚™‚Ι‚¡‚™‚¡O˜ŒEXPORT5™‚¡*™X™‚¡‚@™‚µ‚;˜ŒESTABLISH-PREDICATE‚1™‚‚˜ŒDEFUN‚ ˜’ŒOPTIMIZER-LIST˜‘˜ŒCOMPILER‚ý™‚ê‚ð™‚h‚Þ™‚ê‚Õ™‚O‚«™‚µ‚¦™‚c‚¡™‚‚—™‚r™‚µm™‚ch™‚^™‚V™‚OD™‚h%˜ŒOBJECT‚6˜“™‚™‚™‚‚!˜“™‚š‚·˜“˜“™‚µ™Z‚œ˜“™‚™‚™‚~˜“˜“™‚µ™Yc˜“™‚™‚™‚œ™X˜–‚·@¸@Ygð²gAg@hhl @ ®oH@ ¿ggAgIgð•g„ghhgIgð²g@ AhgA@ hg@hhh™X™˜“˜“˜ŒPS˜ŒARG‚š™[‚ˆ™[D™‚°5™‚¡‚£™‚µ‚“˜ŒAREF‚‚™‚¡z™‚Át˜ŒEQh™‚Àb™‚Í[™‚ÁU™‚µO˜ŒTYPEPJ˜ŒAND"™‚µ™‚ª™‚O;˜ŒFThe predicate ~s may not be specified for ~s because it is not :name'dœ™Y˜– g@h™Y™˜“˜“˜Œ TYPE-FORM˜ŒDATATYPEœ™Z˜–,g@Q X‘H‹o@ h™‚å™Z™˜“˜“˜Œ TYPE-FORM™‚° ™‚ߘŒ SATISFIES™‚ðœ™[˜–<@X² lHR Y‘IŠoH €h¹l @ I Ô™‚å™[™˜“˜“˜ŒPS5™‚ý/™‚¡$™‚¡™‚°™‚ß™‚ð˜–ggo ˜Œ1 top-level form™˜“€™‚㙂™[ ˜Œ+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™‚˜!™‚µ™‚ªœ™^˜–@i Xš@QH h™‚Å™^™˜“˜“˜Œ PREDICATE™‚ݘŒGET-PS-FROM-PREDICATE˜–8gh ¿o¿o ¿ggo ˜Œ,DEFCONSTANT %FUNCTION-DEFINING-FORM-KEYWORDS™˜“€2™‚㙂ᙂ[(™‚N#™`™`™`-˜Œ>all the legal contexts for function-defining-form in defstruct˜“™‚`™` ˜“™‚‹™‚g™‚h˜ŒBOA-CONSTRUCTOR™‚fœ™d˜–g@h ™d™˜“˜“˜Œ ACCESSOR-NAME ˜’ŒPACK™‚瘌%%SETF-˜–ggo ˜Œ1 top-level form™˜“€™‚㙂™d ˜Œ8produces the name of the setf function for this accessorœ™f˜–qBgð²#C•g„gg@hAhBgð²g@AhBgð²gA@hhgBo ™f™˜“˜“˜ŒSLOT˜ŒARGUMENT˜ŒSTRUCTURE-TYPE™‚¬˜Œ NO-TYPE-CHECKk™‚ `˜ŒSTRUCTURE-TYPEN™‚¨F™‚À4™‚¡,™‚Á™‚µ˜•Œ FETCHFIELD ™‚”™‚Of˜“™‚O™‚Á™‚Àœ™g˜–bl@ gð‘hP²gg@hhhgogg@hhhgo@ h˜’Œ*NEW-COMPILER-IS-EXPANDING*™‚˜™g™˜“˜“˜ŒPSW™i™‚¡L™‚:™‚µ5™h+™‚™‚µ™h ™‚êQ˜“™‚0˜“™‚œ™h˜–‚•@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º°› ™‚å™h ™˜“˜“˜ŒPS-NAME‚Š™‚q˜•ŒSETF-SYMBOL-FUNCTIONl™nb™‚”A™‚¡"™‚¡™‚°™‚ßW™‚‹ ™‚ðœ™i˜–‚@¸@¹l@ ºh»h¼h½J¡KJ^_¿l@ _¿O²7Oið_’O‡gO—O ¿gOHhNHI hh€h½L”LM¿M»M‘i€h–M ¼Jº°™i ™˜“˜“˜ŒPS‚‚™‚b™fO™‚”.™‚¡™‚¡U™‚–D™‚‹œ™j˜–8@¸@¹HW Z¦H ºJ²J»J\½L¾MIKN g™‚Å™j™˜“˜“˜ŒFORM™‚¬˜Œ ENVIRONMENT˜ŒCONTEXT,™f™l ™‚ß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‚ ™‚‚Ì™‚V‚Ä™‚V‚­˜Œ CONSTANTP‚š™‚™l™‚ß ‚þ˜ŒTYPE‚蘒ŒASET™‚ç‚Ô˜ŒLET‚µ™‚ ‚†™‚Às™‚¡n™‚f™‚ÁS™‚µN˜•Œ REPLACEFIELDH˜•Œ FREPLACEFIELD=™‚O‚˜“™‚O™‚Á™‚À˜–&gg ¿ggo ˜Œ7DEFINE-SHARED-SETF-MACRO DEFSTRUCT-SHARED-SETF-EXPANDER™˜“€ ™ ™‚?™‚@™k™‚™k˜“˜ŒACCESSOR˜ŒDATUM˜Œ NEW-VALUEœ™l˜–4@ ¸lH ¹@RH@H I‘i€hh ™‚Å™l™˜“˜“˜ŒACCESSOR.™‚Ý ˜Œ COPY-TREE˜ŒGET-SLOT-DESCRIPTOR-FROM-PS ™‚¡˜ŒGET-PS-FROM-ACCESSORœ™n˜–‚:@¸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 ™n ™˜“˜“˜ŒSLOT˜ŒSTRUCTURE-TYPE ‚4™‚‚"™p‚™o‚™‚‚ò™‚°‚æ™v‚Ï™‚°‚Ùs‚«™r‚Ÿ™tm™u]™wM™q‚)™‚é‚™‚À‚ ™‚Á‚ù˜Œ FIELD-TYPE‚Ö˜•Œ SIGNEDBITS‚²˜•ŒFLAGBITS‚™‚…d™‚ƒT™‚D™‚q7™‚R+™‚r™‚p ™‚O‚/˜“™‚O™‚Á™‚À‚ÿ˜“™‚…™‚$™‚#‚옌Illegal field descriptor: ~s‚ɘŒIllegal field descriptor: ~sœ™o˜–nX@¿noH™o™˜“˜“˜ŒOFFSET˜– HÉ@ ˜Œlambda in %MAKE-LIST-ACCESSOR™‚Ú˜“˜“˜ŒLIST™‚¡ ™‚♂㜙p˜–nX@¿noH™p™˜“˜“˜ŒOFFSET˜–@Hɶ˜Œlambda in %MAKE-ARRAY-ACCESSOR™‚Ú˜“˜“˜ŒVECTOR ™‚♂㜙q˜–/nX@A¿HÉžnoHnoH™q™˜“˜“˜ŒTYPE˜ŒOFFSET$˜– @HÉÐɘŒ lambda in %MAKE-POINTER-ACCESSOR™‚Ú˜“˜“˜ŒOBJECT˜–"@HÉ —@HÉÐÉoHÉ@ ˜Œ lambda in %MAKE-POINTER-ACCESSOR™‚Ú˜“˜“˜ŒOBJECT™‚°˜•Œ \INSTANCE-P˜ŒArg not ~s: ~s ™‚♂♂㜙r˜–5nX@ABC¿HÉžnoHnoH™r™˜“˜“˜Œ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-™‚°™‚W™‚X™‚I$˜ŒArg not ~s: ~s&™‚♂☕Œ \PTRHUNK4œ™s˜–2nX@AB¿HÉžnoHnoH™s™˜“˜“˜ŒTYPE˜Œ WORD-OFFSET˜ŒOFFSET'˜–jkHÉ @HÉÐÈ ð‘hi˜Œlambda in %MAKE-FLAG-ACCESSOR™‚Ú˜“˜“˜ŒOBJECT™‚W™‚X˜–7@HÉ ²jkHÉ @HÉÐÈ ð‘hioHÉ@ ˜Œlambda in %MAKE-FLAG-ACCESSOR™‚Ú˜“˜“˜ŒOBJECT1™‚°™‚W™‚X™‚I(˜ŒArg not ~s: ~s#™‚♂♂`œ™t˜–/nX@A¿HÉžnoHnoH™t™˜“˜“˜ŒTYPE˜ŒOFFSET$˜– @HÉÐȘŒlambda in %MAKE-WORD-ACCESSOR™‚Ú˜“˜“˜ŒOBJECT˜–"@HÉ —@HÉÐÈoHÉ@ ˜Œlambda in %MAKE-WORD-ACCESSOR™‚Ú˜“˜“˜ŒOBJECT™‚°™‚I˜ŒArg not ~s: ~s ™‚♂♂㜙u˜–/nX@A¿HÉžnoHnoH™u™˜“˜“˜ŒTYPE˜ŒOFFSET$˜– @HÉ ˜Œlambda in %MAKE-FIXP-ACCESSOR™‚Ú˜“˜“˜ŒOBJECT˜•Œ \GETBASEFIXP˜–$@HÉ ™@HÉ oHÉ@ ˜Œlambda in %MAKE-FIXP-ACCESSOR™‚Ú˜“˜“˜ŒOBJECT™‚°™‚‹™‚I˜ŒArg not ~s: ~s ™‚♂♂㜙v˜–/nX@A¿HÉžnoHnoH™v™˜“˜“˜Œ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)™‚°™‚I ˜ŒArg not ~s: ~s ™‚♂♂㜙w˜–/nX@A¿HÉžnoHnoH™w™˜“˜“˜ŒTYPE˜ŒOFFSET$˜– @HÉ ˜Œlambda in %MAKE-FLOAT-ACCESSOR™‚Ú˜“˜“˜ŒOBJECT˜•Œ\GETBASEFLOATP˜–$@HÉ ™@HÉ oHÉ@ ˜Œlambda in %MAKE-FLOAT-ACCESSOR™‚Ú˜“˜“˜ŒOBJECT™‚°™‚¬™‚I˜ŒArg not ~s: ~s ™‚♂♂㜙{˜–‚"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@ °I™~™˜“˜“˜ŒARG-LIST˜ŒPS‚ú™‚°™‚¡™‚‚Ó˜Œ&AUX‚À˜Œ&REST‚·˜Œ&ALLOW-OTHER-KEYS‚‡™‚¸V™‚¬‚ó˜Œ7~S cannot appear in a BOA constructor as it does in ~S.™‚㙂͂ޘ–HÉžHÉo‘hih˜Œ MORE-TO-DO™‚Ú˜“€ ˜“™‚¬™‚Ê™‚¸™‚Ë™‚É™‚Í‚£˜–wHɹ@d3@ð²#@HÉ Z–@Jh°S@hh°F@‘i€h²=@’@°8A—@‘i‚h€h–@ºJ@HÉ Z–@Jh@hh€hºIJ˜Œ BUILD-ARG™‚Ú˜“˜“˜ŒOLD-ARG˜ŒKEY?f˜•ŒGENSYMS™‚€"™‚×™‚€™‚Í‚’™‚Ñ™‚Ís™‚Ø™‚Ía™‚Ñ™‚Í*™‚Ñœ™˜–‚B¸h¹hºh»h¼h½lB ¾h_¿N‘N°h_¼O@Hi »LA]².M_²gOgKLhh°gKLhgKOh_¿I•JO&º…OhZ¹N¾°–I™ ™˜“˜“˜Œ RESULT-ARG˜Œ SLOT-NAMES˜ŒPS/™f™‚¡g™‚[™‚J™‚C˜ŒIFœ™‚€˜–1A¸h¹H’H°hYZ’J°B»B‘Ko@ ¹@Ið‘IH¸°Ö™‚€™˜“˜“˜ŒNAME˜ŒSLOTS™‚¬˜Œ DONT-ERROR™‚°˜Œslot ~s not found.œ™‚˜–‚…@Xgð²gg@hhHgðžg@ hHgð²1gg@ hhgg@hhhoHo ™‚™˜“˜“˜ŒPS™‚O™?2™? ^™‚µY˜Œ ELEMENT-TYPEI™‚µD˜Œ MAKE-ARRAY<™‚À,˜Œ MAKE-LIST%™‚Á™‚µ˜•ŒNCREATE™‚Oz˜“™‚O™‚Á™‚Àt˜“™‚ ™‚¦œ™‚‚˜–r@¸h¹hºh»H¡IH\½L^ g þh_¿L²M˜OMhhOhhh€h»J”JK¿K¹K‘i€h–K ºH¸°™™‚‚™˜“˜“˜ŒSLOTSg™‚H™‚V&™‚V ™‚”˜Œ SYMBOL-NAME˜ŒKEYWORDœ™‚ƒ˜–‚¦B¸B¹Aº@»h¼h½h¾K¡LK_²XJ_¿JºO__¿O_²gOIHi Oh°>gOgOIHi Ohh°gOIHi Oh¾L”MN&½„Nh]¼K»±ÿs™‚ƒ ™˜“˜“˜ŒSLOTS˜Œ ARGUMENT-LIST˜ŒPS‚†™fk™fJ™f|™‚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™‚”i™‚¡P™‚¡G™‚Š4™‚¡%™‚é ™‚‹™‚¡™‚¡‚›˜ŒNEW‚Š™‚ ‚…™‚ t™‚–^™‚g@™‚ œ™‚Š˜–=@¸h¹hºh»H¡IH¼gLCAi LBAi h»I”JK&º„KhZ¹H¸°Î™‚Š™˜“˜“˜ŒSLOTS˜ŒSTRUCTURE-TYPE˜Œ FROM-ARGUMENT˜Œ TO-ARGUMENT˜ŒTYPE-CHECK-SLOTS?"™f™f™‚˜–ggo ˜Œ1 top-level form™˜“€™‚㙂™‚Š ˜Œ4constructs the forms that copy each individual slot.œ™‚‹˜–m@gð²gA@hhh$@²9g@Ahgho@ Ahhhh$hi$™‚‹™˜“˜“˜ŒPS˜ŒFROM-ARGR˜ŒFORMATD™‚°0˜ŒOR˜Œ CHECK-TYPE™‚OJ˜ŒArg not ~s: ~~S˜–5o ¿g X§gc¿ggo ™‚˜ŒDEFVAR %DEFAULT-PRINT-FUNCTION™˜“€/™‚ã™‚à™‚á%™‚N ™‚˜ŒDEFAULT-STRUCTURE-PRINTER ™‚*˜Œ9print function used when none is specified in a defstruct˜“™‚Q™‚˜–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?=˜“™‚4™‚/"˜Œ~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 ™‚ß™‚MU™‚Ÿ=™‚–3™‚¡.™‚ )™‚žH˜Œ Inspector™‚ð˜–ggo ˜Œ1 top-level form™˜“€™‚㙂™‚ ˜Œ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™Z˜Œ TYPE-EXPANDER™‚¦™‚¦˜“™‚¦™‚¦™‚¿˜“™‚M˜Œ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™‚”™‚Á€€˜ŒPS-˜“™‚¿˜ŒPS-P™‚"˜ŒCOPY-PS€˜“˜“™‚M˜“™‚µ™‚¦€˜“™‚q€€˜ŒPS-NAME˜“™‚r€€˜ŒPS-STANDARD-CONSTRUCTOR˜“™‚s€€˜ŒPS-ALL-SLOT-NAMES˜“™‚ ™.€™‚ ˜“™‚t€€˜ŒPS-VECTOR-TYPE˜“™‚u€€˜Œ PS-INCLUDE˜“™‚v€€˜Œ PS-CONC-NAME˜“™‚w™2€˜ŒPS-CONSTRUCTORS˜“™‚x™3€ ˜Œ PS-PREDICATE˜“™‚y€€ ˜ŒPS-PRINT-FUNCTION˜“™‚z™4€ ˜Œ PS-COPIER˜“™‚{€€ ˜ŒPS-NAMED˜“™‚|€ ˜ŒPS-INITIAL-OFFSET˜“™‚}€€˜ŒPS-LOCAL-SLOTS˜“™‚~€€˜Œ PS-ALL-SLOTS˜“™‚€€˜ŒPS-INCLUDED-SLOTS˜“™‚€€€˜ŒPS-DOCUMENTATION-STRING˜“™‚€€˜ŒPS-FIELD-SPECIFIERS˜“™‚‚€€˜ŒPS-POINTER-DESCRIPTORS˜“™‚ƒ€˜Œ PS-INLINE˜“™‚„€€˜ŒPS-FAST-ACCESSORS˜“™‚…€€˜Œ PS-TEMPLATE˜“™‚”€€˜Œ PS-EXPORT€€€€˜“™‚‹™‚h€€€œ™‚‰˜–@Ø@gðh™‚‰™˜“˜“˜ŒOBJECT ™‚¦˜•ŒLISTP˜–g ¿g ™‚m™˜“€™‚ ™h ™‚¦™‚¦œ™‚¿˜–‚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™‚k˜Œ VECTOR-TYPE™‚i™‚e˜Œ CONSTRUCTORS™‚h™‚j™‚g™‚m™‚l˜Œ LOCAL-SLOTS˜Œ ALL-SLOTS˜ŒINCLUDED-SLOTS˜ŒDOCUMENTATION-STRING˜ŒFIELD-SPECIFIERS˜ŒPOINTER-DESCRIPTORS™‚n™‚o™‚p™‚q‚i™‚“‚Z™‚“‚K™‚“‚<™‚“‚0™‚“‚!™‚“‚™‚“‚™‚“‚ô™‚“‚噂“‚Ö™‚“‚Ê™‚“‚»™‚“‚¯™‚“‚ ™‚“‚”™‚“‚ˆ™‚“‚y™‚“‚j™‚“‚[™‚“‚P™‚“‚C™‚“‚6™‚“‚*™‚“‚™‚ì‚%™‚¦‚þ™‚q‚䙂p‚Ê™‚o‚¸™‚n‚ž™‚΂„™‚Í‚j™‚Ì‚P™‚Ë‚6™‚Ê‚™‚É‚ ™‚l‚ð™‚m‚㙂w‚Ú™‚g‚À™‚j‚³™‚w‚ª™‚h‚™‚w‚”™‚Èz™‚e`™‚iF™‚Ç7™‚k%™‚Æ™‚Å™‚Äœ™‚Š˜–‚ª@ 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™˜“€"™‚ ™h ™‚o™‚§™‚§™‚§˜“™‚¦™‚§™‚²˜“™‚q˜Œ INITIAL-VALUE™‚ ˜Œ READ-ONLY˜ŒFIELD-DESCRIPTOR˜ŒACCESSOR™‚Á€€˜ŒPSLOT-˜“™‚²€™‚"™‚.€€˜“˜“™‚q€™‚΀˜Œ 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™‚k™‚´˜ŒFIELD-DESCRIPTOR™‚‹‚Ì™‚“‚½™‚“‚®™‚“‚¡™‚“‚–™‚“‚Š™‚“|™‚ì`™‚‹F™‚ñ4™‚´%™‚k™‚ð™‚Äœ™‚.˜–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°