home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga MA Magazine 1998 #6
/
amigamamagazinepolishissue1998.iso
/
coders
/
jËzyki_programowania
/
clisp
/
src
/
archive
/
clisp.faslsp.lha
/
clos.fas
< prev
next >
Wrap
Text File
|
1996-06-17
|
145KB
|
2,977 lines
(SYSTEM::VERSION '(SYSTEM::CLISP2 13. LISP:T 130695.))
#Y(#:TOP-LEVEL-FORM-1 #13Y(00 00 00 00 00 01 D8 37 02 30 E3 19 01) "LISP")
#Y(#:TOP-LEVEL-FORM-2 #13Y(00 00 00 00 00 01 D8 37 01 30 DA 19 01) (CLOS))
#Y(#:TOP-LEVEL-FORM-3 #17Y(00 00 00 00 00 01 D8 6A 01 37 03 30 BB 0F 01 19 01)
CLOS *FEATURES*
)
#Y(#:TOP-LEVEL-FORM-4 #13Y(00 00 00 00 00 01 D8 37 02 30 E3 19 01) "SYSTEM")
#Y(#:TOP-LEVEL-FORM-5-1 #14Y(00 00 00 00 00 01 D8 01 02 30 E2 3D 19 01) "CLOS")
#Y(#:TOP-LEVEL-FORM-5-2 #13Y(00 00 00 00 00 01 D8 D9 30 DF 3D 19 01) ("LISP")
"CLOS"
)
#Y(#:TOP-LEVEL-FORM-5-3 #15Y(00 00 00 00 00 01 D8 D9 DA 2C 03 03 3D 19 01)
"ERROR-OF-TYPE" "SYSTEM" "CLOS" IMPORT-CERROR
)
#Y(#:TOP-LEVEL-FORM-5-4 #15Y(00 00 00 00 00 01 D8 D9 DA 2C 03 03 3D 19 01)
"FUNCTION-NAME-P" "SYSTEM" "CLOS" IMPORT-CERROR
)
#Y(#:TOP-LEVEL-FORM-5-5 #15Y(00 00 00 00 00 01 D8 D9 DA 2C 03 03 3D 19 01)
"BLOCK-NAME" "SYSTEM" "CLOS" IMPORT-CERROR
)
#Y(#:TOP-LEVEL-FORM-5-6 #15Y(00 00 00 00 00 01 D8 D9 DA 2C 03 03 3D 19 01)
"MEMQ" "SYSTEM" "CLOS" IMPORT-CERROR
)
#Y(#:TOP-LEVEL-FORM-5-7 #15Y(00 00 00 00 00 01 D8 D9 DA 2C 03 03 3D 19 01)
"*KEYWORD-PACKAGE*" "SYSTEM" "CLOS" IMPORT-CERROR
)
#Y(#:TOP-LEVEL-FORM-5-8 #15Y(00 00 00 00 00 01 D8 D9 DA 2C 03 03 3D 19 01)
"%GENERIC-FUNCTION-LAMBDA" "SYSTEM" "CLOS" IMPORT-CERROR
)
#Y(#:TOP-LEVEL-FORM-5-9 #15Y(00 00 00 00 00 01 D8 D9 DA 2C 03 03 3D 19 01)
"%OPTIMIZE-FUNCTION-LAMBDA" "SYSTEM" "CLOS" IMPORT-CERROR
)
#Y(#:TOP-LEVEL-FORM-5-10 #11Y(00 00 00 00 00 01 D8 30 CF 19 01) "CLOS")
#Y(#:TOP-LEVEL-FORM-6 #13Y(00 00 00 00 00 01 D8 37 02 30 E3 19 01) "CLOS")
#Y(#:TOP-LEVEL-FORM-7 #13Y(00 00 00 00 00 01 D8 37 01 30 DA 19 01)
(SLOT-VALUE SLOT-BOUNDP SLOT-MAKUNBOUND SLOT-EXISTS-P WITH-SLOTS
WITH-ACCESSORS FIND-CLASS CLASS-OF DEFCLASS DEFMETHOD CALL-NEXT-METHOD
NEXT-METHOD-P DEFGENERIC GENERIC-FUNCTION GENERIC-FLET GENERIC-LABELS
CLASS-NAME NO-APPLICABLE-METHOD NO-PRIMARY-METHOD NO-NEXT-METHOD
FIND-METHOD ADD-METHOD REMOVE-METHOD COMPUTE-APPLICABLE-METHODS
METHOD-QUALIFIERS FUNCTION-KEYWORDS SLOT-MISSING SLOT-UNBOUND PRINT-OBJECT
DESCRIBE-OBJECT MAKE-INSTANCE INITIALIZE-INSTANCE REINITIALIZE-INSTANCE
SHARED-INITIALIZE STANDARD-CLASS STRUCTURE-CLASS BUILT-IN-CLASS
STANDARD-OBJECT STANDARD-GENERIC-FUNCTION STANDARD-METHOD STANDARD
))
#Y(#:TOP-LEVEL-FORM-8 #12Y(00 00 00 00 00 01 D8 30 5D C4 19 01)
(SPECIAL <STANDARD-CLASS>) <STANDARD-CLASS>
)
#Y(#:TOP-LEVEL-FORM-9 #12Y(00 00 00 00 00 01 D8 30 5D C4 19 01)
(SPECIAL <STRUCTURE-CLASS>) <STRUCTURE-CLASS>
)
#Y(#:TOP-LEVEL-FORM-10 #12Y(00 00 00 00 00 01 D8 30 5D C4 19 01)
(SPECIAL <BUILT-IN-CLASS>) <BUILT-IN-CLASS>
)
#Y(#:TOP-LEVEL-FORM-11 #12Y(00 00 00 00 00 01 D8 30 5D C4 19 01)
(SPECIAL <STANDARD-OBJECT>) <STANDARD-OBJECT>
)
#Y(#:TOP-LEVEL-FORM-12 #12Y(00 00 00 00 00 01 D8 30 5D C4 19 01)
(SPECIAL <STANDARD-GENERIC-FUNCTION>) <STANDARD-GENERIC-FUNCTION>
)
#Y(#:TOP-LEVEL-FORM-13 #12Y(00 00 00 00 00 01 D8 30 5D C4 19 01)
(SPECIAL <STANDARD-METHOD>) <STANDARD-METHOD>
)
#Y(#:TOP-LEVEL-FORM-14 #12Y(00 00 00 00 00 01 D8 30 5D C4 19 01)
(SPECIAL <ARRAY>) <ARRAY>
)
#Y(#:TOP-LEVEL-FORM-15 #12Y(00 00 00 00 00 01 D8 30 5D C4 19 01)
(SPECIAL <BIT-VECTOR>) <BIT-VECTOR>
)
#Y(#:TOP-LEVEL-FORM-16 #12Y(00 00 00 00 00 01 D8 30 5D C4 19 01)
(SPECIAL <CHARACTER>) <CHARACTER>
)
#Y(#:TOP-LEVEL-FORM-17 #12Y(00 00 00 00 00 01 D8 30 5D C4 19 01)
(SPECIAL <COMPLEX>) <COMPLEX>
)
#Y(#:TOP-LEVEL-FORM-18 #12Y(00 00 00 00 00 01 D8 30 5D C4 19 01)
(SPECIAL <CONS>) <CONS>
)
#Y(#:TOP-LEVEL-FORM-19 #12Y(00 00 00 00 00 01 D8 30 5D C4 19 01)
(SPECIAL <FLOAT>) <FLOAT>
)
#Y(#:TOP-LEVEL-FORM-20 #12Y(00 00 00 00 00 01 D8 30 5D C4 19 01)
(SPECIAL <FUNCTION>) <FUNCTION>
)
#Y(#:TOP-LEVEL-FORM-21 #12Y(00 00 00 00 00 01 D8 30 5D C4 19 01)
(SPECIAL <HASH-TABLE>) <HASH-TABLE>
)
#Y(#:TOP-LEVEL-FORM-22 #12Y(00 00 00 00 00 01 D8 30 5D C4 19 01)
(SPECIAL <INTEGER>) <INTEGER>
)
#Y(#:TOP-LEVEL-FORM-23 #12Y(00 00 00 00 00 01 D8 30 5D C4 19 01)
(SPECIAL <LIST>) <LIST>
)
#Y(#:TOP-LEVEL-FORM-24 #12Y(00 00 00 00 00 01 D8 30 5D C4 19 01)
(SPECIAL <NULL>) <NULL>
)
#Y(#:TOP-LEVEL-FORM-25 #12Y(00 00 00 00 00 01 D8 30 5D C4 19 01)
(SPECIAL <NUMBER>) <NUMBER>
)
#Y(#:TOP-LEVEL-FORM-26 #12Y(00 00 00 00 00 01 D8 30 5D C4 19 01)
(SPECIAL <PACKAGE>) <PACKAGE>
)
#Y(#:TOP-LEVEL-FORM-27 #12Y(00 00 00 00 00 01 D8 30 5D C4 19 01)
(SPECIAL <PATHNAME>) <PATHNAME>
)
#Y(#:TOP-LEVEL-FORM-28 #12Y(00 00 00 00 00 01 D8 30 5D C4 19 01)
(SPECIAL <LOGICAL-PATHNAME>) <LOGICAL-PATHNAME>
)
#Y(#:TOP-LEVEL-FORM-29 #12Y(00 00 00 00 00 01 D8 30 5D C4 19 01)
(SPECIAL <RANDOM-STATE>) <RANDOM-STATE>
)
#Y(#:TOP-LEVEL-FORM-30 #12Y(00 00 00 00 00 01 D8 30 5D C4 19 01)
(SPECIAL <RATIO>) <RATIO>
)
#Y(#:TOP-LEVEL-FORM-31 #12Y(00 00 00 00 00 01 D8 30 5D C4 19 01)
(SPECIAL <RATIONAL>) <RATIONAL>
)
#Y(#:TOP-LEVEL-FORM-32 #12Y(00 00 00 00 00 01 D8 30 5D C4 19 01)
(SPECIAL <READTABLE>) <READTABLE>
)
#Y(#:TOP-LEVEL-FORM-33 #12Y(00 00 00 00 00 01 D8 30 5D C4 19 01)
(SPECIAL <REAL>) <REAL>
)
#Y(#:TOP-LEVEL-FORM-34 #12Y(00 00 00 00 00 01 D8 30 5D C4 19 01)
(SPECIAL <SEQUENCE>) <SEQUENCE>
)
#Y(#:TOP-LEVEL-FORM-35 #12Y(00 00 00 00 00 01 D8 30 5D C4 19 01)
(SPECIAL <STREAM>) <STREAM>
)
#Y(#:TOP-LEVEL-FORM-36 #12Y(00 00 00 00 00 01 D8 30 5D C4 19 01)
(SPECIAL <FILE-STREAM>) <FILE-STREAM>
)
#Y(#:TOP-LEVEL-FORM-37 #12Y(00 00 00 00 00 01 D8 30 5D C4 19 01)
(SPECIAL <SYNONYM-STREAM>) <SYNONYM-STREAM>
)
#Y(#:TOP-LEVEL-FORM-38 #12Y(00 00 00 00 00 01 D8 30 5D C4 19 01)
(SPECIAL <BROADCAST-STREAM>) <BROADCAST-STREAM>
)
#Y(#:TOP-LEVEL-FORM-39 #12Y(00 00 00 00 00 01 D8 30 5D C4 19 01)
(SPECIAL <CONCATENATED-STREAM>) <CONCATENATED-STREAM>
)
#Y(#:TOP-LEVEL-FORM-40 #12Y(00 00 00 00 00 01 D8 30 5D C4 19 01)
(SPECIAL <TWO-WAY-STREAM>) <TWO-WAY-STREAM>
)
#Y(#:TOP-LEVEL-FORM-41 #12Y(00 00 00 00 00 01 D8 30 5D C4 19 01)
(SPECIAL <ECHO-STREAM>) <ECHO-STREAM>
)
#Y(#:TOP-LEVEL-FORM-42 #12Y(00 00 00 00 00 01 D8 30 5D C4 19 01)
(SPECIAL <STRING-STREAM>) <STRING-STREAM>
)
#Y(#:TOP-LEVEL-FORM-43 #12Y(00 00 00 00 00 01 D8 30 5D C4 19 01)
(SPECIAL <STRING>) <STRING>
)
#Y(#:TOP-LEVEL-FORM-44 #12Y(00 00 00 00 00 01 D8 30 5D C4 19 01)
(SPECIAL <SYMBOL>) <SYMBOL>
)
#Y(#:TOP-LEVEL-FORM-45 #12Y(00 00 00 00 00 01 D8 30 5D C4 19 01) (SPECIAL <T>)
<T>
)
#Y(#:TOP-LEVEL-FORM-46 #12Y(00 00 00 00 00 01 D8 30 5D C4 19 01)
(SPECIAL <VECTOR>) <VECTOR>
)
#Y(#:TOP-LEVEL-FORM-47
#18Y(00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 82 C3 19 01)
STD-ALLOCATE-INSTANCE SYSTEM::REMOVE-OLD-DEFINITIONS SYSTEM::MACRO
#Y(STD-ALLOCATE-INSTANCE
#32Y(00 01 00 01 00 08 AC 71 48 D8 8F 01 2E 0D 9D 5B 77 DA AB DB AD 7A 02
60 03 19 04 AC 2E 01 19 03
)
2. SYSTEM::MACRO-CALL-ERROR ALLOCATE-STD-INSTANCE
CLASS-INSTANCE-SLOT-COUNT
) )
#Y(#:TOP-LEVEL-FORM-48 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C6 19 01)
#.(SYSTEM::GET-SETF-SYMBOL 'FIND-CLASS) SYSTEM::REMOVE-OLD-DEFINITIONS
#Y(#1=(SETF FIND-CLASS)
#108Y(00 02 00 02 00 0E AD 8E 08 15 AE 87 09 2C D8 D9 B0 DA E2 E3 E4 E5
6D 03 07 E6 A6 14 32 06 1F D8 D9 AF DA DB DC DD DE 6D 03 07 E0 A5
1A 6D E9 EA EB EC 6D 03 07 ED AD 32 02 1F AD E2 37 01 71 84 AA 88
09 1F AA 88 0F 06 AA 6E 10 A0 21 60 AE 88 16 11 EF F0 F1 6D 03 07
F2 F3 F4 6D 03 07 F5 B1 2C 04 1E 16 01 AD E2 B0 31 88 19 05
)
TYPE-ERROR :DATUM :EXPECTED-TYPE SYMBOL "~S: argument ~S is not a symbol"
"~S: Argument ~S ist kein Symbol."
"~S : L'argument ~S n'est pas un symbole." SYSTEM::LANGUAGE
(SETF FIND-CLASS) CLASS-P CLASS "~S: ~S is not a class"
"~S: ~S ist keine Klasse." "~S : ~S n'est pas une classe."
(SETF FIND-CLASS) BUILT-IN-CLASS-P CLASS-NAME ERROR
"~S: cannot redefine built-in class ~S"
"~S: Built-In-Klasse ~S kann nicht umdefiniert werden."
"~S : La classe prédéfinie ~S ne peut être redéfinie." (SETF FIND-CLASS)
SYSTEM::EXPORTED-LISP-SYMBOL-P "The old definition will be lost"
"Die alte Definition wird weggeworfen."
"L'ancienne définition sera perdue."
"~S: Redefining the COMMON LISP class ~S"
"~S: Die COMMON-LISP-Klasse ~S wird umdefiniert."
"~S : La classe ~S de COMMON-LISP va être redéfinie." (SETF FIND-CLASS)
CERROR
)
#1#
)
#Y(#:TOP-LEVEL-FORM-49
#20Y(00 00 00 00 00 01 D8 D9 DA 31 88 D8 DB 62 2C 03 04 C3 19 01) SLOT-VALUE
SYSTEM::SETF-EXPANDER SET-SLOT-VALUE SETF SYSTEM::%SET-DOCUMENTATION
)
#Y(#:TOP-LEVEL-FORM-50
#18Y(00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 82 C3 19 01) WITH-SLOTS
SYSTEM::REMOVE-OLD-DEFINITIONS SYSTEM::MACRO
#Y(WITH-SLOTS
#224Y(00 01 00 01 00 08 3C 01 AC 71 48 D8 8F 01 2F 80 42 9D 5B 77 9E 5B
5B 77 9F 5B 5B 78 01 02 AE 8E 0D 36 AE 62 AB 8B 96 80 5C 86 01 00
14 9C 1F 11 AB 71 48 24 08 2D 86 01 00 9C 5B 5A F7 AA 8E 08 2C AB
8D 08 33 DA E7 E8 E9 6D 03 06 CA 14 9F 14 32 02 1F AC 2E 01 19 03
DA DB DC DD 6D 03 06 DF A2 1A 6C DA E1 E2 E3 6D 03 06 CA 1A 60 DA
E4 E5 E6 6D 03 06 DF 9E 1A 57 AA 83 04 AB 83 03 16 01 82 01 1A FF
9F 16 02 AC 62 B2 30 62 41 02 37 01 71 90 EA AB B2 7A 02 7A 01 EB
62 B2 71 4A B2 71 4A 1A 25 16 03 1A 26 EE A1 79 60 01 1A 27 93 01
9C 1F 70 93 01 AB EC B4 ED AE 7A 02 7A 03 7A 02 83 04 16 02 82 01
82 00 9C 20 63 16 02 AA 7F A7 00 91 05 53 00 14 B1 32 02 23 7B 02
60 03 19 0B
)
3. SYSTEM::MACRO-CALL-ERROR PROGRAM-ERROR "~S: not a list of slots: ~S"
"~S: Das ist keine Liste von Slots: ~S"
"~S : Pas une liste de composants: ~S" SYSTEM::LANGUAGE WITH-SLOTS 2.
"~S: invalid slot and variable specification ~S"
"~S: unzulässige Slot/Variablen-Bezeichnung ~S"
"~S : spécification invalide de composant et variable: ~S"
"~S: variable ~S should be a symbol"
"~S: Variable ~S sollte ein Symbol sein."
"~S : La variable ~S devrait être un symbole."
"~S: slot name ~S should be a symbol"
"~S: Slot-Name ~S sollte ein Symbol sein."
"~S : Le nom de composant ~S devrait être un symbole." LET
SYMBOL-MACROLET SLOT-VALUE QUOTE DECLARE
) )
#Y(#:TOP-LEVEL-FORM-51
#18Y(00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 82 C3 19 01) WITH-ACCESSORS
SYSTEM::REMOVE-OLD-DEFINITIONS SYSTEM::MACRO
#Y(WITH-ACCESSORS
#193Y(00 01 00 01 00 08 3C 01 AC 71 48 D8 8F 01 2F 3B 9D 5B 77 9E 5B 5B
77 9F 5B 5B 78 AC 8E 0D 31 AC 62 AB 8B 96 80 51 86 01 00 1F 30 AA
71 48 24 08 2A 93 00 8E 08 30 9B 5B 77 8D 08 36 DA E7 E8 E9 6D 03
06 DF 9E 5B 5A 14 32 02 1F AC 2E 01 19 03 DA DB DC DD 6D 03 06 DF
A0 1A 6C DA E1 E2 E3 6D 03 06 DF 9E 1A 61 DA E4 E5 E6 6D 03 06 DF
9E 5A 1A 55 82 01 1A FF AA 16 02 AA 62 B0 30 62 41 02 37 01 71 90
EA AB B0 7A 02 7A 01 EB 62 B3 1A 19 EC A1 79 60 01 1A 1F 93 00 93
00 9C 5B 77 B2 7A 02 7A 02 83 02 16 01 82 00 9B 20 6B 16 01 AA 7F
A7 00 91 05 5B 00 14 B1 32 02 23 7B 02 60 03 19 09
)
3. SYSTEM::MACRO-CALL-ERROR PROGRAM-ERROR "~S: not a list of slots: ~S"
"~S: Das ist keine Liste von Slots: ~S"
"~S : Pas une liste de composants: ~S" SYSTEM::LANGUAGE WITH-ACCESSORS 2.
"~S: invalid slot and accessor specification ~S"
"~S: unzulässige Slot/Accessor-Bezeichnung ~S"
"~S : spécification invalide de composant et accesseur: ~S"
"~S: variable ~S should be a symbol"
"~S: Variable ~S sollte ein Symbol sein."
"~S : La variable ~S devrait être un symbole."
"~S: accessor name ~S should be a symbol"
"~S: Accessor-Name ~S sollte ein Symbol sein."
"~S : Le nom d'accesseur ~S devrait être un symbole." LET SYMBOL-MACROLET
DECLARE
) )
#Y(#:TOP-LEVEL-FORM-52 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
DEFINE-STRUCTURE-CLASS SYSTEM::REMOVE-OLD-DEFINITIONS
#Y(DEFINE-STRUCTURE-CLASS #9Y(00 01 00 00 00 02 00 19 02))
)
#Y(#:TOP-LEVEL-FORM-53 #12Y(00 00 00 00 00 01 D8 30 E7 00 19 01)
#Y(#:TOP-LEVEL-FORM-53-1 #12Y(00 01 00 00 00 02 AB D8 31 89 19 02) CLASS)
)
#Y(#:TOP-LEVEL-FORM-54
#36Y(00 00 00 00 00 01 37 05 C3 F9 C4 F8 70 66 DA 8C 61 0B AA DA 70 51 8D 03
04 DA DB 2F 04 DA AB 31 83 C5 19 02
)
#.#'EQ 0. EMPTY-HT
(DEFCONSTANT EMPTY-HT (MAKE-HASH-TABLE :TEST #'EQ :SIZE 0.))
SYSTEM::CONSTANT-WARNING
)
#Y(#:TOP-LEVEL-FORM-55
#294Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 DB DC DD 63 D8 DE 72 04 00 31
88 DB 2E 07 E0 30 5D E1 2E 01 E1 E2 E3 31 88 E1 E4 31 82 E5 30 5D E6
30 5D E7 2E 01 E7 E2 E8 31 88 E7 E9 31 82 EA 30 5D EB 30 5D EC 2E 01
EC E2 ED 31 88 EC EE 31 82 EF 30 5D F0 30 5D F1 2E 01 F1 E2 F2 31 88
F1 F3 31 82 F4 30 5D F5 30 5D 64 1E 2E 01 64 1E E2 64 1F 31 88 64 1E
64 20 31 82 64 21 30 5D 64 22 30 5D 64 23 2E 01 64 23 E2 64 24 31 88
64 23 64 25 31 82 64 26 30 5D 64 27 30 5D 64 28 2E 01 64 28 E2 64 29
31 88 64 28 64 2A 31 82 E7 64 2B 64 2C 03 2D 79 31 88 E7 64 2E 62 2C
03 2F EC 64 2B 64 2C 03 30 79 31 88 EC 64 2E 62 2C 03 2F F1 64 2B 64
2C 03 31 79 31 88 F1 64 2E 62 2C 03 2F 64 1E 64 2B 64 2C 03 32 79 31
88 64 1E 64 2E 62 2C 03 2F 64 23 64 2B 64 2C 03 33 79 31 88 64 23 64
2E 62 2C 03 2F 64 28 64 2B 64 2C 03 34 79 31 88 64 28 64 2E 62 2C 03
2F DB 64 35 62 2C 03 2F DB 64 36 64 37 31 88 C6 19 01
)
MAKE-CLASS SYSTEM::REMOVE-OLD-DEFINITIONS
#Y(MAKE-CLASS
#69Y(00 00 00 00 80 1B 00 06 00 00 3C 06 3C 05 3C 04 3C 03 3C 02 3A 01 03
0E 06 F7 DF E0 71 33 E1 AB E2 B4 31 32 E1 AB E3 B3 31 32 E1 AB E4 B2
31 32 E1 AB E5 B1 31 32 E1 AB E6 B0 31 32 E1 AB E7 AF 31 32 15 19 07
)
:METACLASS :CLASSNAME :DIRECT-SUPERCLASSES :ALL-SUPERCLASSES
:PRECEDENCE-LIST :SLOT-LOCATION-TABLE EMPTY-HT #1=(CLASS) 7. CLASS 1. 2.
3. 4. 5. 6.
)
CLASS SYSTEM::DEFSTRUCT-DESCRIPTION #1#
((METACLASS 1. NIL T NIL) (CLASSNAME 2. NIL T NIL)
(DIRECT-SUPERCLASSES 3. NIL T NIL) (ALL-SUPERCLASSES 4. NIL T NIL)
(PRECEDENCE-LIST 5. NIL T NIL) (SLOT-LOCATION-TABLE 6. EMPTY-HT T NIL)
)
DEFINE-STRUCTURE-CLASS (INLINE COPY-CLASS) COPY-CLASS
SYSTEM::INLINE-EXPANSION
((STRUCTURE) (DECLARE (SYSTEM::IN-DEFUN COPY-CLASS))
(BLOCK COPY-CLASS (SYSTEM::%COPY-STRUCTURE STRUCTURE))
)
#Y(COPY-CLASS #11Y(00 01 00 00 00 02 AB 31 34 19 02))
(FUNCTION CLASS-METACLASS (CLASS) T) (INLINE CLASS-METACLASS)
CLASS-METACLASS
(#2=(SYSTEM::OBJECT) (DECLARE (SYSTEM::IN-DEFUN CLASS-METACLASS))
(BLOCK CLASS-METACLASS
(THE T (SYSTEM::%STRUCTURE-REF 'CLASS SYSTEM::OBJECT 1.))
) )
#Y(CLASS-METACLASS #13Y(00 01 00 00 00 02 D8 AC D9 31 31 19 02) CLASS 1.)
(FUNCTION CLASS-CLASSNAME (CLASS) T) (INLINE CLASS-CLASSNAME)
CLASS-CLASSNAME
(#2# (DECLARE (SYSTEM::IN-DEFUN CLASS-CLASSNAME))
(BLOCK CLASS-CLASSNAME
(THE T (SYSTEM::%STRUCTURE-REF 'CLASS SYSTEM::OBJECT 2.))
) )
#Y(CLASS-CLASSNAME #13Y(00 01 00 00 00 02 D8 AC D9 31 31 19 02) CLASS 2.)
(FUNCTION CLASS-DIRECT-SUPERCLASSES (CLASS) T)
(INLINE CLASS-DIRECT-SUPERCLASSES) CLASS-DIRECT-SUPERCLASSES
(#2# (DECLARE (SYSTEM::IN-DEFUN CLASS-DIRECT-SUPERCLASSES))
(BLOCK CLASS-DIRECT-SUPERCLASSES
(THE T (SYSTEM::%STRUCTURE-REF 'CLASS SYSTEM::OBJECT 3.))
) )
#Y(CLASS-DIRECT-SUPERCLASSES #13Y(00 01 00 00 00 02 D8 AC D9 31 31 19 02)
CLASS 3.
)
(FUNCTION CLASS-ALL-SUPERCLASSES (CLASS) T) (INLINE CLASS-ALL-SUPERCLASSES)
CLASS-ALL-SUPERCLASSES
(#2# (DECLARE (SYSTEM::IN-DEFUN CLASS-ALL-SUPERCLASSES))
(BLOCK CLASS-ALL-SUPERCLASSES
(THE T (SYSTEM::%STRUCTURE-REF 'CLASS SYSTEM::OBJECT 4.))
) )
#Y(CLASS-ALL-SUPERCLASSES #13Y(00 01 00 00 00 02 D8 AC D9 31 31 19 02) CLASS
4.
)
(FUNCTION CLASS-PRECEDENCE-LIST (CLASS) T) (INLINE CLASS-PRECEDENCE-LIST)
CLASS-PRECEDENCE-LIST
(#2# (DECLARE (SYSTEM::IN-DEFUN CLASS-PRECEDENCE-LIST))
(BLOCK CLASS-PRECEDENCE-LIST
(THE T (SYSTEM::%STRUCTURE-REF 'CLASS SYSTEM::OBJECT 5.))
) )
#Y(CLASS-PRECEDENCE-LIST #13Y(00 01 00 00 00 02 D8 AC D9 31 31 19 02) CLASS
5.
)
(FUNCTION CLASS-SLOT-LOCATION-TABLE (CLASS) T)
(INLINE CLASS-SLOT-LOCATION-TABLE) CLASS-SLOT-LOCATION-TABLE
(#2# (DECLARE (SYSTEM::IN-DEFUN CLASS-SLOT-LOCATION-TABLE))
(BLOCK CLASS-SLOT-LOCATION-TABLE
(THE T (SYSTEM::%STRUCTURE-REF 'CLASS SYSTEM::OBJECT 6.))
) )
#Y(CLASS-SLOT-LOCATION-TABLE #13Y(00 01 00 00 00 02 D8 AC D9 31 31 19 02)
CLASS 6.
)
SYSTEM::SETF-EXPANDER -1.
#Y(SETF-CLASS-METACLASS
#18Y(00 02 00 00 00 03 9D 5B 77 D8 D9 AC DA B0 60 05 19 04)
SYSTEM::%STRUCTURE-STORE 'CLASS 1.
)
SETF SYSTEM::%SET-DOCUMENTATION
#Y(SETF-CLASS-CLASSNAME
#18Y(00 02 00 00 00 03 9D 5B 77 D8 D9 AC DA B0 60 05 19 04)
SYSTEM::%STRUCTURE-STORE 'CLASS 2.
)
#Y(SETF-CLASS-DIRECT-SUPERCLASSES
#18Y(00 02 00 00 00 03 9D 5B 77 D8 D9 AC DA B0 60 05 19 04)
SYSTEM::%STRUCTURE-STORE 'CLASS 3.
)
#Y(SETF-CLASS-ALL-SUPERCLASSES
#18Y(00 02 00 00 00 03 9D 5B 77 D8 D9 AC DA B0 60 05 19 04)
SYSTEM::%STRUCTURE-STORE 'CLASS 4.
)
#Y(SETF-CLASS-PRECEDENCE-LIST
#18Y(00 02 00 00 00 03 9D 5B 77 D8 D9 AC DA B0 60 05 19 04)
SYSTEM::%STRUCTURE-STORE 'CLASS 5.
)
#Y(SETF-CLASS-SLOT-LOCATION-TABLE
#18Y(00 02 00 00 00 03 9D 5B 77 D8 D9 AC DA B0 60 05 19 04)
SYSTEM::%STRUCTURE-STORE 'CLASS 6.
)
STRUCTURE SYSTEM::STRUCTURE-PRINT
#Y(CLASS-PRINT-FUNCTION #14Y(00 03 00 00 00 04 AD AD AD 2C 03 00 19 04)
PRINT-CLASS
) )
#Y(#:TOP-LEVEL-FORM-56
#87Y(00 00 00 00 00 01 00 2A 01 D8 C4 5C 0B 00 00 DA 2E 03 DA AB 6C 04 01 31
82 D8 DD 67 02 00 63 DA DE 72 04 00 31 88 16 01 D8 2E 07 E0 30 5D E1 2E
03 E1 E2 E3 31 88 E1 E4 31 82 E5 30 5D E6 2E 03 E6 E2 E7 31 88 E6 E8 31
82 D8 E9 62 2C 03 12 D8 EB EC 31 88 C3 19 01
)
BUILT-IN-CLASS #.(SVREF (GET 'CLASS 'SYSTEM::DEFSTRUCT-DESCRIPTION) 0.)
MAKE-BUILT-IN-CLASS SYSTEM::REMOVE-OLD-DEFINITIONS
#Y(MAKE-BUILT-IN-CLASS
#71Y(00 00 00 00 80 1B 00 06 00 01 3C 06 3C 05 3C 04 3C 03 3C 02 3A 01 03
0E 07 F7 68 00 01 E0 71 33 E1 AB E2 B4 31 32 E1 AB E3 B3 31 32 E1 AB
E4 B2 31 32 E1 AB E5 B1 31 32 E1 AB E6 B0 31 32 E1 AB E7 AF 31 32 15
19 07
)
NIL :METACLASS :CLASSNAME :DIRECT-SUPERCLASSES :ALL-SUPERCLASSES
:PRECEDENCE-LIST :SLOT-LOCATION-TABLE EMPTY-HT 7. BUILT-IN-CLASS 1. 2. 3.
4. 5. 6.
)
SYSTEM::DEFSTRUCT-DESCRIPTION
((METACLASS 1. NIL T NIL) (CLASSNAME 2. NIL T NIL)
(DIRECT-SUPERCLASSES 3. NIL T NIL) (ALL-SUPERCLASSES 4. NIL T NIL)
(PRECEDENCE-LIST 5. NIL T NIL) (SLOT-LOCATION-TABLE 6. EMPTY-HT T NIL)
)
DEFINE-STRUCTURE-CLASS (INLINE BUILT-IN-CLASS-P) BUILT-IN-CLASS-P
SYSTEM::INLINE-EXPANSION
((SYSTEM::OBJECT) (DECLARE (SYSTEM::IN-DEFUN BUILT-IN-CLASS-P))
(BLOCK BUILT-IN-CLASS-P
(SYSTEM::%STRUCTURE-TYPE-P 'BUILT-IN-CLASS SYSTEM::OBJECT)
) )
#Y(BUILT-IN-CLASS-P #12Y(00 01 00 00 00 02 D8 AC 31 35 19 02) BUILT-IN-CLASS
)
(INLINE COPY-BUILT-IN-CLASS) COPY-BUILT-IN-CLASS
((STRUCTURE) (DECLARE (SYSTEM::IN-DEFUN COPY-BUILT-IN-CLASS))
(BLOCK COPY-BUILT-IN-CLASS (SYSTEM::%COPY-STRUCTURE STRUCTURE))
)
#Y(COPY-BUILT-IN-CLASS #11Y(00 01 00 00 00 02 AB 31 34 19 02)) STRUCTURE
SYSTEM::%SET-DOCUMENTATION SYSTEM::STRUCTURE-PRINT
#Y(BUILT-IN-CLASS-PRINT-FUNCTION
#14Y(00 03 00 00 00 04 AD AD AD 2C 03 00 19 04) PRINT-CLASS
) )
#Y(#:TOP-LEVEL-FORM-57 #11Y(00 00 00 00 00 01 D8 30 5D 19 01)
(NOTINLINE BUILT-IN-CLASS-P)
)
#Y(#:TOP-LEVEL-FORM-58
#87Y(00 00 00 00 00 01 00 2A 01 D8 C4 5C 0B 00 00 DA 2E 03 DA AB 6C 04 01 31
82 D8 DD 67 02 00 63 DA DE 72 04 00 31 88 16 01 D8 2E 07 E0 30 5D E1 2E
03 E1 E2 E3 31 88 E1 E4 31 82 E5 30 5D E6 2E 03 E6 E2 E7 31 88 E6 E8 31
82 D8 E9 62 2C 03 12 D8 EB EC 31 88 C3 19 01
)
STRUCTURE-CLASS #.(SVREF (GET 'CLASS 'SYSTEM::DEFSTRUCT-DESCRIPTION) 0.)
MAKE-STRUCTURE-CLASS SYSTEM::REMOVE-OLD-DEFINITIONS
#Y(MAKE-STRUCTURE-CLASS
#71Y(00 00 00 00 80 1B 00 06 00 01 3C 06 3C 05 3C 04 3C 03 3C 02 3A 01 03
0E 07 F7 68 00 01 E0 71 33 E1 AB E2 B4 31 32 E1 AB E3 B3 31 32 E1 AB
E4 B2 31 32 E1 AB E5 B1 31 32 E1 AB E6 B0 31 32 E1 AB E7 AF 31 32 15
19 07
)
NIL :METACLASS :CLASSNAME :DIRECT-SUPERCLASSES :ALL-SUPERCLASSES
:PRECEDENCE-LIST :SLOT-LOCATION-TABLE EMPTY-HT 7. STRUCTURE-CLASS 1. 2.
3. 4. 5. 6.
)
SYSTEM::DEFSTRUCT-DESCRIPTION
((METACLASS 1. NIL T NIL) (CLASSNAME 2. NIL T NIL)
(DIRECT-SUPERCLASSES 3. NIL T NIL) (ALL-SUPERCLASSES 4. NIL T NIL)
(PRECEDENCE-LIST 5. NIL T NIL) (SLOT-LOCATION-TABLE 6. EMPTY-HT T NIL)
)
DEFINE-STRUCTURE-CLASS (INLINE STRUCTURE-CLASS-P) STRUCTURE-CLASS-P
SYSTEM::INLINE-EXPANSION
((SYSTEM::OBJECT) (DECLARE (SYSTEM::IN-DEFUN STRUCTURE-CLASS-P))
(BLOCK STRUCTURE-CLASS-P
(SYSTEM::%STRUCTURE-TYPE-P 'STRUCTURE-CLASS SYSTEM::OBJECT)
) )
#Y(STRUCTURE-CLASS-P #12Y(00 01 00 00 00 02 D8 AC 31 35 19 02)
STRUCTURE-CLASS
)
(INLINE COPY-STRUCTURE-CLASS) COPY-STRUCTURE-CLASS
((STRUCTURE) (DECLARE (SYSTEM::IN-DEFUN COPY-STRUCTURE-CLASS))
(BLOCK COPY-STRUCTURE-CLASS (SYSTEM::%COPY-STRUCTURE STRUCTURE))
)
#Y(COPY-STRUCTURE-CLASS #11Y(00 01 00 00 00 02 AB 31 34 19 02)) STRUCTURE
SYSTEM::%SET-DOCUMENTATION SYSTEM::STRUCTURE-PRINT
#Y(STRUCTURE-CLASS-PRINT-FUNCTION
#14Y(00 03 00 00 00 04 AD AD AD 2C 03 00 19 04) PRINT-CLASS
) )
#Y(#:TOP-LEVEL-FORM-59
#373Y(00 00 00 00 00 01 00 2A 01 D8 C4 5C 0B 00 00 DA 2E 03 DA AB 6C 04 01
31 82 D8 DD 67 02 00 63 DA DE 72 04 00 31 88 16 01 D8 2E 07 E0 30 5D
E1 2E 03 E1 E2 E3 31 88 E1 E4 31 82 E5 30 5D E6 2E 03 E6 E2 E7 31 88
E6 E8 31 82 E9 30 5D EA 30 5D EB 2E 03 EB E2 EC 31 88 EB ED 31 82 EE
30 5D EF 30 5D F0 2E 03 F0 E2 F1 31 88 F0 F2 31 82 F3 30 5D F4 30 5D
F5 2E 03 F5 E2 64 1E 31 88 F5 64 1F 31 82 64 20 30 5D 64 21 30 5D 64
22 2E 03 64 22 E2 64 23 31 88 64 22 64 24 31 82 64 25 30 5D 64 26 30
5D 64 27 2E 03 64 27 E2 64 28 31 88 64 27 64 29 31 82 64 2A 30 5D 64
2B 30 5D 64 2C 2E 03 64 2C E2 64 2D 31 88 64 2C 64 2E 31 82 64 2F 30
5D 64 30 30 5D 64 31 2E 03 64 31 E2 64 32 31 88 64 31 64 33 31 82 EB
64 34 64 35 03 36 79 31 88 EB 64 37 62 2C 03 38 F0 64 34 64 35 03 39
79 31 88 F0 64 37 62 2C 03 38 F5 64 34 64 35 03 3A 79 31 88 F5 64 37
62 2C 03 38 64 22 64 34 64 35 03 3B 79 31 88 64 22 64 37 62 2C 03 38
64 27 64 34 64 35 03 3C 79 31 88 64 27 64 37 62 2C 03 38 64 2C 64 34
64 35 03 3D 79 31 88 64 2C 64 37 62 2C 03 38 64 31 64 34 64 35 03 3E
79 31 88 64 31 64 37 62 2C 03 38 D8 64 3F 62 2C 03 38 D8 64 40 64 41
31 88 C3 19 01
)
STANDARD-CLASS #.(SVREF (GET 'CLASS 'SYSTEM::DEFSTRUCT-DESCRIPTION) 0.)
MAKE-STANDARD-CLASS SYSTEM::REMOVE-OLD-DEFINITIONS
#Y(MAKE-STANDARD-CLASS
#127Y(00 00 00 00 80 1B 00 0D 00 01 3C 0D 3C 0C 3C 0B 3C 0A 3C 09 3A 08
03 0E 0E FE 3C 07 3C 06 3C 05 3C 04 3C 03 3C 02 3C 01 68 00 01 E7
71 33 E8 AB E9 BB 31 32 E8 AB EA BA 31 32 E8 AB EB B9 31 32 E8 AB
EC B8 31 32 E8 AB ED B7 31 32 E8 AB EE B6 31 32 E8 AB EF B5 31 32
E8 AB F0 B4 31 32 E8 AB F1 B3 31 32 E8 AB F2 B2 31 32 E8 AB F3 B1
31 32 E8 AB F4 B0 31 32 E8 AB F5 AF 31 32 15 19 0E
)
NIL :METACLASS :CLASSNAME :DIRECT-SUPERCLASSES :ALL-SUPERCLASSES
:PRECEDENCE-LIST :SLOT-LOCATION-TABLE :DIRECT-SLOTS :SLOTS
:INSTANCE-SLOT-COUNT :SHARED-SLOTS :DIRECT-DEFAULT-INITARGS
:DEFAULT-INITARGS :VALID-INITARGS EMPTY-HT 14. STANDARD-CLASS 1. 2. 3. 4.
5. 6. 7. 8. 9. 10. 11. 12. 13.
)
SYSTEM::DEFSTRUCT-DESCRIPTION
((METACLASS 1. NIL T NIL) (CLASSNAME 2. NIL T NIL)
(DIRECT-SUPERCLASSES 3. NIL T NIL) (ALL-SUPERCLASSES 4. NIL T NIL)
(PRECEDENCE-LIST 5. NIL T NIL) (SLOT-LOCATION-TABLE 6. EMPTY-HT T NIL)
(DIRECT-SLOTS 7. NIL T NIL) (SLOTS 8. NIL T NIL)
(INSTANCE-SLOT-COUNT 9. NIL T NIL) (SHARED-SLOTS 10. NIL T NIL)
(DIRECT-DEFAULT-INITARGS 11. NIL T NIL) (DEFAULT-INITARGS 12. NIL T NIL)
(VALID-INITARGS 13. NIL T NIL)
)
DEFINE-STRUCTURE-CLASS (INLINE STANDARD-CLASS-P) STANDARD-CLASS-P
SYSTEM::INLINE-EXPANSION
((SYSTEM::OBJECT) (DECLARE (SYSTEM::IN-DEFUN STANDARD-CLASS-P))
(BLOCK STANDARD-CLASS-P
(SYSTEM::%STRUCTURE-TYPE-P 'STANDARD-CLASS SYSTEM::OBJECT)
) )
#Y(STANDARD-CLASS-P #12Y(00 01 00 00 00 02 D8 AC 31 35 19 02) STANDARD-CLASS
)
(INLINE COPY-STANDARD-CLASS) COPY-STANDARD-CLASS
((STRUCTURE) (DECLARE (SYSTEM::IN-DEFUN COPY-STANDARD-CLASS))
(BLOCK COPY-STANDARD-CLASS (SYSTEM::%COPY-STRUCTURE STRUCTURE))
)
#Y(COPY-STANDARD-CLASS #11Y(00 01 00 00 00 02 AB 31 34 19 02))
(FUNCTION CLASS-DIRECT-SLOTS (STANDARD-CLASS) T) (INLINE CLASS-DIRECT-SLOTS)
CLASS-DIRECT-SLOTS
(#1=(SYSTEM::OBJECT) (DECLARE (SYSTEM::IN-DEFUN CLASS-DIRECT-SLOTS))
(BLOCK CLASS-DIRECT-SLOTS
(THE T (SYSTEM::%STRUCTURE-REF 'STANDARD-CLASS SYSTEM::OBJECT 7.))
) )
#Y(CLASS-DIRECT-SLOTS #13Y(00 01 00 00 00 02 D8 AC D9 31 31 19 02)
STANDARD-CLASS 7.
)
(FUNCTION CLASS-SLOTS (STANDARD-CLASS) T) (INLINE CLASS-SLOTS) CLASS-SLOTS
(#1# (DECLARE (SYSTEM::IN-DEFUN CLASS-SLOTS))
(BLOCK CLASS-SLOTS
(THE T (SYSTEM::%STRUCTURE-REF 'STANDARD-CLASS SYSTEM::OBJECT 8.))
) )
#Y(CLASS-SLOTS #13Y(00 01 00 00 00 02 D8 AC D9 31 31 19 02) STANDARD-CLASS
8.
)
(FUNCTION CLASS-INSTANCE-SLOT-COUNT (STANDARD-CLASS) T)
(INLINE CLASS-INSTANCE-SLOT-COUNT) CLASS-INSTANCE-SLOT-COUNT
(#1# (DECLARE (SYSTEM::IN-DEFUN CLASS-INSTANCE-SLOT-COUNT))
(BLOCK CLASS-INSTANCE-SLOT-COUNT
(THE T (SYSTEM::%STRUCTURE-REF 'STANDARD-CLASS SYSTEM::OBJECT 9.))
) )
#Y(CLASS-INSTANCE-SLOT-COUNT #13Y(00 01 00 00 00 02 D8 AC D9 31 31 19 02)
STANDARD-CLASS 9.
)
(FUNCTION CLASS-SHARED-SLOTS (STANDARD-CLASS) T) (INLINE CLASS-SHARED-SLOTS)
CLASS-SHARED-SLOTS
(#1# (DECLARE (SYSTEM::IN-DEFUN CLASS-SHARED-SLOTS))
(BLOCK CLASS-SHARED-SLOTS
(THE T (SYSTEM::%STRUCTURE-REF 'STANDARD-CLASS SYSTEM::OBJECT 10.))
) )
#Y(CLASS-SHARED-SLOTS #13Y(00 01 00 00 00 02 D8 AC D9 31 31 19 02)
STANDARD-CLASS 10.
)
(FUNCTION CLASS-DIRECT-DEFAULT-INITARGS (STANDARD-CLASS) T)
(INLINE CLASS-DIRECT-DEFAULT-INITARGS) CLASS-DIRECT-DEFAULT-INITARGS
(#1# (DECLARE (SYSTEM::IN-DEFUN CLASS-DIRECT-DEFAULT-INITARGS))
(BLOCK CLASS-DIRECT-DEFAULT-INITARGS
(THE T (SYSTEM::%STRUCTURE-REF 'STANDARD-CLASS SYSTEM::OBJECT 11.))
) )
#Y(CLASS-DIRECT-DEFAULT-INITARGS
#13Y(00 01 00 00 00 02 D8 AC D9 31 31 19 02) STANDARD-CLASS 11.
)
(FUNCTION CLASS-DEFAULT-INITARGS (STANDARD-CLASS) T)
(INLINE CLASS-DEFAULT-INITARGS) CLASS-DEFAULT-INITARGS
(#1# (DECLARE (SYSTEM::IN-DEFUN CLASS-DEFAULT-INITARGS))
(BLOCK CLASS-DEFAULT-INITARGS
(THE T (SYSTEM::%STRUCTURE-REF 'STANDARD-CLASS SYSTEM::OBJECT 12.))
) )
#Y(CLASS-DEFAULT-INITARGS #13Y(00 01 00 00 00 02 D8 AC D9 31 31 19 02)
STANDARD-CLASS 12.
)
(FUNCTION CLASS-VALID-INITARGS (STANDARD-CLASS) T)
(INLINE CLASS-VALID-INITARGS) CLASS-VALID-INITARGS
(#1# (DECLARE (SYSTEM::IN-DEFUN CLASS-VALID-INITARGS))
(BLOCK CLASS-VALID-INITARGS
(THE T (SYSTEM::%STRUCTURE-REF 'STANDARD-CLASS SYSTEM::OBJECT 13.))
) )
#Y(CLASS-VALID-INITARGS #13Y(00 01 00 00 00 02 D8 AC D9 31 31 19 02)
STANDARD-CLASS 13.
)
SYSTEM::SETF-EXPANDER -1.
#Y(SETF-CLASS-DIRECT-SLOTS
#18Y(00 02 00 00 00 03 9D 5B 77 D8 D9 AC DA B0 60 05 19 04)
SYSTEM::%STRUCTURE-STORE 'STANDARD-CLASS 7.
)
SETF SYSTEM::%SET-DOCUMENTATION
#Y(SETF-CLASS-SLOTS
#18Y(00 02 00 00 00 03 9D 5B 77 D8 D9 AC DA B0 60 05 19 04)
SYSTEM::%STRUCTURE-STORE 'STANDARD-CLASS 8.
)
#Y(SETF-CLASS-INSTANCE-SLOT-COUNT
#18Y(00 02 00 00 00 03 9D 5B 77 D8 D9 AC DA B0 60 05 19 04)
SYSTEM::%STRUCTURE-STORE 'STANDARD-CLASS 9.
)
#Y(SETF-CLASS-SHARED-SLOTS
#18Y(00 02 00 00 00 03 9D 5B 77 D8 D9 AC DA B0 60 05 19 04)
SYSTEM::%STRUCTURE-STORE 'STANDARD-CLASS 10.
)
#Y(SETF-CLASS-DIRECT-DEFAULT-INITARGS
#18Y(00 02 00 00 00 03 9D 5B 77 D8 D9 AC DA B0 60 05 19 04)
SYSTEM::%STRUCTURE-STORE 'STANDARD-CLASS 11.
)
#Y(SETF-CLASS-DEFAULT-INITARGS
#18Y(00 02 00 00 00 03 9D 5B 77 D8 D9 AC DA B0 60 05 19 04)
SYSTEM::%STRUCTURE-STORE 'STANDARD-CLASS 12.
)
#Y(SETF-CLASS-VALID-INITARGS
#18Y(00 02 00 00 00 03 9D 5B 77 D8 D9 AC DA B0 60 05 19 04)
SYSTEM::%STRUCTURE-STORE 'STANDARD-CLASS 13.
)
STRUCTURE SYSTEM::STRUCTURE-PRINT
#Y(STANDARD-CLASS-PRINT-FUNCTION
#14Y(00 03 00 00 00 04 AD AD AD 2C 03 00 19 04) PRINT-CLASS
) )
#Y(#:TOP-LEVEL-FORM-60
#52Y(00 00 00 00 00 01 D8 D9 37 01 71 84 C5 5E 14 DB DC DD DE DF E0 E1 E2 E3
E4 E5 E6 E7 E8 E9 EA EB EC ED EE EF F0 F1 F2 F3 F4 F5 63 64 1E 72 1D 00
2F 1F 19 01
)
CLASS SYSTEM::DEFSTRUCT-DESCRIPTION 0. ARRAY BIT-VECTOR CHARACTER COMPLEX
CONS FLOAT FUNCTION HASH-TABLE INTEGER NULL PACKAGE PATHNAME
LOGICAL-PATHNAME RANDOM-STATE RATIO READTABLE STANDARD-GENERIC-FUNCTION
STREAM FILE-STREAM SYNONYM-STREAM BROADCAST-STREAM CONCATENATED-STREAM
TWO-WAY-STREAM ECHO-STREAM STRING-STREAM STRING SYMBOL VECTOR %DEFCLOS
)
#Y(#:TOP-LEVEL-FORM-61 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
PRINT-CLASS SYSTEM::REMOVE-OLD-DEFINITIONS
#Y(PRINT-CLASS
#34Y(00 03 00 00 00 04 00 2A 02 7E 04 00 00 7E 03 00 01 AA 6C 00 01 67 01
00 67 02 01 D9 63 2C 05 02 19 05
)
#Y(PRINT-CLASS-1
#24Y(00 00 00 00 00 01 68 00 01 D9 AB DA 80 31 00 37 0C 68 00 02 30 84
19 01
)
NIL CLASS 2.
)
:TYPE SYSTEM::WRITE-UNREADABLE
) )
#Y(#:TOP-LEVEL-FORM-62
#18Y(00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 82 C3 19 01) DEFCLASS
SYSTEM::REMOVE-OLD-DEFINITIONS SYSTEM::MACRO
#Y(DEFCLASS
#1200Y(00 01 00 01 00 08 AC 71 48 D8 8F 01 2F 1E 9D 5B 77 9E 5B 5B 77 9F
5B 5B 5B 77 A0 5B 5B 5B 78 AD 8E 08 0E AC 8E 0D 16 62 AD 1A 80 54
AC 2E 01 19 03 DA DB DC DD 6D 03 06 DF B0 32 02 1F DA E0 E1 E2 6D
03 06 DF A1 1A 83 75 DA E3 E4 E5 6D 03 06 DF A4 1A 84 22 DA E8 E9
EA 6D 03 06 DF B3 A3 1A 84 17 DA EB EC ED 6D 03 06 CA 1A 80 4A 93
00 AA 8E 08 56 E6 E7 AC 7A 02 7A 02 83 02 16 01 82 00 9B 20 6A 16
01 AA 7F A7 00 01 02 AE 8E 0D 46 62 AF 9B 1F 82 6E 93 00 AA 62 9D
1F 06 86 02 01 9D 5B F6 AB 8E 08 FF BB AB B0 EE 37 02 8C B7 1B DA
EF F0 F1 6D 03 06 CA 14 B8 A0 1A 83 BC DA F2 F3 F4 6D 03 06 DF C1
A9 1A 83 AF AB 83 05 01 09 B3 71 48 8D 95 68 B3 1A 81 25 93 00 9C
5B 77 9C 25 1D 81 01 DA 64 1F 64 20 64 21 6D 03 06 CA 1A 80 EB AA
83 0A 1A 81 01 AA 88 1E 68 AB 23 22 72 AB 24 23 80 F4 9B 1A 1D DA
64 24 64 25 64 26 6D 03 06 CA 1A 80 C7 AA 8E 08 6E AA 83 0B AA 83
0A 64 27 AB 60 02 14 83 09 1A 80 CE DA 64 28 64 29 64 2A 6D 03 06
DF 65 1A 03 2B 1A 80 88 DA 64 2E 64 2F 64 30 6D 03 06 DF 65 1A BB
64 2C 64 2D B1 32 06 1F 91 08 55 AA 23 2C 04 AA 24 2D 5F 9B FE 1A
80 96 DA 64 31 64 32 64 33 6D 03 06 CA 1A 80 6C AA 8E 08 6E AA 83
07 1A 80 7E DA 64 34 64 35 64 36 6D 03 06 DF 65 1A 03 37 1A 39 91
06 6C E7 AB 60 02 FC AA 2E 38 FB 1A 80 5E DA 64 39 64 3A 64 3B 6D
03 06 DF 65 1A 03 3C 1A 19 91 04 6C AA 60 01 FA 1A 80 43 DA 64 3D
64 3E 64 3F 6D 03 06 DF 65 1A 03 40 14 04 12 1A 82 94 91 03 68 AA
8D 09 25 DA 64 41 64 42 64 43 6D 03 06 CA 14 65 1A 04 11 1A 82 78
DA 64 44 64 45 64 46 6D 03 06 DF 65 1A BB A1 1A 82 68 9B F9 16 02
9B 5B 5B F6 9B 20 FE D7 16 01 B1 80 4A 07 B0 80 4A 06 B1 62 1A 1E
86 01 00 64 47 AB 64 48 65 19 7A 02 7A 01 64 49 64 48 E7 BC 7A 02
7A 03 7A 04 83 11 82 01 AB 8C 96 5E 16 02 B0 62 1A 80 7A 64 4E E7
B7 71 4A 7A 02 60 02 1A 80 80 64 4F E7 B7 7A 02 60 02 1A 80 7B 64
50 E7 B7 7A 02 60 02 1A 80 76 03 51 1A 80 78 64 52 E7 B7 71 4A 7A
02 60 02 1A 80 71 64 53 B5 60 02 1A 80 6F 64 3C E7 93 0C 7A 02 60
02 1A 80 69 64 40 E7 B6 7A 02 60 02 1A 80 64 86 01 00 64 47 AB 64
4A 64 48 65 1A 7A 02 7A 02 64 27 64 49 64 48 E7 BD 7A 02 7A 03 03
4B 7B 02 7A 04 83 11 82 01 AB 8C 96 56 16 02 64 4C 64 4D E7 B7 7A
02 91 0B FF 74 00 14 91 0B FF 7B 00 14 91 0B FF 80 00 14 B5 23 2D
FF 84 00 14 91 0B FF 83 00 14 91 0B FF 8A 00 14 91 0A FF 8C 00 14
91 0A FF 92 00 14 32 08 23 61 03 16 0A F6 83 02 16 01 82 00 1A FD
8E 16 01 AA 30 A7 16 01 F6 64 54 62 64 55 64 56 64 57 E7 B6 7A 02
64 58 64 4C A5 79 64 59 64 4C A5 79 01 03 BA 62 1A 81 5F 86 01 00
14 8E 0D 81 37 93 00 9B 25 5A 1B 92 05 18 1A 03 92 04 13 DA 64 5B
64 5C 64 5D 6D 03 06 DF 04 19 1A 81 26 91 03 6D 9B 25 5E 81 0F DA
64 60 64 61 64 62 6D 03 06 CA 1A 80 F1 AB 71 48 24 5F 80 FA 9C 5B
77 AA 8E 08 64 64 63 E6 E7 AD 7A 02 7A 02 60 02 FC 16 02 1A 81 02
94 01 9B 1F 20 9B 5B 1B 1C 93 00 8E 0D 17 86 00 00 64 64 64 65 64
66 6D 03 06 DF 65 19 AF 64 67 A0 79 2C 05 68 AA 71 48 8E 95 1F DA
64 69 64 6A 64 6B 6D 03 06 DF 04 1A 14 A1 1A 80 B6 DA 64 6D 64 6E
64 6F 6D 03 06 CA 1A 22 64 6C 64 4C 01 02 AE 9B 1F 30 93 00 8E 08
64 93 00 AD 37 03 8C B7 14 DA 64 70 64 71 64 72 6D 03 06 CA 14 65
1F B5 A0 5A 1A 80 63 93 00 83 02 9B 5B 77 83 01 9B 5B 5B F6 1A 4D
16 01 62 AC 71 4A AC 71 4A 1A 1E 16 03 1A 1F 93 01 9C 1F 77 93 01
E7 AC 7A 02 AB 6E 38 7A 02 AF 7F A6 04 16 02 82 01 82 00 9C 20 63
16 02 AA 30 A7 16 03 79 60 02 FB 16 02 1A 80 42 9C 5B 77 AA 8D 09
30 DA 64 73 64 74 64 75 6D 03 06 CA 14 65 1A A1 14 A0 14 32 04 1F
AB 71 48 23 5F 5E 16 01 DA 64 76 64 77 64 78 6D 03 06 DF 04 18 14
9F 14 32 03 1F 64 40 E7 AC 7A 02 60 02 FA 16 02 82 01 AB 8C 96 FE
9C 16 02 AC AC AC 32 03 23 16 03 7B 06 7A 03 AE 71 4A E6 E7 B6 7A
02 7A 02 7A 01 32 02 23 61 03 19 0A
)
4. SYSTEM::MACRO-CALL-ERROR PROGRAM-ERROR
"~S: class name ~S should be a symbol"
"~S: Klassenname muß ein Symbol sein, nicht ~S"
"~S : Le nom de classe ~S devrait être un symbole." SYSTEM::LANGUAGE
DEFCLASS "~S ~S: expecting list of superclasses instead of ~S"
"~S ~S: Superklassen-Liste erwartet statt ~S"
"~S ~S : on s'attend à une liste de classes supérieures au lieu de ~S"
"~S ~S: superclass name ~S should be a symbol"
"~S ~S: Oberklassenname muß ein Symbol sein, nicht ~S"
"~S ~S : Le nom d'une classe supérieure doit être un symbole et non ~S"
FIND-CLASS QUOTE
"~S ~S: expecting list of slot specifications instead of ~S"
"~S ~S: Slotspezifikationen-Liste erwartet statt ~S"
"~S ~S : on s'attend à une liste de spécifications de composants au lieu de ~S"
"~S ~S: slot name ~S should be a symbol"
"~S ~S: Slotname muß ein Symbol sein, nicht ~S"
"~S ~S : Le nom de composant ~S doit être un symbole et non ~S" #.#'EQ
"~S ~S: There may be only one direct slot with the name ~S."
"~S ~S: Es kann nicht mehrere direkte Slots mit demselben Namen ~S geben."
"~S ~S : Il ne peut pas y avoir plusieurs composants directs avec le même nom ~S."
"~S ~S: slot options for slot ~S don't come in pairs"
"~S ~S: Slot-Optionen zu Slot ~S sind nicht paarig."
"~S ~S : Les options pour le composant ~S ne viennent pas deux à deux."
#S(HASH-TABLE EQ (:DOCUMENTATION . 233.) (:TYPE . 202.)
(:INITFORM . 170.) (:INITARG . 143.) (:ALLOCATION . 113.)
(:ACCESSOR . 52.) (:WRITER . 22.) (:READER . 22.)
)
FUNCTION-NAME-P
"~S ~S, slot option for slot ~S: ~S is not a function name"
"~S ~S, Slot-Option zu Slot ~S: ~S ist kein Funktionsname."
"~S ~S, option pour composant ~S : ~S n'est pas le nom d'une fonction."
:READER :WRITER "~S ~S, slot option for slot ~S: ~S is not a symbol"
"~S ~S, Slot-Option zu Slot ~S: ~S ist kein Symbol."
"~S ~S, option pour composant ~S : ~S n'est pas un symbole." SETF
"~S ~S, slot option ~S for slot ~S may only be given once"
"~S ~S, Slot-Option ~S zu Slot ~S darf nur einmal angegeben werden."
"~S ~S, l'option ~S pour le composant ~S ne peut être spécifiée qu'une seule fois."
:ALLOCATION :INSTANCE :CLASS
"~S ~S, slot option for slot ~S must have the value ~S or ~S, not ~S"
"~S ~S, Slot-Option zu Slot ~S muß den Wert ~S oder ~S haben, nicht ~S"
"~S ~S, l'option ~S pour le composant ~S doit avoir la valeur ~S ou ~S et non ~S"
"~S ~S, slot option for slot ~S: ~S is not a symbol"
"~S ~S, Slot-Option zu Slot ~S: ~S ist kein Symbol."
"~S ~S, option pour composant ~S : ~S n'est pas un symbole."
"~S ~S, slot option ~S for slot ~S may only be given once"
"~S ~S, Slot-Option ~S zu Slot ~S darf nur einmal angegeben werden."
"~S ~S, l'option ~S pour le composant ~S ne peut être spécifiée qu'une seule fois."
:INITFORM MAKE-INITER
"~S ~S, slot option ~S for slot ~S may only be given once"
"~S ~S, Slot-Option ~S zu Slot ~S darf nur einmal angegeben werden."
"~S ~S, l'option ~S pour le composant ~S ne peut être spécifiée qu'une seule fois."
:TYPE "~S ~S, slot option ~S for slot ~S may only be given once"
"~S ~S, Slot-Option ~S zu Slot ~S darf nur einmal angegeben werden."
"~S ~S, l'option ~S pour le composant ~S ne peut être spécifiée qu'une seule fois."
:DOCUMENTATION "~S ~S, slot option for slot ~S: ~S is not a string"
"~S ~S, Slot-Option zu Slot ~S: ~S ist kein String."
"~S ~S, option pour composant ~S : ~S n'est pas une chaîne."
"~S ~S, slot option for slot ~S: ~S is not a valid slot option"
"~S ~S, Slot-Option zu Slot ~S: ~S ist keine gültige Slot-Option."
"~S ~S, option pour composant ~S : ~S n'est pas une option valable."
DEFMETHOD OBJECT SLOT-VALUE NEW-VALUE (NEW-VALUE) LIST :NAME :ACCESSORS
:READERS :WRITERS (:ALLOCATION :CLASS) :INITARGS :INITER LET EVAL-WHEN
(COMPILE LOAD EVAL) ENSURE-CLASS :DIRECT-SUPERCLASSES :DIRECT-SLOTS
#S(HASH-TABLE EQ (:DOCUMENTATION . 25.) (:DEFAULT-INITARGS . 6.)
(:METACLASS . 1.)
)
"~S ~S, option ~S may only be given once"
"~S ~S, Option ~S darf nur einmal angegeben werden."
"~S ~S, l'option ~S ne peut être spécifiée qu'une seule fois."
#S(HASH-TABLE EQ (:DOCUMENTATION . 267.) (:DEFAULT-INITARGS . 47.)
(:METACLASS . 16.)
)
2. "~S ~S, option ~S: ~S is not a symbol"
"~S ~S, Option ~S: ~S ist kein Symbol."
"~S ~S, option ~S : ~S n'est pas un symbole." :METACLASS
"~S ~S: option ~S should be written ~S"
"~S ~S: Option ~S sollte als ~S geschrieben werden."
"~S ~S : L'option ~S devrait être écrite ~S." :DEFAULT-INITARGS WARN
"~S ~S, option ~S: arguments don't come in pairs"
"~S ~S, Option ~S: Argumente sind nicht paarig."
"~S ~S, option ~S : Les arguments ne viennent pas deux à deux."
:DIRECT-DEFAULT-INITARGS "~S ~S, option ~S: ~S is not a symbol"
"~S ~S, Option ~S: ~S ist kein Symbol."
"~S ~S, option ~S : ~S n'est pas un symbole."
"~S ~S, option ~S: ~S may only be given once"
"~S ~S, Option ~S: ~S darf nur einmal angegeben werden."
"~S ~S, option ~S : ~S ne peut être spécifié qu'une seule fois."
"~S ~S, option ~S: ~S is not a string"
"~S ~S, Option ~S: ~S ist kein String."
"~S ~S, option ~S : ~S n'est pas une chaîne." "~S ~S: invalid option ~S"
"~S ~S: Ungültige Option ~S" "~S ~S : option invalide ~S"
) )
#Y(#:TOP-LEVEL-FORM-63 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
MAKE-INITER SYSTEM::REMOVE-OLD-DEFINITIONS
#Y(MAKE-INITER
#31Y(00 01 00 00 00 02 AB 8B 61 0E D8 DA DB 62 AF 7A 03 7A 02 C7 61 02 19
02 D8 D9 AD 60 03 19 02
)
CONS 'NIL FUNCTION LAMBDA ('NIL)
) )
#Y(#:TOP-LEVEL-FORM-64
#231Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 DB DC DD DE 62 DF 72 04 00 31
88 E0 2E 01 E0 E1 31 82 E2 30 5D E3 30 5D E4 2E 01 E4 E5 E6 31 88 E4
E7 31 82 E8 30 5D E9 30 5D EA 2E 01 EA E5 EB 31 88 EA EC 31 82 ED 30
5D EE 30 5D EF 2E 01 EF E5 F0 31 88 EF F1 31 82 F2 30 5D F3 30 5D F4
2E 01 F4 E5 F5 31 88 F4 64 1E 31 82 64 1F 30 5D 64 20 30 5D 64 21 2E
01 64 21 E5 64 22 31 88 64 21 64 23 31 82 E4 64 24 64 25 03 26 79 31
88 E4 64 27 62 2C 03 28 EA 64 24 64 25 03 29 79 31 88 EA 64 27 62 2C
03 28 EF 64 24 64 25 03 2A 79 31 88 EF 64 27 62 2C 03 28 F4 64 24 64
25 03 2B 79 31 88 F4 64 27 62 2C 03 28 64 21 64 24 64 25 03 2C 79 31
88 64 21 64 27 62 2C 03 28 DB 64 2D 62 2C 03 28 DB 64 2E 31 89 C6 19
01
)
MAKE-SLOT-DEFINITION SYSTEM::REMOVE-OLD-DEFINITIONS
#Y(MAKE-SLOT-DEFINITION
#34Y(00 05 00 00 00 06 D8 37 07 70 1B B0 AB C4 5F AF AB C5 5F AE AB C6 5F
AD AB C7 5F AC AB C8 5F 15 19 06
)
5. 0. 1. 2. 3. 4.
)
SLOT-DEFINITION SYSTEM::DEFSTRUCT-DESCRIPTION (SLOT-DEFINITION) VECTOR
((NAME 0. NIL SYMBOL NIL)
(ALLOCATION 1. :INSTANCE #1=(OR (MEMBER :CLASS :INSTANCE) CLASS) NIL)
(INITARGS 2. 'NIL LIST NIL)
(LOCATION 3. NIL #2=(OR NULL INTEGER CONS) NIL)
(INITER 4. NIL #3=(OR NULL CONS) NIL)
)
COPY-SLOT-DEFINITION
#Y(COPY-SLOT-DEFINITION
#35Y(00 01 00 00 00 02 AB 71 48 AA 37 07 70 1B D8 1A 09 AE 9C 5E 14 AC 9D
5F 84 00 AA AD 90 01 32 71 9C 19 05
)
0.
)
(FUNCTION SLOTDEF-NAME (SLOT-DEFINITION) SYMBOL) (INLINE SLOTDEF-NAME)
SLOTDEF-NAME SYSTEM::INLINE-EXPANSION
(#4=(SYSTEM::OBJECT) (DECLARE (SYSTEM::IN-DEFUN SLOTDEF-NAME))
(BLOCK SLOTDEF-NAME (THE SYMBOL (SVREF SYSTEM::OBJECT 0.)))
)
#Y(SLOTDEF-NAME #11Y(00 01 00 00 00 02 AB C3 5E 19 02) 0.)
(FUNCTION SLOTDEF-ALLOCATION (SLOT-DEFINITION) #1#)
(INLINE SLOTDEF-ALLOCATION) SLOTDEF-ALLOCATION
(#4# (DECLARE (SYSTEM::IN-DEFUN SLOTDEF-ALLOCATION))
(BLOCK SLOTDEF-ALLOCATION (THE #1# (SVREF SYSTEM::OBJECT 1.)))
)
#Y(SLOTDEF-ALLOCATION #11Y(00 01 00 00 00 02 AB C3 5E 19 02) 1.)
(FUNCTION SLOTDEF-INITARGS (SLOT-DEFINITION) LIST) (INLINE SLOTDEF-INITARGS)
SLOTDEF-INITARGS
(#4# (DECLARE (SYSTEM::IN-DEFUN SLOTDEF-INITARGS))
(BLOCK SLOTDEF-INITARGS (THE LIST (SVREF SYSTEM::OBJECT 2.)))
)
#Y(SLOTDEF-INITARGS #11Y(00 01 00 00 00 02 AB C3 5E 19 02) 2.)
(FUNCTION SLOTDEF-LOCATION (SLOT-DEFINITION) #2#) (INLINE SLOTDEF-LOCATION)
SLOTDEF-LOCATION
(#4# (DECLARE (SYSTEM::IN-DEFUN SLOTDEF-LOCATION))
(BLOCK SLOTDEF-LOCATION (THE #2# (SVREF SYSTEM::OBJECT 3.)))
)
#Y(SLOTDEF-LOCATION #11Y(00 01 00 00 00 02 AB C3 5E 19 02) 3.)
(FUNCTION SLOTDEF-INITER (SLOT-DEFINITION) #3#) (INLINE SLOTDEF-INITER)
SLOTDEF-INITER
(#4# (DECLARE (SYSTEM::IN-DEFUN SLOTDEF-INITER))
(BLOCK SLOTDEF-INITER (THE #3# (SVREF SYSTEM::OBJECT 4.)))
)
#Y(SLOTDEF-INITER #11Y(00 01 00 00 00 02 AB C3 5E 19 02) 4.)
SYSTEM::SETF-EXPANDER -1.
#Y(SETF-SLOTDEF-NAME
#20Y(00 02 00 00 00 03 9D 5B 77 D8 D9 AC DA 7A 03 AE 60 03 19 04) SETF
SVREF 0.
)
SETF SYSTEM::%SET-DOCUMENTATION
#Y(SETF-SLOTDEF-ALLOCATION
#20Y(00 02 00 00 00 03 9D 5B 77 D8 D9 AC DA 7A 03 AE 60 03 19 04) SETF
SVREF 1.
)
#Y(SETF-SLOTDEF-INITARGS
#20Y(00 02 00 00 00 03 9D 5B 77 D8 D9 AC DA 7A 03 AE 60 03 19 04) SETF
SVREF 2.
)
#Y(SETF-SLOTDEF-LOCATION
#20Y(00 02 00 00 00 03 9D 5B 77 D8 D9 AC DA 7A 03 AE 60 03 19 04) SETF
SVREF 3.
)
#Y(SETF-SLOTDEF-INITER
#20Y(00 02 00 00 00 03 9D 5B 77 D8 D9 AC DA 7A 03 AE 60 03 19 04) SETF
SVREF 4.
)
STRUCTURE SYSTEM::STRUCTURE-PRINT
)
#Y(#:TOP-LEVEL-FORM-65 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
MAKE-SLOTDEF SYSTEM::REMOVE-OLD-DEFINITIONS
#Y(MAKE-SLOTDEF
#34Y(00 00 00 00 80 1B 00 0B 00 00 3C 0B 3A 0A 03 CE 09 0A 3C 09 3C 08 3C
07 B5 B5 B5 B5 B5 2C 05 0C 19 0C
)
:NAME :ALLOCATION :INITARGS :LOCATION :INITER :INITFORM :ACCESSORS
:READERS :WRITERS :TYPE :DOCUMENTATION :INSTANCE MAKE-SLOT-DEFINITION
) )
#Y(#:TOP-LEVEL-FORM-66 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
ENSURE-CLASS SYSTEM::REMOVE-OLD-DEFINITIONS
#Y(ENSURE-CLASS
#241Y(00 01 00 00 C1 00 00 05 00 00 3A 05 03 0E 05 FB 3C 04 3C 03 3C 02
3C 01 B1 62 37 01 71 2C 92 00 80 A9 B0 0E 05 22 80 8B B0 AB 31 2B
22 80 84 AF DE AC DF 71 31 8E 04 80 7A AE E0 AC E1 71 31 8A 0A 80
70 AD E0 AC E3 71 31 8A 0C 80 66 E0 AB E1 71 31 AF 92 00 26 93 01
E5 37 01 71 85 93 01 E5 37 01 71 85 92 01 0A 14 93 01 30 AC AB 94
01 30 AE 16 02 94 01 82 01 69 01 91 00 5A 16 02 E0 AB E3 71 31 AE
92 00 1E 9C 5B 77 9C 5B 77 AB 93 01 30 AC AB 94 01 30 AE 16 02 9C
5B 78 9C 5B 5B F7 69 01 91 00 62 16 02 92 02 06 B2 E6 AE 2C 03 0F
15 19 08 E8 E9 EA EB 6D 03 14 ED B5 32 02 1F 97 16 1A 22 97 18 1A
1E 97 1A 1A 1A 92 02 06 B2 E6 AE 2C 03 0F B0 0E 05 21 66 B0 0E 17
21 65 B0 0E 19 21 64 97 1B 14 B1 F4 B5 A6 76 03 B3 2F 1D 19 09
)
:METACLASS :DIRECT-SUPERCLASSES :DIRECT-SLOTS :DIRECT-DEFAULT-INITARGS
:DOCUMENTATION <STANDARD-CLASS> CLASS 3. STANDARD-CLASS 7. EQUAL-SLOTS
11. EQUAL-DEFAULT-INITARGS :INITER TYPE SYSTEM::%SET-DOCUMENTATION ERROR
"~S: Cannot redefine class ~S"
"~S: Klasse ~S kann nicht umdefiniert werden."
"~S : La classe ~S ne peut pas être redéfinie." SYSTEM::LANGUAGE DEFCLASS
MAKE-INSTANCE-STANDARD-CLASS <BUILT-IN-CLASS>
MAKE-INSTANCE-BUILT-IN-CLASS <STRUCTURE-CLASS>
MAKE-INSTANCE-STRUCTURE-CLASS MAKE-INSTANCE :NAME
#.(SYSTEM::GET-SETF-SYMBOL 'FIND-CLASS)
) )
#Y(#:TOP-LEVEL-FORM-67 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
EQUAL-SLOTS SYSTEM::REMOVE-OLD-DEFINITIONS
#Y(EQUAL-SLOTS
#46Y(00 02 00 00 00 03 92 02 05 1A 07 91 02 04 9C 58 1D 1A AC 31 06 1E 15
AB 31 06 1E 10 93 02 93 02 2F 00 1E 08 94 02 94 02 28 02 05 5F 19 03
)
EQUAL-SLOT
) )
#Y(#:TOP-LEVEL-FORM-68 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
EQUAL-SLOT SYSTEM::REMOVE-OLD-DEFINITIONS
#Y(EQUAL-SLOT
#59Y(00 02 00 00 00 03 92 02 13 1A 15 16 01 9D 5B 77 9D 5B 77 31 04 1E 22
1A 16 91 02 04 9C 58 1D 19 93 02 9D 5A 59 1E 12 93 02 AA 24 00 5E 16
01 9D 5B 78 9D 5B 78 28 02 05 60 19 03
)
:INITER
) )
#Y(#:TOP-LEVEL-FORM-69 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
EQUAL-DEFAULT-INITARGS SYSTEM::REMOVE-OLD-DEFINITIONS
#Y(EQUAL-DEFAULT-INITARGS
#47Y(00 02 00 00 00 03 92 02 05 1A 07 91 02 04 9C 58 1D 1B AC 31 06 1E 16
AB 31 06 1E 11 93 02 9D 5A 59 1E 0A 9D 5B 78 9D 5B 78 28 02 05 5E 19
03
) ) )
#Y(#:TOP-LEVEL-FORM-70 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
ADD-DEFAULT-SUPERCLASS SYSTEM::REMOVE-OLD-DEFINITIONS
#Y(ADD-DEFAULT-SUPERCLASS
#26Y(00 02 00 00 00 03 AB AD D8 37 02 8B B7 09 AC AC 7A 01 32 02 23 19 03
9D 19 03
)
#.#'EQ
) )
#Y(#:TOP-LEVEL-FORM-71
#36Y(00 00 00 00 00 01 00 2A 01 00 0B 00 00 D8 2E 01 D8 AB 6C 02 01 31 82 DB
2E 01 DB AB 6C 04 01 31 82 C6 19 02
)
DEF-UNBOUND SYSTEM::REMOVE-OLD-DEFINITIONS
#Y(DEF-UNBOUND #12Y(00 01 00 00 00 02 9C 0C 00 01 19 02) NIL)
MAKE-INSTANCE-STANDARD-CLASS
#Y(MAKE-INSTANCE-STANDARD-CLASS
#387Y(00 01 00 00 C0 1C 00 04 00 01 3C 04 3C 03 3C 02 3C 01 98 05 AE 90
00 28 80 54 E4 AF E5 B2 6D 04 0E AE 70 A2 E7 AC E8 AD 31 32 16 01
AA AF 6A 11 6F 12 6F 13 E7 AC EC AD 31 32 16 01 E7 AB EC 71 31 6E
15 E7 AC EE AD 31 32 16 01 EF AB F0 B0 31 32 AA 6E 19 EF AC F2 AD
31 32 16 01 37 05 03 1B F9 70 66 F4 F5 EF AE F2 71 31 AA 1A 80 4E
DE DF E0 E1 6D 03 0A E3 B1 98 05 B2 37 04 71 5F 32 03 1F B0 84 07
15 1A 27 B2 A1 79 84 06 15 1A 1F 93 00 AA 03 1D 5E 14 AB 03 1C 5E
14 AA 23 1E 62 AA A4 21 64 AB E7 AC 64 1F 71 31 37 01 30 67 14 AA
AE D3 5F AC B3 AC 30 68 16 04 82 00 9B 20 50 16 02 E7 AE 64 1F AF
31 32 EF AE 64 20 AE 31 32 AA 8E 93 80 50 AA 37 07 70 1B F5 EF B0
F2 71 31 AA 1A 30 93 00 35 00 1A 12 5A 1B 77 9B 5B 1A 0B AA 03 16
5E 14 91 00 71 07 00 01 F6 AF A0 5F 84 03 16 01 1A 0C 93 00 AA 03
1C 5E 14 A4 21 61 16 01 82 00 9B 20 6F 16 02 9C 16 01 F6 EF AF 64
21 AD 31 32 16 01 16 03 EF AB 64 22 AF 31 32 62 E7 AC EC 71 31 1A
1B EF AB 64 22 71 31 2E 23 1A 08 93 00 EF AB 8D 35 6F 00 14 AD 7F
A6 02 16 01 82 00 9B 20 6C 16 01 AA 7F A7 00 63 37 05 03 24 F8 71
55 EF AC 64 25 AD 31 32 16 01 98 26 EF AC F2 71 31 6F 27 37 06 71
55 EF AC 64 28 AD 31 32 16 01 15 19 06
)
NIL :NAME :DIRECT-SUPERCLASSES :DIRECT-SLOTS :DIRECT-DEFAULT-INITARGS
STANDARD-CLASS-P ERROR
"~S ~S: superclass ~S should belong to class STANDARD-CLASS"
"~S ~S: Oberklasse ~S sollte zur Klasse STANDARD-CLASS gehören."
"~S ~S : La classe supérieure ~S n'appartient pas à la classe STANDARD-CLASS."
SYSTEM::LANGUAGE DEFCLASS :CLASSNAME :METACLASS MAKE-STANDARD-CLASS CLASS
3. <STANDARD-OBJECT> ADD-DEFAULT-SUPERCLASS STD-COMPUTE-CPL 5.
STD-COMPUTE-SUPERCLASSES 4. STANDARD-CLASS 7. STD-COMPUTE-SLOTS 8. #.#'EQ
1. 0. :INSTANCE 6. 9. 10. 11. PLIST-TO-ALIST #.#'CAR 12. SLOTDEF-INITARGS
MAPCAP 13.
) )
#Y(#:TOP-LEVEL-FORM-72 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
STD-COMPUTE-CPL SYSTEM::REMOVE-OLD-DEFINITIONS
#Y(STD-COMPUTE-CPL
#342Y(00 02 00 00 00 03 00 2A 02 98 00 AD 6F 01 37 06 71 55 62 AF A0 79
60 01 0B 02 00 62 AC 1A 80 7B DE DF E0 E1 6D 03 0A E3 DA B4 E4 71
31 67 07 00 67 08 01 72 02 23 9B 5A 77 7A 01 93 00 AC 62 1A 27 AC
94 01 37 06 71 60 AB 30 98 16 02 1A 20 D0 16 02 1A 32 AA 83 02 16
02 1A 60 86 01 00 AC 94 01 37 03 8B B7 5B 82 01 AB 8C 96 6F 00 16
02 14 92 00 5C AA AD 37 03 8C B7 5A AA AD 37 03 70 B7 62 30 AE 9D
16 02 16 01 F6 32 03 1F 93 00 AA DA AC DB 31 31 79 83 02 16 01 82
00 9B 20 6E 16 01 AA 30 A7 16 01 0B 02 01 06 02 00 1C 80 6A DC 67
03 00 72 00 17 63 37 05 71 55 AD 6C 05 01 AB 37 05 80 50 00 1C FF
59 93 00 AA 83 02 AA 67 05 01 37 03 70 BE 06 05 00 5C 0B 04 00 AA
67 05 01 37 07 C7 F9 31 52 0B 04 01 67 04 00 AA 1A 12 9B 5A 77 9E
22 0A 93 00 82 00 AB AB 30 AC 16 01 82 00 9B 20 6B 16 02 E6 67 05
00 37 05 31 53 0B 04 00 16 02 06 02 00 1B FF 96 AA 80 4A 00 AE 1A
2F 93 00 AC DA AC E7 71 31 91 00 09 16 03 1A 1E 82 00 92 00 77 93
00 AC 37 03 7F B7 01 1B 71 16 02 E8 E9 EA 6D 03 0A B2 AC 2C 03 13
16 01 82 00 9B 20 4E 16 01 15 19 05
)
CLASS-PRECEDENCE-LIST MAPCAP CLASS 3. #.#'FIRST
#Y(STD-COMPUTE-CPL-1
#66Y(00 01 00 00 00 02 68 00 01 62 1A 13 02 16 02 3E 19 02 86 01 00 AD
94 01 37 03 8B B7 6F 82 01 AB 8C 96 6F 16 02 68 00 02 62 1A 10 02
19 04 86 01 00 AD 94 01 37 03 8B B7 72 82 01 AB 8C 96 6F 00 19 04
)
NIL
)
ERROR "~S ~S: inconsistent precedence graph, cycle ~S"
"~S ~S: Inkonsistenter Präzedenz-Graph, Zyklus ~S"
"~S ~S : graphe de précédences contradictoire, cycle ~S" SYSTEM::LANGUAGE
DEFCLASS 2. ?? #.#'NULL 5.
"(class-precedence-list ~S) and (class-precedence-list ~S) are inconsistent"
"(class-precedence-list ~S) und (class-precedence-list ~S) sind nicht verträglich."
"(class-precedence-list ~S) et (class-precedence-list ~S) sont contradictoires."
WARN
) )
#Y(#:TOP-LEVEL-FORM-73 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
STD-COMPUTE-SUPERCLASSES SYSTEM::REMOVE-OLD-DEFINITIONS
#Y(STD-COMPUTE-SUPERCLASSES
#34Y(00 01 00 00 00 02 37 05 C3 F9 70 66 AC 1A 0B 93 00 AA AD 63 30 68 16
01 82 00 9B 20 72 16 01 15 19 02
)
#.#'EQ
) )
#Y(#:TOP-LEVEL-FORM-74 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
PLIST-TO-ALIST SYSTEM::REMOVE-OLD-DEFINITIONS
#Y(PLIST-TO-ALIST
#31Y(00 01 00 00 00 02 62 92 02 10 93 02 9E 5B 77 AC 7F BC 00 9D 5B 5B F8
91 02 70 AA 31 4A 19 03
) ) )
#Y(#:TOP-LEVEL-FORM-75 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
ALIST-TO-PLIST SYSTEM::REMOVE-OLD-DEFINITIONS
#Y(ALIST-TO-PLIST
#36Y(00 01 00 00 00 02 62 AC 1A 10 93 00 93 00 94 01 7A 02 AD 7F A6 02 16
01 82 00 9B 20 6D 16 01 AA 30 A7 19 03
) ) )
#Y(#:TOP-LEVEL-FORM-76 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
STD-COMPUTE-SLOTS SYSTEM::REMOVE-OLD-DEFINITIONS
#Y(STD-COMPUTE-SLOTS
#345Y(00 01 00 00 00 02 62 D8 AD D9 71 31 1A 80 45 62 DA AC DB 71 31 1A
20 93 00 AA AA 2E 04 F6 DD AB 37 03 30 BE 78 24 06 09 DD AB 37 03
70 BE AF 30 AE 83 02 16 01 82 00 9B 20 5D 16 01 AA 30 A7 16 01 1A
08 93 00 DA AB 8D 35 45 00 14 AD 7F A6 02 16 01 82 00 9B 20 6C 16
01 AA 7F A7 00 37 05 CA F9 70 66 AB 62 1A 80 4D 86 01 00 1A 2D 00
2A 01 00 0B 00 00 4A 09 1A E0 E2 E3 B1 B0 6C 0C 02 E5 98 0E E7 E8
6D 08 11 0E 12 5C 10 12 EB EC 32 01 1E 06 04 00 38 00 00 4C 16 01
9B 5A 77 24 08 4D 94 00 9C 5A 78 AB AB B0 62 30 67 79 AB B0 AC 30
68 16 03 82 01 AB 8C 96 FF AE 16 02 00 2A 01 00 0B 00 00 AA 6C 15
01 AC 30 6A 06 00 00 16 02 F6 62 AB 1A 80 79 93 00 93 00 94 01 98
16 E0 AD DD 93 04 37 03 8B BE 02 03 17 14 62 AF 1A 18 F0 9C 79 60
01 1A 23 93 00 F0 AB 37 03 30 BE 78 AD 7F A5 02 16 01 82 00 9B 20
6C 16 01 AA 7F A7 00 63 37 05 71 55 91 00 57 00 F6 AF 62 1A 18 F1
AB 37 03 70 BE 60 01 16 02 1A 13 86 01 00 F1 AB 37 03 8B BE 6A 82
01 AB 8C 96 70 00 16 02 14 32 02 23 79 2E 1A 36 02 16 01 F6 83 02
16 01 82 00 9B 20 FF 83 16 01 AA 30 A7 19 04
)
CLASS 5. STANDARD-CLASS 7. PLIST-TO-ALIST :ALLOCATION :CLASS #.#'EQ :NAME
#(NIL) CONTINUE :INVOKE-FUNCTION
#Y(STD-COMPUTE-SLOTS-1 #13Y(00 00 00 00 01 16 9C 0C 00 01 4D 01 00) NIL
NIL
)
:REPORT SYSTEM::REPORT-NO-NEW-VALUE :INTERACTIVE
#Y(STD-COMPUTE-SLOTS-2 #9Y(00 00 00 00 00 01 00 19 01))
SYSTEM::MAKE-RESTART SYSTEM::*ACTIVE-RESTARTS* "~A"
"Der Wert von (EQ (CAAR SLOT) ':NAME) darf nicht NIL sein."
#Y(STD-COMPUTE-SLOTS-3
#20Y(00 02 00 00 00 03 AC AC 31 4A 79 07 00 01 5C 0C 00 01 19 03) NIL
)
MAKE-SLOTDEF (:ALLOCATION . :INSTANCE) :INITARGS :INITER ALIST-TO-PLIST
) )
#Y(#:TOP-LEVEL-FORM-77 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
MAKE-INSTANCE-BUILT-IN-CLASS SYSTEM::REMOVE-OLD-DEFINITIONS
#Y(MAKE-INSTANCE-BUILT-IN-CLASS
#87Y(00 01 00 00 C0 1C 00 02 00 00 3C 02 3C 01 98 02 AC 90 00 28 30 E0 AD
E1 B0 6D 04 0A AC 70 A2 E3 AC E4 AD 31 32 16 01 AA AD 6F 0D E3 AC E6
AD 31 32 16 01 E3 AB E6 71 31 6E 0F E3 AC E8 AD 31 32 16 01 15 19 04
DB DC DD DE 6D 03 07 AE 98 02 AF 37 04 71 5F 32 02 1F
)
:NAME :DIRECT-SUPERCLASSES BUILT-IN-CLASS-P ERROR
"~S: superclass ~S should belong to class BUILT-IN-CLASS"
"~S: Oberklasse ~S sollte zur Klasse BUILT-IN-CLASS gehören."
"~S : La classe supérieure ~S n'appartient pas à la classe BUILT-IN-CLASS."
SYSTEM::LANGUAGE :CLASSNAME :METACLASS MAKE-BUILT-IN-CLASS CLASS 3.
STD-COMPUTE-CPL 5. STD-COMPUTE-SUPERCLASSES 4.
) )
#Y(#:TOP-LEVEL-FORM-78 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
MAKE-INSTANCE-STRUCTURE-CLASS SYSTEM::REMOVE-OLD-DEFINITIONS
#Y(MAKE-INSTANCE-STRUCTURE-CLASS
#121Y(00 01 00 00 C0 1C 00 03 00 00 3C 03 3C 02 3C 01 9D 5B 1B 80 4C 98
08 AD 90 00 28 80 4F E4 AE E5 B1 6D 04 0E AD 70 A2 E7 AC E8 AD 31
32 16 01 AA AE 6A 11 6F 12 6F 13 E7 AC EC AD 31 32 16 01 E7 AB EC
71 31 6E 15 E7 AC EE AD 31 32 16 01 AC 37 04 03 17 F9 70 66 E7 AC
F0 AD 31 32 16 01 15 19 05 DB DC DD DE 6D 03 07 AF 32 01 1F DB E1
E2 E3 6D 03 07 AF 93 05 32 02 1F
)
:NAME :DIRECT-SUPERCLASSES :SLOTS ERROR
"~S: metaclass STRUCTURE-CLASS forbids more than one direct superclass"
"~S: Metaklasse STRUCTURE-CLASS läßt nur eine direkte Oberklasse zu."
"~S : La classe méta STRUCTURE-CLASS ne permet qu'une seule classe supérieure."
SYSTEM::LANGUAGE STRUCTURE-CLASS-P
"~S: superclass ~S should belong to class STRUCTURE-CLASS"
"~S: Oberklasse ~S sollte zur Klasse STRUCTURE-CLASS gehören."
"~S : La classe supérieure ~S n'appartient pas à la classe STRUCTURE-CLASS."
:CLASSNAME :METACLASS MAKE-STRUCTURE-CLASS CLASS 3. <T>
ADD-DEFAULT-SUPERCLASS STD-COMPUTE-CPL 5. STD-COMPUTE-SUPERCLASSES 4.
#.#'EQ 6.
) )
#Y(#:TOP-LEVEL-FORM-79 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
DEFINE-STRUCTURE-CLASS SYSTEM::REMOVE-OLD-DEFINITIONS
#Y(DEFINE-STRUCTURE-CLASS
#95Y(00 01 00 00 00 02 AB D8 37 01 71 84 91 00 0E 00 19 03 9F 5B 77 37 02
71 2C 60 01 1A 0E 14 C4 5E 14 6A 02 DB AF DC 9F 5B 1B 68 00 14 DD 62
B2 C9 5E 14 1A 1A 93 00 9C 5B 5A 79 60 01 1A 07 93 00 9B 5A 1B 70 00
14 AD 7F A6 02 16 01 82 00 9B 20 6D 16 01 AA 7F A7 00 6D 07 07 AE 2F
08 19 04
)
SYSTEM::DEFSTRUCT-DESCRIPTION 0. <STRUCTURE-CLASS> :NAME
:DIRECT-SUPERCLASSES :SLOTS 3. MAKE-INSTANCE-STRUCTURE-CLASS
#.(SYSTEM::GET-SETF-SYMBOL 'FIND-CLASS)
) )
#Y(#:TOP-LEVEL-FORM-80-1
#19Y(00 00 00 00 00 01 62 D8 63 D9 62 2C 05 02 0F 03 3D 19 01) :NAME
:DIRECT-SUPERCLASSES MAKE-INSTANCE-BUILT-IN-CLASS <T>
)
#Y(#:TOP-LEVEL-FORM-80-2 #13Y(00 00 00 00 00 01 2D 00 0F 01 3D 19 01)
MAKE-STRUCTURE-CLASS <STRUCTURE-CLASS>
)
#Y(#:TOP-LEVEL-FORM-80-3
#38Y(00 00 00 00 00 01 D8 6E 01 DA 2E 01 0F 03 14 D8 AC DC AD 31 32 16 01 6A
03 6A 03 D8 AC DC AD 31 32 16 03 3D 19 01
)
CLASS DEFINE-STRUCTURE-CLASS STRUCTURE-CLASS <STRUCTURE-CLASS> 1.
)
#Y(#:TOP-LEVEL-FORM-80-4 #15Y(00 00 00 00 00 01 62 6C 00 01 30 E7 3D 19 01)
#Y(#:TOP-LEVEL-FORM-80-4-1 #11Y(00 01 00 00 00 02 AB C4 33 19 02) NIL
#Y(DEFINE-STRUCTURE-CLASS-WITH-INCLUDES
#48Y(00 01 00 00 00 02 AB D8 37 01 8E 84 07 AB 62 37 01 8E 2C 03 00 19
02 AB D8 37 01 71 84 C4 5E 14 9B 5B 1C 05 9B 5B 77 27 5D 16 01 AB
2E 02 19 02
)
SYSTEM::DEFSTRUCT-DESCRIPTION 0. DEFINE-STRUCTURE-CLASS
) ) )
#Y(#:TOP-LEVEL-FORM-80-5 #16Y(00 00 00 00 00 01 D8 37 02 31 2C 0F 01 3D 19 01)
STANDARD-CLASS <STANDARD-CLASS>
)
#Y(#:TOP-LEVEL-FORM-80-6 #16Y(00 00 00 00 00 01 D8 37 02 31 2C 0F 01 3D 19 01)
BUILT-IN-CLASS <BUILT-IN-CLASS>
)
#Y(#:TOP-LEVEL-FORM-80-7
#21Y(00 00 00 00 00 01 6A 00 6A 01 DA AC DB AD 31 32 16 02 3D 19 01) <T>
<BUILT-IN-CLASS> CLASS 1.
)
#Y(#:TOP-LEVEL-FORM-80-8 #14Y(00 00 00 00 00 01 6A 00 63 2F 01 3D 19 01) <T>
#.(SYSTEM::GET-SETF-SYMBOL 'FIND-CLASS)
)
#Y(#:TOP-LEVEL-FORM-80-9
#37Y(00 00 00 00 00 01 D8 D9 DA 6A 03 DC 6A 05 7A 01 DE 62 DF 62 E0 6A 09 E2
E3 E4 62 E5 62 2C 12 0E 0F 0F 3D 19 01
)
:CLASSNAME STANDARD-OBJECT :METACLASS <STANDARD-CLASS> :DIRECT-SUPERCLASSES
<T> :DIRECT-SLOTS :SLOTS :SLOT-LOCATION-TABLE EMPTY-HT :INSTANCE-SLOT-COUNT
1. :DIRECT-DEFAULT-INITARGS :DEFAULT-INITARGS MAKE-STANDARD-CLASS
<STANDARD-OBJECT>
)
#Y(#:TOP-LEVEL-FORM-80-10
#38Y(00 00 00 00 00 01 6A 00 6A 00 6A 00 6A 01 7A 02 DA AC DB AD 31 32 16 01
F6 6E 04 DA AC DD AD 31 32 16 02 3D 19 01
)
<STANDARD-OBJECT> <T> CLASS 5. STD-COMPUTE-SUPERCLASSES 4.
)
#Y(#:TOP-LEVEL-FORM-80-11 #14Y(00 00 00 00 00 01 6A 00 D9 2F 02 3D 19 01)
<STANDARD-OBJECT> STANDARD-OBJECT #.(SYSTEM::GET-SETF-SYMBOL 'FIND-CLASS)
)
#Y(#:TOP-LEVEL-FORM-80-12
#18Y(00 00 00 00 00 01 6A 00 D9 71 3D DA 71 2E 2E 03 19 01)
<STANDARD-OBJECT> 2. 1. DEF-UNBOUND
)
#Y(#:TOP-LEVEL-FORM-81 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
SUBCLASSP SYSTEM::REMOVE-OLD-DEFINITIONS
#Y(SUBCLASSP #19Y(00 02 00 00 00 03 AB D8 AE D9 71 31 37 01 30 67 3E 19 03)
CLASS 4.
) )
#Y(#:TOP-LEVEL-FORM-82-1
#27Y(00 00 00 00 00 01 6A 00 D9 DA DB 6A 04 7A 01 2C 05 05 0F 06 14 DA 2F 07
3D 19 01
)
<BUILT-IN-CLASS> :NAME CHARACTER :DIRECT-SUPERCLASSES <T>
MAKE-INSTANCE-BUILT-IN-CLASS <CHARACTER>
#.(SYSTEM::GET-SETF-SYMBOL 'FIND-CLASS)
)
#Y(#:TOP-LEVEL-FORM-82-2
#27Y(00 00 00 00 00 01 6A 00 D9 DA DB 6A 04 7A 01 2C 05 05 0F 06 14 DA 2F 07
3D 19 01
)
<BUILT-IN-CLASS> :NAME FUNCTION :DIRECT-SUPERCLASSES <T>
MAKE-INSTANCE-BUILT-IN-CLASS <FUNCTION>
#.(SYSTEM::GET-SETF-SYMBOL 'FIND-CLASS)
)
#Y(#:TOP-LEVEL-FORM-82-3
#27Y(00 00 00 00 00 01 6A 00 D9 DA DB 6A 04 7A 01 2C 05 05 0F 06 14 DA 2F 07
3D 19 01
)
<BUILT-IN-CLASS> :NAME STANDARD-GENERIC-FUNCTION :DIRECT-SUPERCLASSES
<FUNCTION> MAKE-INSTANCE-BUILT-IN-CLASS <STANDARD-GENERIC-FUNCTION>
#.(SYSTEM::GET-SETF-SYMBOL 'FIND-CLASS)
)
#Y(#:TOP-LEVEL-FORM-82-4
#27Y(00 00 00 00 00 01 6A 00 D9 DA DB 6A 04 7A 01 2C 05 05 0F 06 14 DA 2F 07
3D 19 01
)
<BUILT-IN-CLASS> :NAME HASH-TABLE :DIRECT-SUPERCLASSES <T>
MAKE-INSTANCE-BUILT-IN-CLASS <HASH-TABLE>
#.(SYSTEM::GET-SETF-SYMBOL 'FIND-CLASS)
)
#Y(#:TOP-LEVEL-FORM-82-5
#27Y(00 00 00 00 00 01 6A 00 D9 DA DB 6A 04 7A 01 2C 05 05 0F 06 14 DA 2F 07
3D 19 01
)
<BUILT-IN-CLASS> :NAME PACKAGE :DIRECT-SUPERCLASSES <T>
MAKE-INSTANCE-BUILT-IN-CLASS <PACKAGE>
#.(SYSTEM::GET-SETF-SYMBOL 'FIND-CLASS)
)
#Y(#:TOP-LEVEL-FORM-82-6
#27Y(00 00 00 00 00 01 6A 00 D9 DA DB 6A 04 7A 01 2C 05 05 0F 06 14 DA 2F 07
3D 19 01
)
<BUILT-IN-CLASS> :NAME PATHNAME :DIRECT-SUPERCLASSES <T>
MAKE-INSTANCE-BUILT-IN-CLASS <PATHNAME>
#.(SYSTEM::GET-SETF-SYMBOL 'FIND-CLASS)
)
#Y(#:TOP-LEVEL-FORM-82-7
#27Y(00 00 00 00 00 01 6A 00 D9 DA DB 6A 04 7A 01 2C 05 05 0F 06 14 DA 2F 07
3D 19 01
)
<BUILT-IN-CLASS> :NAME LOGICAL-PATHNAME :DIRECT-SUPERCLASSES <PATHNAME>
MAKE-INSTANCE-BUILT-IN-CLASS <LOGICAL-PATHNAME>
#.(SYSTEM::GET-SETF-SYMBOL 'FIND-CLASS)
)
#Y(#:TOP-LEVEL-FORM-82-8
#27Y(00 00 00 00 00 01 6A 00 D9 DA DB 6A 04 7A 01 2C 05 05 0F 06 14 DA 2F 07
3D 19 01
)
<BUILT-IN-CLASS> :NAME RANDOM-STATE :DIRECT-SUPERCLASSES <T>
MAKE-INSTANCE-BUILT-IN-CLASS <RANDOM-STATE>
#.(SYSTEM::GET-SETF-SYMBOL 'FIND-CLASS)
)
#Y(#:TOP-LEVEL-FORM-82-9
#27Y(00 00 00 00 00 01 6A 00 D9 DA DB 6A 04 7A 01 2C 05 05 0F 06 14 DA 2F 07
3D 19 01
)
<BUILT-IN-CLASS> :NAME READTABLE :DIRECT-SUPERCLASSES <T>
MAKE-INSTANCE-BUILT-IN-CLASS <READTABLE>
#.(SYSTEM::GET-SETF-SYMBOL 'FIND-CLASS)
)
#Y(#:TOP-LEVEL-FORM-82-10
#27Y(00 00 00 00 00 01 6A 00 D9 DA DB 6A 04 7A 01 2C 05 05 0F 06 14 DA 2F 07
3D 19 01
)
<BUILT-IN-CLASS> :NAME STREAM :DIRECT-SUPERCLASSES <T>
MAKE-INSTANCE-BUILT-IN-CLASS <STREAM>
#.(SYSTEM::GET-SETF-SYMBOL 'FIND-CLASS)
)
#Y(#:TOP-LEVEL-FORM-82-11
#27Y(00 00 00 00 00 01 6A 00 D9 DA DB 6A 04 7A 01 2C 05 05 0F 06 14 DA 2F 07
3D 19 01
)
<BUILT-IN-CLASS> :NAME FILE-STREAM :DIRECT-SUPERCLASSES <STREAM>
MAKE-INSTANCE-BUILT-IN-CLASS <FILE-STREAM>
#.(SYSTEM::GET-SETF-SYMBOL 'FIND-CLASS)
)
#Y(#:TOP-LEVEL-FORM-82-12
#27Y(00 00 00 00 00 01 6A 00 D9 DA DB 6A 04 7A 01 2C 05 05 0F 06 14 DA 2F 07
3D 19 01
)
<BUILT-IN-CLASS> :NAME SYNONYM-STREAM :DIRECT-SUPERCLASSES <STREAM>
MAKE-INSTANCE-BUILT-IN-CLASS <SYNONYM-STREAM>
#.(SYSTEM::GET-SETF-SYMBOL 'FIND-CLASS)
)
#Y(#:TOP-LEVEL-FORM-82-13
#27Y(00 00 00 00 00 01 6A 00 D9 DA DB 6A 04 7A 01 2C 05 05 0F 06 14 DA 2F 07
3D 19 01
)
<BUILT-IN-CLASS> :NAME BROADCAST-STREAM :DIRECT-SUPERCLASSES <STREAM>
MAKE-INSTANCE-BUILT-IN-CLASS <BROADCAST-STREAM>
#.(SYSTEM::GET-SETF-SYMBOL 'FIND-CLASS)
)
#Y(#:TOP-LEVEL-FORM-82-14
#27Y(00 00 00 00 00 01 6A 00 D9 DA DB 6A 04 7A 01 2C 05 05 0F 06 14 DA 2F 07
3D 19 01
)
<BUILT-IN-CLASS> :NAME CONCATENATED-STREAM :DIRECT-SUPERCLASSES <STREAM>
MAKE-INSTANCE-BUILT-IN-CLASS <CONCATENATED-STREAM>
#.(SYSTEM::GET-SETF-SYMBOL 'FIND-CLASS)
)
#Y(#:TOP-LEVEL-FORM-82-15
#27Y(00 00 00 00 00 01 6A 00 D9 DA DB 6A 04 7A 01 2C 05 05 0F 06 14 DA 2F 07
3D 19 01
)
<BUILT-IN-CLASS> :NAME TWO-WAY-STREAM :DIRECT-SUPERCLASSES <STREAM>
MAKE-INSTANCE-BUILT-IN-CLASS <TWO-WAY-STREAM>
#.(SYSTEM::GET-SETF-SYMBOL 'FIND-CLASS)
)
#Y(#:TOP-LEVEL-FORM-82-16
#27Y(00 00 00 00 00 01 6A 00 D9 DA DB 6A 04 7A 01 2C 05 05 0F 06 14 DA 2F 07
3D 19 01
)
<BUILT-IN-CLASS> :NAME ECHO-STREAM :DIRECT-SUPERCLASSES <STREAM>
MAKE-INSTANCE-BUILT-IN-CLASS <ECHO-STREAM>
#.(SYSTEM::GET-SETF-SYMBOL 'FIND-CLASS)
)
#Y(#:TOP-LEVEL-FORM-82-17
#27Y(00 00 00 00 00 01 6A 00 D9 DA DB 6A 04 7A 01 2C 05 05 0F 06 14 DA 2F 07
3D 19 01
)
<BUILT-IN-CLASS> :NAME STRING-STREAM :DIRECT-SUPERCLASSES <STREAM>
MAKE-INSTANCE-BUILT-IN-CLASS <STRING-STREAM>
#.(SYSTEM::GET-SETF-SYMBOL 'FIND-CLASS)
)
#Y(#:TOP-LEVEL-FORM-82-18
#27Y(00 00 00 00 00 01 6A 00 D9 DA DB 6A 04 7A 01 2C 05 05 0F 06 14 DA 2F 07
3D 19 01
)
<BUILT-IN-CLASS> :NAME SYMBOL :DIRECT-SUPERCLASSES <T>
MAKE-INSTANCE-BUILT-IN-CLASS <SYMBOL>
#.(SYSTEM::GET-SETF-SYMBOL 'FIND-CLASS)
)
#Y(#:TOP-LEVEL-FORM-82-19
#27Y(00 00 00 00 00 01 6A 00 D9 DA DB 6A 04 7A 01 2C 05 05 0F 06 14 DA 2F 07
3D 19 01
)
<BUILT-IN-CLASS> :NAME SEQUENCE :DIRECT-SUPERCLASSES <T>
MAKE-INSTANCE-BUILT-IN-CLASS <SEQUENCE>
#.(SYSTEM::GET-SETF-SYMBOL 'FIND-CLASS)
)
#Y(#:TOP-LEVEL-FORM-82-20
#27Y(00 00 00 00 00 01 6A 00 D9 DA DB 6A 04 7A 01 2C 05 05 0F 06 14 DA 2F 07
3D 19 01
)
<BUILT-IN-CLASS> :NAME LIST :DIRECT-SUPERCLASSES <SEQUENCE>
MAKE-INSTANCE-BUILT-IN-CLASS <LIST> #.(SYSTEM::GET-SETF-SYMBOL 'FIND-CLASS)
)
#Y(#:TOP-LEVEL-FORM-82-21
#27Y(00 00 00 00 00 01 6A 00 D9 DA DB 6A 04 7A 01 2C 05 05 0F 06 14 DA 2F 07
3D 19 01
)
<BUILT-IN-CLASS> :NAME CONS :DIRECT-SUPERCLASSES <LIST>
MAKE-INSTANCE-BUILT-IN-CLASS <CONS> #.(SYSTEM::GET-SETF-SYMBOL 'FIND-CLASS)
)
#Y(#:TOP-LEVEL-FORM-82-22
#29Y(00 00 00 00 00 01 6A 00 D9 DA DB 6A 04 6A 05 7A 02 2C 05 06 0F 07 14 DA
2F 08 3D 19 01
)
<BUILT-IN-CLASS> :NAME NULL :DIRECT-SUPERCLASSES <SYMBOL> <LIST>
MAKE-INSTANCE-BUILT-IN-CLASS <NULL> #.(SYSTEM::GET-SETF-SYMBOL 'FIND-CLASS)
)
#Y(#:TOP-LEVEL-FORM-82-23
#27Y(00 00 00 00 00 01 6A 00 D9 DA DB 6A 04 7A 01 2C 05 05 0F 06 14 DA 2F 07
3D 19 01
)
<BUILT-IN-CLASS> :NAME ARRAY :DIRECT-SUPERCLASSES <T>
MAKE-INSTANCE-BUILT-IN-CLASS <ARRAY> #.(SYSTEM::GET-SETF-SYMBOL 'FIND-CLASS)
)
#Y(#:TOP-LEVEL-FORM-82-24
#29Y(00 00 00 00 00 01 6A 00 D9 DA DB 6A 04 6A 05 7A 02 2C 05 06 0F 07 14 DA
2F 08 3D 19 01
)
<BUILT-IN-CLASS> :NAME VECTOR :DIRECT-SUPERCLASSES <ARRAY> <SEQUENCE>
MAKE-INSTANCE-BUILT-IN-CLASS <VECTOR>
#.(SYSTEM::GET-SETF-SYMBOL 'FIND-CLASS)
)
#Y(#:TOP-LEVEL-FORM-82-25
#27Y(00 00 00 00 00 01 6A 00 D9 DA DB 6A 04 7A 01 2C 05 05 0F 06 14 DA 2F 07
3D 19 01
)
<BUILT-IN-CLASS> :NAME BIT-VECTOR :DIRECT-SUPERCLASSES <VECTOR>
MAKE-INSTANCE-BUILT-IN-CLASS <BIT-VECTOR>
#.(SYSTEM::GET-SETF-SYMBOL 'FIND-CLASS)
)
#Y(#:TOP-LEVEL-FORM-82-26
#27Y(00 00 00 00 00 01 6A 00 D9 DA DB 6A 04 7A 01 2C 05 05 0F 06 14 DA 2F 07
3D 19 01
)
<BUILT-IN-CLASS> :NAME STRING :DIRECT-SUPERCLASSES <VECTOR>
MAKE-INSTANCE-BUILT-IN-CLASS <STRING>
#.(SYSTEM::GET-SETF-SYMBOL 'FIND-CLASS)
)
#Y(#:TOP-LEVEL-FORM-82-27
#27Y(00 00 00 00 00 01 6A 00 D9 DA DB 6A 04 7A 01 2C 05 05 0F 06 14 DA 2F 07
3D 19 01
)
<BUILT-IN-CLASS> :NAME NUMBER :DIRECT-SUPERCLASSES <T>
MAKE-INSTANCE-BUILT-IN-CLASS <NUMBER>
#.(SYSTEM::GET-SETF-SYMBOL 'FIND-CLASS)
)
#Y(#:TOP-LEVEL-FORM-82-28
#27Y(00 00 00 00 00 01 6A 00 D9 DA DB 6A 04 7A 01 2C 05 05 0F 06 14 DA 2F 07
3D 19 01
)
<BUILT-IN-CLASS> :NAME COMPLEX :DIRECT-SUPERCLASSES <NUMBER>
MAKE-INSTANCE-BUILT-IN-CLASS <COMPLEX>
#.(SYSTEM::GET-SETF-SYMBOL 'FIND-CLASS)
)
#Y(#:TOP-LEVEL-FORM-82-29
#27Y(00 00 00 00 00 01 6A 00 D9 DA DB 6A 04 7A 01 2C 05 05 0F 06 14 DA 2F 07
3D 19 01
)
<BUILT-IN-CLASS> :NAME REAL :DIRECT-SUPERCLASSES <NUMBER>
MAKE-INSTANCE-BUILT-IN-CLASS <REAL> #.(SYSTEM::GET-SETF-SYMBOL 'FIND-CLASS)
)
#Y(#:TOP-LEVEL-FORM-82-30
#27Y(00 00 00 00 00 01 6A 00 D9 DA DB 6A 04 7A 01 2C 05 05 0F 06 14 DA 2F 07
3D 19 01
)
<BUILT-IN-CLASS> :NAME FLOAT :DIRECT-SUPERCLASSES <REAL>
MAKE-INSTANCE-BUILT-IN-CLASS <FLOAT> #.(SYSTEM::GET-SETF-SYMBOL 'FIND-CLASS)
)
#Y(#:TOP-LEVEL-FORM-82-31
#27Y(00 00 00 00 00 01 6A 00 D9 DA DB 6A 04 7A 01 2C 05 05 0F 06 14 DA 2F 07
3D 19 01
)
<BUILT-IN-CLASS> :NAME RATIONAL :DIRECT-SUPERCLASSES <REAL>
MAKE-INSTANCE-BUILT-IN-CLASS <RATIONAL>
#.(SYSTEM::GET-SETF-SYMBOL 'FIND-CLASS)
)
#Y(#:TOP-LEVEL-FORM-82-32
#27Y(00 00 00 00 00 01 6A 00 D9 DA DB 6A 04 7A 01 2C 05 05 0F 06 14 DA 2F 07
3D 19 01
)
<BUILT-IN-CLASS> :NAME RATIO :DIRECT-SUPERCLASSES <RATIONAL>
MAKE-INSTANCE-BUILT-IN-CLASS <RATIO> #.(SYSTEM::GET-SETF-SYMBOL 'FIND-CLASS)
)
#Y(#:TOP-LEVEL-FORM-82-33
#26Y(00 00 00 00 00 01 6A 00 D9 DA DB 6A 04 7A 01 2C 05 05 0F 06 14 DA 2F 07
19 01
)
<BUILT-IN-CLASS> :NAME INTEGER :DIRECT-SUPERCLASSES <RATIONAL>
MAKE-INSTANCE-BUILT-IN-CLASS <INTEGER>
#.(SYSTEM::GET-SETF-SYMBOL 'FIND-CLASS)
)
#Y(#:TOP-LEVEL-FORM-83
#80Y(00 00 00 00 00 01 D8 D9 37 01 71 84 C5 5E 14 6A 03 6A 04 6A 05 6A 06 6A
07 6A 08 6A 09 6A 0A 6A 0B 6A 0C 6A 0D 6A 0E 6A 0F 6A 10 6A 11 6A 12 6A
13 6A 14 6A 15 6A 16 6A 17 6A 18 6A 19 6A 1A 6A 1B 6A 1C 6A 1D 6A 1E 6A
1F 72 1D 00 2F 20 19 01
)
CLASS SYSTEM::DEFSTRUCT-DESCRIPTION 0. <ARRAY> <BIT-VECTOR> <CHARACTER>
<COMPLEX> <CONS> <FLOAT> <FUNCTION> <HASH-TABLE> <INTEGER> <NULL> <PACKAGE>
<PATHNAME> <LOGICAL-PATHNAME> <RANDOM-STATE> <RATIO> <READTABLE>
<STANDARD-GENERIC-FUNCTION> <STREAM> <FILE-STREAM> <SYNONYM-STREAM>
<BROADCAST-STREAM> <CONCATENATED-STREAM> <TWO-WAY-STREAM> <ECHO-STREAM>
<STRING-STREAM> <STRING> <SYMBOL> <T> <VECTOR> %DEFCLOS
)
#Y(#:TOP-LEVEL-FORM-84 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
BC-P SYSTEM::REMOVE-OLD-DEFINITIONS
#Y(BC-P #19Y(00 01 00 00 00 02 AB 2E 00 1D 06 AB 0E 01 59 19 02 19 02)
BUILT-IN-CLASS-P <STANDARD-OBJECT>
) )
#Y(#:TOP-LEVEL-FORM-85 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
BC-AND SYSTEM::REMOVE-OLD-DEFINITIONS
#Y(BC-AND
#81Y(00 02 00 00 00 03 AC AC 89 00 38 AB AD 89 00 36 6A 01 AD 8A 00 06 6A
02 AC 89 00 2D 6A 01 AC 8A 00 06 6A 02 AD 89 00 21 6A 04 AD 8A 00 06
6A 05 AC 89 00 19 6A 04 AC 8A 00 06 6A 05 AD 89 00 0D 00 19 03 9D 19
03 9C 19 03 0E 03 19 03 0E 06 19 03
)
SUBCLASSP <SEQUENCE> <ARRAY> <VECTOR> <LIST> <SYMBOL> <NULL>
) )
#Y(#:TOP-LEVEL-FORM-86 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
BC-AND-NOT SYSTEM::REMOVE-OLD-DEFINITIONS
#Y(BC-AND-NOT
#62Y(00 02 00 00 00 03 AC AC 89 00 24 AC 0E 01 22 06 6A 02 AC 89 00 1C AC
0E 01 22 06 6A 03 AC 89 00 15 AC 0E 03 22 06 6A 04 AC 89 00 0E 9D 19
03 00 19 03 0E 03 19 03 0E 02 19 03 0E 05 19 03
)
SUBCLASSP <SEQUENCE> <VECTOR> <LIST> <NULL> <CONS>
) )
#Y(#:TOP-LEVEL-FORM-87
#357Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 DB DC DD 63 D8 DE 72 04 00 31
88 DB 2E 07 E0 30 5D E1 2E 01 E1 E2 E3 31 88 E1 E4 31 82 E5 30 5D E6
2E 01 E6 E2 E7 31 88 E6 E8 31 82 E9 30 5D EA 30 5D EB 2E 01 EB E2 EC
31 88 EB ED 31 82 EE 30 5D EF 30 5D F0 2E 01 F0 E2 F1 31 88 F0 F2 31
82 F3 30 5D F4 30 5D F5 2E 01 F5 E2 64 1E 31 88 F5 64 1F 31 82 64 20
30 5D 64 21 30 5D 64 22 2E 01 64 22 E2 64 23 31 88 64 22 64 24 31 82
64 25 30 5D 64 26 30 5D 64 27 2E 01 64 27 E2 64 28 31 88 64 27 64 29
31 82 64 2A 30 5D 64 2B 30 5D 64 2C 2E 01 64 2C E2 64 2D 31 88 64 2C
64 2E 31 82 64 2F 30 5D 64 30 30 5D 64 31 2E 01 64 31 E2 64 32 31 88
64 31 64 33 31 82 EB 64 34 64 35 03 36 79 31 88 EB 64 37 62 2C 03 38
F0 64 34 64 35 03 39 79 31 88 F0 64 37 62 2C 03 38 F5 64 34 64 35 03
3A 79 31 88 F5 64 37 62 2C 03 38 64 22 64 34 64 35 03 3B 79 31 88 64
22 64 37 62 2C 03 38 64 27 64 34 64 35 03 3C 79 31 88 64 27 64 37 62
2C 03 38 64 2C 64 34 64 35 03 3D 79 31 88 64 2C 64 37 62 2C 03 38 64
31 64 34 64 35 03 3E 79 31 88 64 31 64 37 62 2C 03 38 DB 64 3F 62 2C
03 38 DB 64 40 64 41 31 88 C6 19 01
)
MAKE-STANDARD-METHOD SYSTEM::REMOVE-OLD-DEFINITIONS
#Y(MAKE-STANDARD-METHOD
#73Y(00 00 00 00 80 1B 00 07 00 00 3C 07 3C 06 3C 05 3C 04 3C 03 3C 02 3C
01 DF E0 71 33 E1 AB E2 B5 31 32 E1 AB E3 B4 31 32 E1 AB E4 B3 31 32
E1 AB E5 B2 31 32 E1 AB E6 B1 31 32 E1 AB E7 B0 31 32 E1 AB E8 AF 31
32 15 19 08
)
:FUNCTION :WANTS-NEXT-METHOD-P :PARAMETER-SPECIALIZERS :QUALIFIERS
:SIGNATURE :GF :INITFUNCTION #1=(STANDARD-METHOD) 8. STANDARD-METHOD 1.
2. 3. 4. 5. 6. 7.
)
STANDARD-METHOD SYSTEM::DEFSTRUCT-DESCRIPTION #1#
((FUNCTION 1. NIL T NIL) (WANTS-NEXT-METHOD-P 2. NIL T NIL)
(PARAMETER-SPECIALIZERS 3. NIL T NIL) (QUALIFIERS 4. NIL T NIL)
(SIGNATURE 5. NIL T NIL) (GF 6. NIL T NIL) (INITFUNCTION 7. NIL T NIL)
)
DEFINE-STRUCTURE-CLASS (INLINE STANDARD-METHOD-P) STANDARD-METHOD-P
SYSTEM::INLINE-EXPANSION
((SYSTEM::OBJECT) (DECLARE (SYSTEM::IN-DEFUN STANDARD-METHOD-P))
(BLOCK STANDARD-METHOD-P
(SYSTEM::%STRUCTURE-TYPE-P 'STANDARD-METHOD SYSTEM::OBJECT)
) )
#Y(STANDARD-METHOD-P #12Y(00 01 00 00 00 02 D8 AC 31 35 19 02)
STANDARD-METHOD
)
(INLINE COPY-STANDARD-METHOD) COPY-STANDARD-METHOD
((STRUCTURE) (DECLARE (SYSTEM::IN-DEFUN COPY-STANDARD-METHOD))
(BLOCK COPY-STANDARD-METHOD (SYSTEM::%COPY-STRUCTURE STRUCTURE))
)
#Y(COPY-STANDARD-METHOD #11Y(00 01 00 00 00 02 AB 31 34 19 02))
(FUNCTION STD-METHOD-FUNCTION (STANDARD-METHOD) T)
(INLINE STD-METHOD-FUNCTION) STD-METHOD-FUNCTION
(#2=(SYSTEM::OBJECT) (DECLARE (SYSTEM::IN-DEFUN STD-METHOD-FUNCTION))
(BLOCK STD-METHOD-FUNCTION
(THE T (SYSTEM::%STRUCTURE-REF 'STANDARD-METHOD SYSTEM::OBJECT 1.))
) )
#Y(STD-METHOD-FUNCTION #13Y(00 01 00 00 00 02 D8 AC D9 31 31 19 02)
STANDARD-METHOD 1.
)
(FUNCTION STD-METHOD-WANTS-NEXT-METHOD-P (STANDARD-METHOD) T)
(INLINE STD-METHOD-WANTS-NEXT-METHOD-P) STD-METHOD-WANTS-NEXT-METHOD-P
(#2# (DECLARE (SYSTEM::IN-DEFUN STD-METHOD-WANTS-NEXT-METHOD-P))
(BLOCK STD-METHOD-WANTS-NEXT-METHOD-P
(THE T (SYSTEM::%STRUCTURE-REF 'STANDARD-METHOD SYSTEM::OBJECT 2.))
) )
#Y(STD-METHOD-WANTS-NEXT-METHOD-P
#13Y(00 01 00 00 00 02 D8 AC D9 31 31 19 02) STANDARD-METHOD 2.
)
(FUNCTION STD-METHOD-PARAMETER-SPECIALIZERS (STANDARD-METHOD) T)
(INLINE STD-METHOD-PARAMETER-SPECIALIZERS) STD-METHOD-PARAMETER-SPECIALIZERS
(#2# (DECLARE (SYSTEM::IN-DEFUN STD-METHOD-PARAMETER-SPECIALIZERS))
(BLOCK STD-METHOD-PARAMETER-SPECIALIZERS
(THE T (SYSTEM::%STRUCTURE-REF 'STANDARD-METHOD SYSTEM::OBJECT 3.))
) )
#Y(STD-METHOD-PARAMETER-SPECIALIZERS
#13Y(00 01 00 00 00 02 D8 AC D9 31 31 19 02) STANDARD-METHOD 3.
)
(FUNCTION STD-METHOD-QUALIFIERS (STANDARD-METHOD) T)
(INLINE STD-METHOD-QUALIFIERS) STD-METHOD-QUALIFIERS
(#2# (DECLARE (SYSTEM::IN-DEFUN STD-METHOD-QUALIFIERS))
(BLOCK STD-METHOD-QUALIFIERS
(THE T (SYSTEM::%STRUCTURE-REF 'STANDARD-METHOD SYSTEM::OBJECT 4.))
) )
#Y(STD-METHOD-QUALIFIERS #13Y(00 01 00 00 00 02 D8 AC D9 31 31 19 02)
STANDARD-METHOD 4.
)
(FUNCTION STD-METHOD-SIGNATURE (STANDARD-METHOD) T)
(INLINE STD-METHOD-SIGNATURE) STD-METHOD-SIGNATURE
(#2# (DECLARE (SYSTEM::IN-DEFUN STD-METHOD-SIGNATURE))
(BLOCK STD-METHOD-SIGNATURE
(THE T (SYSTEM::%STRUCTURE-REF 'STANDARD-METHOD SYSTEM::OBJECT 5.))
) )
#Y(STD-METHOD-SIGNATURE #13Y(00 01 00 00 00 02 D8 AC D9 31 31 19 02)
STANDARD-METHOD 5.
)
(FUNCTION STD-METHOD-GF (STANDARD-METHOD) T) (INLINE STD-METHOD-GF)
STD-METHOD-GF
(#2# (DECLARE (SYSTEM::IN-DEFUN STD-METHOD-GF))
(BLOCK STD-METHOD-GF
(THE T (SYSTEM::%STRUCTURE-REF 'STANDARD-METHOD SYSTEM::OBJECT 6.))
) )
#Y(STD-METHOD-GF #13Y(00 01 00 00 00 02 D8 AC D9 31 31 19 02)
STANDARD-METHOD 6.
)
(FUNCTION STD-METHOD-INITFUNCTION (STANDARD-METHOD) T)
(INLINE STD-METHOD-INITFUNCTION) STD-METHOD-INITFUNCTION
(#2# (DECLARE (SYSTEM::IN-DEFUN STD-METHOD-INITFUNCTION))
(BLOCK STD-METHOD-INITFUNCTION
(THE T (SYSTEM::%STRUCTURE-REF 'STANDARD-METHOD SYSTEM::OBJECT 7.))
) )
#Y(STD-METHOD-INITFUNCTION #13Y(00 01 00 00 00 02 D8 AC D9 31 31 19 02)
STANDARD-METHOD 7.
)
SYSTEM::SETF-EXPANDER -1.
#Y(SETF-STD-METHOD-FUNCTION
#18Y(00 02 00 00 00 03 9D 5B 77 D8 D9 AC DA B0 60 05 19 04)
SYSTEM::%STRUCTURE-STORE 'STANDARD-METHOD 1.
)
SETF SYSTEM::%SET-DOCUMENTATION
#Y(SETF-STD-METHOD-WANTS-NEXT-METHOD-P
#18Y(00 02 00 00 00 03 9D 5B 77 D8 D9 AC DA B0 60 05 19 04)
SYSTEM::%STRUCTURE-STORE 'STANDARD-METHOD 2.
)
#Y(SETF-STD-METHOD-PARAMETER-SPECIALIZERS
#18Y(00 02 00 00 00 03 9D 5B 77 D8 D9 AC DA B0 60 05 19 04)
SYSTEM::%STRUCTURE-STORE 'STANDARD-METHOD 3.
)
#Y(SETF-STD-METHOD-QUALIFIERS
#18Y(00 02 00 00 00 03 9D 5B 77 D8 D9 AC DA B0 60 05 19 04)
SYSTEM::%STRUCTURE-STORE 'STANDARD-METHOD 4.
)
#Y(SETF-STD-METHOD-SIGNATURE
#18Y(00 02 00 00 00 03 9D 5B 77 D8 D9 AC DA B0 60 05 19 04)
SYSTEM::%STRUCTURE-STORE 'STANDARD-METHOD 5.
)
#Y(SETF-STD-METHOD-GF
#18Y(00 02 00 00 00 03 9D 5B 77 D8 D9 AC DA B0 60 05 19 04)
SYSTEM::%STRUCTURE-STORE 'STANDARD-METHOD 6.
)
#Y(SETF-STD-METHOD-INITFUNCTION
#18Y(00 02 00 00 00 03 9D 5B 77 D8 D9 AC DA B0 60 05 19 04)
SYSTEM::%STRUCTURE-STORE 'STANDARD-METHOD 7.
)
STRUCTURE SYSTEM::STRUCTURE-PRINT
#Y(STANDARD-METHOD-PRINT-FUNCTION
#14Y(00 03 00 00 00 04 AD AD AD 2C 03 00 19 04) PRINT-STD-METHOD
) )
#Y(#:TOP-LEVEL-FORM-88 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
PRINT-STD-METHOD SYSTEM::REMOVE-OLD-DEFINITIONS
#Y(PRINT-STD-METHOD
#34Y(00 03 00 00 00 04 00 2A 02 7E 04 00 00 7E 03 00 01 AA 6C 00 01 67 01
00 67 02 01 D9 63 2C 05 02 19 05
)
#Y(PRINT-STD-METHOD-1
#61Y(00 00 00 00 00 01 68 00 01 D9 AB DA 80 31 00 62 1A 13 86 01 00 14
37 0C 68 00 02 30 84 DB 68 00 02 30 8C 82 01 AB 8C 96 69 16 02 68
00 01 D9 AB DC 80 31 00 37 0C 68 00 02 30 84 19 01
)
NIL STANDARD-METHOD 4. #\Space 3.
)
:TYPE SYSTEM::WRITE-UNREADABLE
) )
#Y(#:TOP-LEVEL-FORM-89 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
N-GENSYMS SYSTEM::REMOVE-OLD-DEFINITIONS
#Y(N-GENSYMS
#25Y(00 01 00 00 00 02 62 AC 1A 08 37 01 71 90 83 01 85 00 AA 24 00 74 9C
19 04
)
0.
) )
#Y(#:TOP-LEVEL-FORM-90 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
LAMBDA-LIST-KEYWORD-P SYSTEM::REMOVE-OLD-DEFINITIONS
#Y(LAMBDA-LIST-KEYWORD-P
#16Y(00 01 00 00 00 02 9C 25 00 03 02 19 02 00 19 02)
#S(HASH-TABLE EQ (&ENVIRONMENT . 1.) (&WHOLE . 1.) (&BODY . 1.)
(&AUX . 1.) (&ALLOW-OTHER-KEYS . 1.) (&KEY . 1.) (&REST . 1.)
(&OPTIONAL . 1.)
) ) )
#Y(#:TOP-LEVEL-FORM-91 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
ANALYZE-METHOD-DESCRIPTION SYSTEM::REMOVE-OLD-DEFINITIONS
#Y(ANALYZE-METHOD-DESCRIPTION
#872Y(00 04 00 00 00 05 62 1A 1F D8 D9 DA DB 6D 03 04 B1 B1 32 02 1F D8
E0 E1 E2 6D 03 04 AC 71 4A 32 01 1F 93 03 82 04 83 00 9E 1F 5E 93
03 8E 0D 72 92 00 0F AA DD 8D 04 0A AA DE 8D 04 05 AA DF 8E 04 53
93 03 94 04 01 03 1A 36 AA 83 03 02 1A 1B E5 E6 9D 5B 77 60 03 1A
22 93 04 82 05 9B 1F 6A 93 00 83 03 93 00 83 02 9B 5B 5A 14 9B 1F
05 93 00 23 0C 5C E7 E8 AC 7A 02 60 02 14 83 02 16 02 9F 1F 05 93
04 88 0B 51 AC 71 48 AD B0 70 A6 E9 AB EA 37 02 30 B7 78 98 0B AB
37 04 8D 61 03 AA 31 48 F6 EB AC EA 37 02 30 B7 58 58 14 91 00 09
EC AD EA 37 02 30 B7 58 58 14 62 EB AF EA 37 02 30 B7 78 AA ED 98
0B AD 37 04 71 61 80 46 00 1A 81 80 9B 5A 1A 81 74 F5 9E 79 60 01
1A 81 DE 9E 1A 81 EA 37 01 31 90 1A 80 7D EC AE 60 02 1A 80 86 E5
64 2E E8 B7 7A 02 E5 64 2F E8 BA 7A 02 62 BA 1A 0C 93 00 E8 AB 7A
02 83 02 16 01 82 00 9B 20 71 16 01 AA 7F A7 00 E8 BA 7A 02 7A 01
32 02 23 7B 03 E5 64 30 64 31 E8 65 1A 7A 02 62 BC 1A 0C 93 00 E8
AB 7A 02 83 02 16 01 82 00 9B 20 71 16 01 AA 7F A7 00 E8 BC 7A 02
7A 01 32 02 23 61 04 1A 80 B7 37 01 71 90 B9 6E 21 91 0C FF 84 B8
ED 8F 01 30 FF 7D 00 14 64 22 AF AF 32 02 23 79 AD AD 91 03 FF 74
00 14 32 02 23 79 64 23 64 24 64 25 64 26 64 27 E5 64 28 E8 B6 7A
02 64 29 64 2A E8 B9 7A 02 03 2B 7B 03 64 29 64 2C E8 C2 7A 02 03
2D 7B 03 7A 05 91 08 FF 46 E5 64 32 E8 B7 7A 02 E5 64 33 E8 BA 7A
02 62 BA 1A 0C 93 00 E8 AB 7A 02 83 02 16 01 82 00 9B 20 71 16 01
AA 30 A7 16 01 7B 03 E5 64 34 E8 65 19 7A 02 62 BB 1A 1E 64 36 64
37 AF 7A 02 B1 B1 7A 01 32 02 23 61 02 1A 30 93 00 E8 AB 7A 02 83
02 16 01 82 00 9B 20 71 16 01 AA 30 A7 16 01 61 03 14 7A 05 7A 04
7A 03 64 35 62 E8 B3 7A 02 7A 03 7A 02 91 04 41 AD A1 5C 14 7A 03
60 02 16 04 1A 80 EE 03 41 1A 80 FC 03 43 1A 80 FF 93 00 AA 9B 1F
03 86 00 00 9B 20 FE 8E AA 71 8C 6A 16 30 D7 F6 83 02 16 01 82 00
9B 20 62 16 01 AA 7F A7 00 92 02 09 EF AF EA 37 02 30 B7 58 58 14
92 03 25 91 00 22 F0 EB B1 37 06 D5 F7 71 60 AD 71 48 72 03 35 B0
ED AC 71 46 EF B2 AD 37 01 31 46 79 81 02 23 06 16 01 37 01 71 90
A8 58 1B 04 B7 F1 31 04 14 62 B7 63 BD 30 62 41 03 F2 AC F3 37 02
7F B7 03 92 0E 07 F4 B9 31 4A 79 83 01 B5 91 02 FE 1B 00 79 C2 23
1E FE 1C 64 1F C2 6E 20 A0 7B 02 60 01 14 91 06 FE 82 AB 64 23 64
24 62 64 38 64 39 64 3A E8 65 21 7A 02 E8 65 21 7A 02 64 3B E8 93
1F 7A 02 7A 07 7A 03 64 35 62 64 38 64 3C 64 3D E8 65 22 7A 02 E8
65 22 7A 02 64 3E E8 93 20 7A 02 7A 07 7A 03 7A 02 9E 7B 02 7A 01
32 02 23 16 04 F6 64 3F 64 40 64 37 64 22 B1 7A 01 91 06 FF 00 00
14 64 42 91 09 FE FD 00 14 A3 7B 02 7A 01 32 02 23 7B 02 7A 02 64
44 E8 B1 7A 02 64 45 E5 BC 31 4A 79 64 46 E8 65 19 7A 02 64 47 E8
BF BE BD BF BE BE 7A 06 7A 02 60 0B 19 16
)
PROGRAM-ERROR "~S ~S: missing lambda list" "~S ~S: Lambdaliste fehlt."
"~S ~S : la liste lambda manque." SYSTEM::LANGUAGE (:BEFORE) (:AFTER)
(:AROUND)
"STANDARD method combination doesn't allow the method qualifiers to be ~S"
"Bei STANDARD Methodenkombination dürfen die Methodenbestimmer nicht ~S lauten."
"La combinaison STANDARD de méthodes ne permet pas de qualifier des méthodes comme ~S."
LAMBDA-LIST-KEYWORD-P EQL LIST 'EQL FIND-CLASS QUOTE &OPTIONAL #.#'EQ
&KEY &REST 0. *KEYWORD-PACKAGE* &ALLOW-OTHER-KEYS 1. (:AROUND) (COMPILE)
#.#'EQUAL IGNORABLE DECLARE GENERIC-FUNCTION BLOCK BLOCK-NAME N-GENSYMS
LAMBDA MACROLET CALL-NEXT-METHOD (&REST NEW-ARG-EXPRS) IF NEW-ARG-EXPRS
'IF LIST* 'FUNCALL (NEW-ARG-EXPRS) '%NO-NEXT-METHOD (NEW-ARG-EXPRS) 'IF
'APPLY 'APPLY '#'%NO-NEXT-METHOD 'IF 'FUNCALL '%NO-NEXT-METHOD
NEXT-METHOD-P APPLY FUNCTION ERROR-OF-TYPE 'PROGRAM-ERROR
(SYSTEM::LANGUAGE "~S ~S: ~S is invalid within ~S methods"
"~S ~S: ~S ist in ~S-Methoden nicht erlaubt."
"~S ~S : ~S n'est pas permit dans des méthodes ~S."
)
'CALL-NEXT-METHOD 'PROGRAM-ERROR
(SYSTEM::LANGUAGE "~S ~S: ~S is invalid within ~S methods"
"~S ~S: ~S ist in ~S-Methoden nicht erlaubt."
"~S ~S : ~S n'est pas permit dans des méthodes ~S."
)
'NEXT-METHOD-P MAKE-STANDARD-METHOD :INITFUNCTION ((DECLARE (COMPILE)))
%OPTIMIZE-FUNCTION-LAMBDA (T) :WANTS-NEXT-METHOD-P
:PARAMETER-SPECIALIZERS :QUALIFIERS :SIGNATURE
) )
#Y(#:TOP-LEVEL-FORM-92 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
METHODS-AGREE-P SYSTEM::REMOVE-OLD-DEFINITIONS
#Y(METHODS-AGREE-P
#36Y(00 02 00 00 00 03 D8 AD D9 71 31 D8 AD D9 71 31 31 04 1E 0E D8 AD DA
71 31 D8 AD DA 71 31 2F 03 19 03 19 03
)
STANDARD-METHOD 4. 3. SPECIALIZERS-AGREE-P
) )
#Y(#:TOP-LEVEL-FORM-93 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
SPECIALIZERS-AGREE-P SYSTEM::REMOVE-OLD-DEFINITIONS
#Y(SPECIALIZERS-AGREE-P
#26Y(00 02 00 00 00 03 AC 71 48 AC 71 48 31 03 1E 08 D8 AD AD 32 01 28 19
03 19 03
)
#Y(SPECIALIZERS-AGREE-P-1
#33Y(00 02 00 00 00 03 AC 9D 59 1D 14 AC 31 06 1E 0F AB 31 06 1E 0A 9D
5B 77 9D 5B 77 31 03 19 03 19 03
) ) ) )
#Y(#:TOP-LEVEL-FORM-94 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
METHOD-APPLICABLE-P SYSTEM::REMOVE-OLD-DEFINITIONS
#Y(METHOD-APPLICABLE-P
#19Y(00 02 00 00 00 03 98 00 AC D9 AF DA 71 31 32 01 28 19 03) TYPEP
STANDARD-METHOD 3.
) )
#Y(#:TOP-LEVEL-FORM-95 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
SORT-APPLICABLE-METHODS SYSTEM::REMOVE-OLD-DEFINITIONS
#Y(SORT-APPLICABLE-METHODS
#30Y(00 03 00 00 00 04 00 2A 02 7E 03 00 00 7E 02 00 01 AE 70 A2 AB 6C 00
01 37 03 31 68 19 05
)
#Y(SORT-APPLICABLE-METHODS-1
#109Y(00 02 00 00 00 03 D9 AD DA 71 31 D9 AD DA 71 31 68 00 02 62 1A
80 4E 9B 20 80 46 02 19 0A 00 19 0A 02 19 0D 00 19 0D 86 01 00
14 68 00 01 70 98 AB AF 70 98 AC AF 70 98 9C 20 5C 9B 20 60 AC
71 2B DB AB DC 80 31 00 AC AB 37 06 71 60 AC AC 37 06 71 60 AB
AB 8F 01 2F 48 AB AB 8F 01 30 45 16 03 16 03 82 01 AB 8C 96 FF
BD 00 19 07
)
NIL STANDARD-METHOD 3. CLASS 5.
) ) )
#Y(#:TOP-LEVEL-FORM-96 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
PARTITION-METHOD-LIST SYSTEM::REMOVE-OLD-DEFINITIONS
#Y(PARTITION-METHOD-LIST
#82Y(00 01 00 00 00 02 01 04 AF 62 1A 30 AB 83 06 1A 27 AB 83 05 1A 22 AB
83 04 1A 1D 86 01 00 D8 AB D9 71 31 92 00 66 AA DA 8D 04 66 AA DB 8D
04 66 AA DC 8E 04 03 AB 83 03 16 01 82 01 AB 8C 96 5B 16 02 AD 71 4A
AD 71 4A AD 71 4A AD 71 4A 3F 04 19 06
)
STANDARD-METHOD 4. (:BEFORE) (:AFTER) (:AROUND)
) )
#Y(#:TOP-LEVEL-FORM-97 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
CALLINFO SYSTEM::REMOVE-OLD-DEFINITIONS
#Y(CALLINFO
#22Y(00 05 00 00 00 06 AF D8 B0 D8 8F 01 30 01 A0 14 01 03 60 06 19 06)
0.
) )
#Y(#:TOP-LEVEL-FORM-98 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
GF-SIGNATURE SYSTEM::REMOVE-OLD-DEFINITIONS
#Y(GF-SIGNATURE #12Y(00 01 00 00 00 02 AB D8 31 2E 19 02) 3.)
)
#Y(#:TOP-LEVEL-FORM-99 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C6 19 01)
#.(SYSTEM::GET-SETF-SYMBOL 'GF-SIGNATURE) SYSTEM::REMOVE-OLD-DEFINITIONS
#Y(#1=(SETF GF-SIGNATURE) #13Y(00 02 00 00 00 03 AB D8 AE 31 2F 19 03) 3.)
#1#
)
#Y(#:TOP-LEVEL-FORM-100 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
GF-ARGORDER SYSTEM::REMOVE-OLD-DEFINITIONS
#Y(GF-ARGORDER #12Y(00 01 00 00 00 02 AB D8 31 2E 19 02) 4.)
)
#Y(#:TOP-LEVEL-FORM-101 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C6 19 01)
#.(SYSTEM::GET-SETF-SYMBOL 'GF-ARGORDER) SYSTEM::REMOVE-OLD-DEFINITIONS
#Y(#1=(SETF GF-ARGORDER) #13Y(00 02 00 00 00 03 AB D8 AE 31 2F 19 03) 4.)
#1#
)
#Y(#:TOP-LEVEL-FORM-102 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
GF-METHODS SYSTEM::REMOVE-OLD-DEFINITIONS
#Y(GF-METHODS #12Y(00 01 00 00 00 02 AB D8 31 2E 19 02) 5.)
)
#Y(#:TOP-LEVEL-FORM-103 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C6 19 01)
#.(SYSTEM::GET-SETF-SYMBOL 'GF-METHODS) SYSTEM::REMOVE-OLD-DEFINITIONS
#Y(#1=(SETF GF-METHODS) #13Y(00 02 00 00 00 03 AB D8 AE 31 2F 19 03) 5.) #1#
)
#Y(#:TOP-LEVEL-FORM-104
#30Y(00 00 00 00 00 01 00 2A 01 D8 AA D9 31 2E 0B 01 00 DA 2E 03 DA AC 6C 04
01 31 82 C5 19 03
)
#Y(#:TOP-LEVEL-FORM-104-1 #8Y(00 00 00 00 01 16 1A 7E)) 1. %MAKE-GF
SYSTEM::REMOVE-OLD-DEFINITIONS
#Y(%MAKE-GF
#20Y(00 04 00 00 00 05 AE 68 00 01 62 B0 B0 B0 7A 04 31 3A 19 05) NIL
) )
#Y(#:TOP-LEVEL-FORM-105 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
MAKE-FAST-GF SYSTEM::REMOVE-OLD-DEFINITIONS
#Y(MAKE-FAST-GF
#19Y(00 03 00 00 00 04 AD AD AD 62 6D 04 00 AA 2E 01 15 19 04) %MAKE-GF
FINALIZE-FAST-GF
) )
#Y(#:TOP-LEVEL-FORM-106
#48Y(00 00 00 00 00 01 00 2A 01 37 05 C3 F9 30 66 0B 00 00 D9 2E 02 D9 AB 6C
03 01 31 82 DC 2E 02 DC AB 6C 05 01 31 82 DE 2E 02 DE DF 31 82 C9 19 02
)
#.#'EQUAL FINALIZE-FAST-GF SYSTEM::REMOVE-OLD-DEFINITIONS
#Y(FINALIZE-FAST-GF
#117Y(00 01 00 00 00 02 AB 6E 01 93 00 9C 5B 5B 5A 1B 07 9C 5B 77 DA 32
01 30 14 AB 9C 79 AA 68 00 01 37 01 8B 67 38 68 00 01 AD 6E 03 DC
DD DE DF AE 91 08 3C 00 14 72 02 23 E1 E2 E3 E4 B3 91 0D 32 D1 14
7A 01 32 02 23 7B 03 7A 04 7A 04 70 5E AA E7 31 2E 16 01 F6 AC AC
AC 30 68 16 02 14 B0 E7 AC 31 2F B0 E8 62 E9 B4 72 03 00 31 2F 19
07 CB 1A 42 D0 1A 4C
)
NIL GF-SIGNATURE 0. N-GENSYMS LET ((GF 'MAGIC)) (DECLARE (COMPILE))
%GENERIC-FUNCTION-LAMBDA (&REST ARGS) (DECLARE (INLINE APPLY)) APPLY
'INITIAL-FUNCALL-GF GF ARGS 'NIL 1. 2. INITIAL-FUNCALL-GF
)
GF-NEVER-CALLED-P
#Y(GF-NEVER-CALLED-P
#44Y(00 01 00 00 00 02 AB 6E 01 93 00 9C 5B 5B 5A 1B 07 9C 5B 77 DA 32 01
30 14 AB 9C 79 AA 68 00 01 37 01 70 67 B0 DB 71 2E 9C 59 19 07
)
NIL GF-SIGNATURE 0. 1.
)
WARN-IF-GF-ALREADY-CALLED
#Y(WARN-IF-GF-ALREADY-CALLED
#24Y(00 01 00 00 00 02 AB 87 00 0B D9 DA DB 6D 03 04 AC 2F 05 19 02 00 19
02
)
GF-NEVER-CALLED-P
"The generic function ~S is being modified, but has already been called."
"Die generische Funktion ~S wird modifiziert, wurde aber bereits aufgerufen."
"On change la fonction générique ~S qui a déjà été appelée."
SYSTEM::LANGUAGE WARN
) )
#Y(#:TOP-LEVEL-FORM-107 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
INITIAL-FUNCALL-GF SYSTEM::REMOVE-OLD-DEFINITIONS
#Y(INITIAL-FUNCALL-GF #14Y(00 01 00 00 01 17 AC 2E 00 AC 9D 9A 00 03)
INSTALL-DISPATCH
) )
#Y(#:TOP-LEVEL-FORM-108 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
INSTALL-DISPATCH SYSTEM::REMOVE-OLD-DEFINITIONS
#Y(INSTALL-DISPATCH
#46Y(00 01 00 00 00 02 AB 2E 00 41 02 D9 AC DA DB 9F 79 7A 04 70 5E AE DC
AC DC 71 2E 31 2F AE DD AC DE 71 2E AD DD 71 2E AB CA 5F 31 2F 19 05
)
COMPUTE-DISPATCH LET (DECLARE (COMPILE)) %GENERIC-FUNCTION-LAMBDA 1. 2.
3. 0.
) )
#Y(#:TOP-LEVEL-FORM-109 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
COMPUTE-DISPATCH SYSTEM::REMOVE-OLD-DEFINITIONS
#Y(COMPUTE-DISPATCH
#191Y(00 01 00 00 00 02 00 2A 01 7E 02 00 00 9B 2A 06 67 01 00 6E 00 93
00 AA 2E 01 0B 02 00 9C 5B 5B 5A 1B 07 9C 5B 77 DA 32 01 30 14 91
00 80 66 00 14 91 01 80 67 C7 0B 04 01 67 04 00 91 02 80 60 00 14
32 02 23 0B 04 02 67 05 00 6E 05 67 06 00 6E 06 37 01 31 90 0B 06
03 00 0B 06 04 0B 06 05 A1 2A 01 AA 2B 07 01 0B 00 00 AC AC 62 06
03 00 73 67 08 05 71 4A 67 09 00 91 07 2A 00 14 72 02 23 E1 E2 67
0C 03 AF 06 0E 04 1B 20 00 7B 03 7A 03 3F 02 19 0C 37 01 31 90 1A
FF 94 C6 1A FF 96 AB 60 01 1A FF 9B E0 B1 60 02 1A 51 67 0E 01 E3
E4 67 12 00 7A 02 06 11 02 7B 03 60 01 1A 4E
)
GF-SIGNATURE N-GENSYMS 0. APPLY FUNCALL GF-ARGORDER GF-METHODS
#Y(COMPUTE-DISPATCH-RECURSION
#459Y(00 03 00 00 00 04 29 2A 02 7E 04 00 00 7E 02 00 01 92 03 20 06
00 00 1C 80 44 9B 2A 02 06 01 00 5A 0B 00 00 14 68 01 01 30 98
0B 00 01 E3 EC 62 B1 1A 80 CB 02 0C 01 05 00 19 05 7C 02 9F F7
DA AF 60 02 F6 1A 80 71 CA 1A 33 E1 AF 06 07 01 5A 5B 77 60 03
1A 3C AA 06 08 01 5C 1A 80 55 37 01 71 90 67 01 01 71 48 01 03
AD 23 01 4E 67 05 01 31 49 0B 05 01 DB DC DD B0 23 06 4B CB 14
7A 02 60 03 F8 AD 23 06 43 E2 AF E3 67 08 01 32 00 17 61 02 F7
E4 AE 6E 0D E6 9C 5B 77 37 03 8B B7 FF B5 E7 9C 5B 77 67 09 01
72 01 17 9C 5B 5B 77 37 03 30 B5 F6 B0 60 03 F6 AE AD 7A 02 07
01 06 5C 0C 01 06 E8 68 01 04 68 01 02 E9 AF AF 68 01 02 EA EB
68 02 01 7A 02 62 07 01 03 7B 04 7A 01 72 02 23 7A 03 07 01 03
7B 02 60 03 19 0A 93 00 67 05 00 ED AC EE 71 31 70 98 83 02 16
01 82 00 9B 20 6B 16 01 AA 7F A7 00 37 05 71 51 72 00 17 37 06
03 17 F7 71 55 62 AB 1A 28 93 00 9F 2A 01 7E 01 00 00 14 7A 01
06 07 00 78 AC 6C 18 01 B6 37 05 71 51 67 09 01 6B FE CD 60 02
F6 83 02 16 01 82 00 9B 20 55 16 01 AA 7F A7 00 AC 6C 19 01 B1
37 05 80 50 06 6A 1A 62 B2 1A 34 AD 6C 1D 01 6A 1A AC B4 9E 33
16 01 1A 80 59 64 1F 67 04 01 AD 63 AE 7A 02 7A 01 32 02 23 61
02 19 09 93 00 67 06 00 ED AC EE 71 31 70 98 83 02 16 01 82 00
9B 20 6B 16 01 AA 7F A7 00 37 06 71 56 37 07 71 52 98 1B AB 90
00 28 09 AA 71 48 F4 8F 01 31 FF AB 06 04 00 78 B2 64 1E 67 06
01 7A 02 06 07 01 79 27 FE 43 F6 91 01 FF A2 15 19 08
)
NIL 0. SETQ MAKE-HASH-TABLE :TEST FUNCTION 1. EQ EQUAL CLASS-GETHASH
CLASS-TUPLE-GETHASH #.#'SECOND SYSTEM::PUTHASH HASH-TUPLE-FUNCTION
&REST #.#'CONS RETURN-FROM OR 'COMPUTE-EFFECTIVE-METHOD QUOTE
#.#'CONSP STANDARD-METHOD 3. #.#'EQL
#Y(COMPUTE-DISPATCH-RECURSION-1
#23Y(00 01 00 00 00 02 68 00 01 68 01 01 D9 AE DA 71 31 70 98 2F 03
19 02
)
NIL STANDARD-METHOD 3. TYPEP
)
#Y(COMPUTE-DISPATCH-RECURSION-2
#20Y(00 01 00 00 00 02 68 00 01 D9 AD DA 71 31 70 98 31 06 19 02)
NIL STANDARD-METHOD 3.
)
<T> BC-P 5.
#Y(COMPUTE-DISPATCH-RECURSION-BUILT-IN-SUBTREE
#202Y(00 03 00 00 00 04 29 2A 01 7E 04 00 00 92 03 0A 9B 2A 01 9F
5A 0B 00 00 1A 1C 07 01 01 78 AB 6C 01 01 AE 37 05 71 51 68
01 02 07 02 01 33 19 05 7E 00 01 00 16 01 AA 6C 02 01 AF 37
04 71 5E 91 00 6E 16 01 DB DC 68 00 02 DD 67 04 00 DE AB DF
80 31 00 7A 02 7A 03 67 03 00 67 03 00 6F 08 01 02 67 05 00
B4 37 07 71 4F 1A 0E 93 00 AA 67 08 00 6F 08 83 02 16 01 82
00 9B 20 6F 16 01 AA 7F A7 00 37 07 71 4F AE 6C 09 01 B2 37
05 71 51 6B FF 74 67 04 00 67 04 00 6F 0A 01 02 B4 1A 0E 93
00 AA 67 09 00 6F 0A 83 02 16 01 82 00 9B 20 6F 16 01 AA 7F
A7 00 37 07 71 4F AF 6C 0B 01 B3 37 05 71 51 6B FF 40 60 04
19 06
)
NIL
#Y(COMPUTE-DISPATCH-RECURSION-BUILT-IN-SUBTREE-1
#23Y(00 01 00 00 00 02 68 00 01 68 01 01 D9 AE DA 71 31 70 98 2F
03 19 02
)
NIL STANDARD-METHOD 3. BC-AND
)
#Y(COMPUTE-DISPATCH-RECURSION-BUILT-IN-SUBTREE-2
#24Y(00 01 00 00 00 02 68 00 01 AC 2F 01 1E 08 68 00 01 9D 59 58
19 02 19 02
)
NIL SUBCLASSP
)
IF TYPEP QUOTE CLASS 2. BC-AND
#Y(COMPUTE-DISPATCH-RECURSION-BUILT-IN-SUBTREE-3
#23Y(00 01 00 00 00 02 68 02 01 D9 AD DA 71 31 70 98 68 00 01 2F
03 19 02
)
NIL STANDARD-METHOD 3. BC-AND
)
BC-AND-NOT
#Y(COMPUTE-DISPATCH-RECURSION-BUILT-IN-SUBTREE-4
#23Y(00 01 00 00 00 02 68 02 01 D9 AD DA 71 31 70 98 68 00 01 2F
03 19 02
)
NIL STANDARD-METHOD 3. BC-AND-NOT
) )
CLASS-OF CASE
)
&REST
(DECLARE
(INLINE CASE EQL EQ TYPEP ARRAYP BIT-VECTOR-P CHARACTERP COMPLEXP CONSP
FLOATP FUNCTIONP GENERIC-FUNCTION-P HASH-TABLE-P INTEGERP LISTP NULL
NUMBERP PACKAGEP PATHNAMEP SYSTEM::LOGICAL-PATHNAME-P RANDOM-STATE-P
RATIONALP READTABLEP REALP SYSTEM::SEQUENCEP STD-INSTANCE-P STREAMP
SYSTEM::FILE-STREAM-P SYSTEM::SYNONYM-STREAM-P
SYSTEM::BROADCAST-STREAM-P SYSTEM::CONCATENATED-STREAM-P
SYSTEM::TWO-WAY-STREAM-P SYSTEM::ECHO-STREAM-P
SYSTEM::STRING-STREAM-P STRINGP SYMBOLP VECTORP CLASS-OF CONS GETHASH
CLASS-GETHASH CLASS-TUPLE-GETHASH SYSTEM::PUTHASH FUNCALL APPLY
) )
BLOCK 'NO-APPLICABLE-METHOD QUOTE
) )
#Y(#:TOP-LEVEL-FORM-110 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
HASH-TUPLE-FUNCTION SYSTEM::REMOVE-OLD-DEFINITIONS
#Y(HASH-TUPLE-FUNCTION
#61Y(00 01 00 00 00 02 9C 25 00 30 C4 19 02 C5 19 02 C6 19 02 C7 19 02 C8
19 02 C9 19 02 CA 19 02 CB 19 02 CC 19 02 CD 19 02 CE 19 02 CF 19 02
D0 19 02 D1 19 02 D2 19 02 D3 19 02 D4 19 02
)
#S(HASH-TABLE EQ (16. . 46.) (15. . 43.) (14. . 40.) (13. . 37.)
(12. . 34.) (11. . 31.) (10. . 28.) (9. . 25.) (8. . 22.) (7. . 19.)
(6. . 16.) (5. . 13.) (4. . 10.) (3. . 7.) (2. . 4.) (1. . 1.)
)
(LAMBDA (T1) T1) (LAMBDA (T1 T2) (CONS T1 T2))
(LAMBDA (T1 T2 T3) (CONS T1 (CONS T2 T3)))
(LAMBDA (T1 T2 T3 T4) (CONS (CONS T1 T2) (CONS T3 T4)))
(LAMBDA (T1 T2 T3 T4 T5) (CONS (CONS T1 T2) (CONS T3 (CONS T4 T5))))
(LAMBDA (T1 T2 T3 T4 T5 T6)
(CONS (CONS T1 T2) (CONS (CONS T3 T4) (CONS T5 T6)))
)
(LAMBDA (T1 T2 T3 T4 T5 T6 T7)
(CONS (CONS T1 (CONS T2 T3)) (CONS (CONS T4 T5) (CONS T6 T7)))
)
(LAMBDA (T1 T2 T3 T4 T5 T6 T7 T8)
(CONS (CONS (CONS T1 T2) (CONS T3 T4)) (CONS (CONS T5 T6) (CONS T7 T8))
) )
(LAMBDA (T1 T2 T3 T4 T5 T6 T7 T8 T9)
(CONS (CONS (CONS T1 T2) (CONS T3 T4))
(CONS (CONS T5 T6) (CONS T7 (CONS T8 T9)))
) )
(LAMBDA (T1 T2 T3 T4 T5 T6 T7 T8 T9 T10)
(CONS (CONS (CONS T1 T2) (CONS T3 T4))
(CONS (CONS T5 T6) (CONS (CONS T7 T8) (CONS T9 T10)))
) )
(LAMBDA (T1 T2 T3 T4 T5 T6 T7 T8 T9 T10 T11)
(CONS (CONS (CONS T1 T2) (CONS T3 T4))
(CONS (CONS T5 (CONS T6 T7)) (CONS (CONS T8 T9) (CONS T10 T11)))
) )
(LAMBDA (T1 T2 T3 T4 T5 T6 T7 T8 T9 T10 T11 T12)
(CONS (CONS (CONS T1 T2) (CONS T3 T4))
(CONS (CONS (CONS T5 T6) (CONS T7 T8))
(CONS (CONS T9 T10) (CONS T11 T12))
) ) )
(LAMBDA (T1 T2 T3 T4 T5 T6 T7 T8 T9 T10 T11 T12 T13)
(CONS (CONS (CONS T1 T2) (CONS T3 (CONS T4 T5)))
(CONS (CONS (CONS T6 T7) (CONS T8 T9))
(CONS (CONS T10 T11) (CONS T12 T13))
) ) )
(LAMBDA (T1 T2 T3 T4 T5 T6 T7 T8 T9 T10 T11 T12 T13 T14)
(CONS (CONS (CONS T1 T2) (CONS (CONS T3 T4) (CONS T5 T6)))
(CONS (CONS (CONS T7 T8) (CONS T9 T10))
(CONS (CONS T11 T12) (CONS T13 T14))
) ) )
(LAMBDA (T1 T2 T3 T4 T5 T6 T7 T8 T9 T10 T11 T12 T13 T14 T15)
(CONS (CONS (CONS T1 (CONS T2 T3)) (CONS (CONS T4 T5) (CONS T6 T7)))
(CONS (CONS (CONS T8 T9) (CONS T10 T11))
(CONS (CONS T12 T13) (CONS T14 T15))
) ) )
(LAMBDA (T1 T2 T3 T4 T5 T6 T7 T8 T9 T10 T11 T12 T13 T14 T15 T16)
(CONS
(CONS (CONS (CONS T1 T2) (CONS T3 T4))
(CONS (CONS T5 T6) (CONS T7 T8))
)
(CONS (CONS (CONS T9 T10) (CONS T11 T12))
(CONS (CONS T13 T14) (CONS T15 T16))
) ) )
(LAMBDA (T1 T2 T3 T4 T5 T6 T7 T8 T9 T10 T11 T12 T13 T14 &REST MORE-T)
(CONS
(CONS (CONS (CONS T1 T2) (CONS T3 T4))
(CONS (CONS T5 T6) (CONS T7 T8))
)
(CONS (CONS (CONS T9 T10) (CONS T11 T12))
(CONS (CONS T13 T14) MORE-T)
) )) ) )
#Y(#:TOP-LEVEL-FORM-111 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
COMPUTE-EFFECTIVE-METHOD SYSTEM::REMOVE-OLD-DEFINITIONS
#Y(COMPUTE-EFFECTIVE-METHOD
#481Y(00 02 00 00 01 18 00 2A 04 AE 6E 00 93 00 AA 6E 01 AF DA AD 31 46
0B 03 00 9D 5B 5B 5A 1B 07 9D 5B 77 DA 32 01 30 14 91 00 80 82 00
14 91 01 80 83 C7 0B 05 01 AC 91 02 80 7E 00 14 32 02 23 0B 05 02
AC 91 02 80 77 00 14 32 02 23 0B 05 03 01 03 B6 6E 06 B7 6E 07 B4
6C 08 01 AB 37 05 80 51 00 1C 80 6C 92 06 1C B3 8B 99 18 98 0F AB
72 00 17 E8 AB 37 05 80 54 00 1C 07 E9 AB 90 00 27 80 63 16 01 AA
67 0B 00 AD 2C 03 15 F6 14 2E 16 41 04 91 03 80 CB 98 17 BD 04 12
36 01 92 11 80 91 E2 F0 E4 E4 6D 03 0D 04 14 14 32 01 1F 37 01 31
90 1A FF 78 C6 1A FF 7A AB 60 01 1A FF 7D DD AC 60 02 1A FF 83 E2
E3 E4 E4 6D 03 0D 04 10 1A 59 98 09 B9 A9 36 01 91 0D 6C B8 2E 0E
B8 63 B8 28 03 12 FF 22 A5 5B 5B 5B 77 EA AC 6F 13 72 02 23 63 37
05 71 55 A6 5B 77 2E 01 FC AA 71 48 2E 01 FB EC 62 AC B2 1A 19 16
03 1A 1A 93 01 9C 1F 77 93 01 AB AB 7A 02 7A 01 83 04 16 02 82 01
82 00 9C 20 68 16 02 AA 30 A7 16 01 5C FA 16 02 1A FF 52 BC 2E 0E
BC 63 BC 28 03 16 FE CA 9B 5B 5A 1A 80 92 64 20 64 21 04 0F 79 7A
02 60 01 5C 1A 80 79 67 13 03 B6 72 02 23 91 0D 67 00 5C 1A 80 6A
A9 2A 04 AA 6C 19 01 AB 2B 1A 01 0B 01 00 AB 2B 1B 01 0B 01 01 AB
2B 1C 01 0B 01 02 AB 2B 1D 01 0B 01 03 AF AF AF AF 9F 73 93 00 06
12 01 22 0D 9B 5B 78 67 12 02 8E 04 04 92 09 FF 9F 64 1E 64 1F 92
0D FF AC 67 13 03 DB 64 1E 64 1F 64 22 BC BB 32 02 23 79 64 20 64
21 BE BE 32 02 23 79 7A 02 7A 03 7A 02 BB 7A 03 60 02 14 AD 7A 01
32 02 23 79 60 02 14 64 23 62 64 24 AD 7A 04 30 5E 19 17
)
GF-SIGNATURE N-GENSYMS 0. APPLY FUNCALL &REST GF-ARGORDER GF-METHODS
#Y(COMPUTE-EFFECTIVE-METHOD-1
#14Y(00 01 00 00 00 02 AB 68 00 01 2F 01 19 02) NIL
METHOD-APPLICABLE-P
)
NO-APPLICABLE-METHOD ERROR "No method for generic function: ~S" ""
SYSTEM::LANGUAGE INSTALL-DISPATCH STD-METHOD-SIGNATURE #.#'FOURTH
#.#'SIXTH #.#'FIFTH MAPCAP &KEY SORT-APPLICABLE-METHODS
PARTITION-METHOD-LIST NO-PRIMARY-METHOD
"No primary method for generic function: ~S"
#Y(COMPUTE-EFFECTIVE-METHOD-EF-1
#79Y(00 04 00 00 00 05 91 01 2B AE AE AE 07 00 01 33 19 05 B0 B0 B0 94
06 6B 18 68 01 02 DC AD 7A 02 DD DE 68 01 04 AF 7A 03 7A 02 07 01
03 61 03 19 08 92 01 55 93 01 D9 AB DA 71 31 D9 AC DB 8D 31 51 68
01 02 DC AC 7A 02 07 01 03 61 02 19 07
)
NIL STANDARD-METHOD 1. 2. QUOTE FUNCTION LAMBDA
)
#Y(COMPUTE-EFFECTIVE-METHOD-EF-2
#65Y(00 03 00 00 00 04 AD AC 07 00 02 73 92 03 05 D9 62 AF 1A 1B 15 19
04 93 00 68 01 02 DA DB AD DC 71 31 7A 02 07 01 03 7B 02 83 02 16
01 82 00 9B 20 65 16 01 AA 7F A7 00 AC 7A 01 32 02 23 5C 19 05
)
NIL PROGN QUOTE STANDARD-METHOD 1.
)
#Y(COMPUTE-EFFECTIVE-METHOD-EF-3
#63Y(00 02 00 00 00 03 AC 07 00 03 73 92 02 08 D9 AB 62 AF 71 49 1A 1B
15 19 03 93 00 68 01 02 DA DB AD DC 71 31 7A 02 07 01 03 7B 02 83
02 16 01 82 00 9B 20 65 16 01 AA 30 A7 16 01 61 02 19 04
)
NIL MULTIPLE-VALUE-PROG1 QUOTE STANDARD-METHOD 1.
)
#Y(COMPUTE-EFFECTIVE-METHOD-EF-4
#54Y(00 01 00 00 00 02 93 01 D9 AB DA 71 31 D9 AC DB 8D 31 0E 68 01 02
DC AC 7A 02 07 01 03 61 02 19 04 94 03 07 00 04 73 68 01 02 DC AD
7A 02 AC 07 01 03 61 03 19 05
)
NIL STANDARD-METHOD 1. 2. QUOTE
)
#Y(COMPUTE-EFFECTIVE-METHOD-EF-5
#28Y(00 01 00 00 00 02 92 01 10 D9 DA 68 01 04 AE 07 00 03 73 7A 03 60
02 19 02 00 19 02
)
NIL FUNCTION LAMBDA
)
FUNCTION LAMBDA DECLARE IGNORE &OPTIONAL LET
(DECLARE (COMPILE) (INLINE FUNCALL APPLY))
) )
#Y(#:TOP-LEVEL-FORM-112
#20Y(00 00 00 00 00 01 D8 30 5D D9 8B 52 04 D9 62 30 55 C4 19 01)
(SPECIAL |#'initialize-instance|) |#'initialize-instance|
)
#Y(#:TOP-LEVEL-FORM-113
#20Y(00 00 00 00 00 01 D8 30 5D D9 8B 52 04 D9 62 30 55 C4 19 01)
(SPECIAL |#'reinitialize-instance|) |#'reinitialize-instance|
)
#Y(#:TOP-LEVEL-FORM-114
#20Y(00 00 00 00 00 01 D8 30 5D D9 8B 52 04 D9 62 30 55 C4 19 01)
(SPECIAL |#'shared-initialize|) |#'shared-initialize|
)
#Y(#:TOP-LEVEL-FORM-115 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
STD-ADD-METHOD SYSTEM::REMOVE-OLD-DEFINITIONS
#Y(STD-ADD-METHOD
#328Y(00 02 00 00 00 03 AC 6E 00 D9 AD DA 71 31 93 00 93 02 90 01 2D 1C
9B 5B 77 9D 5B 77 8F 01 2D 2B DB E0 E1 E2 6D 03 07 AF 9E 5B 77 B2
A1 5B 77 32 04 1F DB DC DD DE 6D 03 07 AF 93 03 B2 A1 1A 6E DB E3
E4 E5 6D 03 07 AF A2 1A 23 9B 5B 5B 5A 1C 06 9C 5B 5B 5A 1C 69 9C
5B 5B 5A 1C 80 66 9B 5B 5B 5A 1B 80 5F DB E6 E7 E8 6D 03 07 B0 A1
14 32 02 1F AA 8B 9A 80 63 9C 5B 5B 5B 77 AB 70 99 89 11 80 57 DB
EA EB EC 6D 03 07 AF 9F 5B 5B 5B 77 B2 32 03 1F D9 AD ED 62 31 32
16 01 1A 80 73 AC 2E 1D 1A 80 8F AC 2E 1F 1A 80 89 64 22 64 23 64
24 6D 03 07 AC B0 2C 03 25 AB AF 6E 1A 37 07 31 4F 1A 80 78 9C 5B
5B 5B 5A 1C 0F 9B 5B 5B 5B 5A 1B FF 9F 9B 5B 5B 5A 1C FF A9 16 02
D9 AC ED 8E 31 10 AB 80 34 01 D9 AC EE 62 31 32 D9 AC EF AF 31 32
D9 AC EE 8D 31 1A D9 AC F0 71 31 AC 75 01 93 00 D9 AE EE AD 31 32
16 01 9B 5B 5A 1B FF 84 16 01 AC 2E 19 AB AD 6E 1A 37 06 99 1B 01
71 5D AD 0E 1C 21 FF 79 AD 0E 1E 21 FF 79 AD 0E 20 22 03 AC 2E 21
AC 91 01 FF 72 AE 2E 1A 79 AE 2F 26 AD 2E 27 16 01 9D 19 03
)
GF-SIGNATURE STANDARD-METHOD 5. ERROR
"~S has ~S, but ~S has ~S required parameters"
"~S hat ~S, ~S hat aber ~S Required-Parameter."
"~S reçoit ~S arguments obligatoires, mais ~S en reçoit ~S."
SYSTEM::LANGUAGE "~S has ~S, but ~S has ~S optional parameters"
"~S hat ~S, ~S hat aber ~S optionale Parameter."
"~S reçoit ~S arguments facultatifs, mais ~S en reçoit ~S."
"~S has &REST or &KEY, but ~S hasn't."
"~S hat &REST oder &KEY, ~S jedoch nicht."
"~S spécifie &REST ou &KEY, mais ~S pas."
"~S has &REST or &KEY, but ~S hasn't."
"~S hat &REST oder &KEY, ~S jedoch nicht."
"~S spécifie &REST ou &KEY, mais ~S pas." SUBSETP
"~S doesn't accept the keywords ~S of ~S"
"~S akzeptiert die Keywords ~S von ~S nicht."
"~S n'accepte pas les mots clé ~S de ~S." 2. 1. 6. 7.
WARN-IF-GF-ALREADY-CALLED GF-METHODS METHODS-AGREE-P
|#'initialize-instance| NOTE-II-CHANGE |#'reinitialize-instance|
NOTE-RI-CHANGE |#'shared-initialize| NOTE-SI-CHANGE
"Replacing method ~S in ~S" "Methode ~S in ~S wird ersetzt."
"On remplace la méthode ~S dans ~S." WARN
#.(SYSTEM::GET-SETF-SYMBOL 'GF-METHODS) FINALIZE-FAST-GF
) )
#Y(#:TOP-LEVEL-FORM-116 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
STD-REMOVE-METHOD SYSTEM::REMOVE-OLD-DEFINITIONS
#Y(STD-REMOVE-METHOD
#85Y(00 02 00 00 00 03 D8 AC D9 71 31 AD 6E 02 37 06 99 03 02 71 5D 92 00
2E AD 2E 04 DD DE DF 6D 03 08 AB AF 2C 03 09 AD 0E 0A 21 20 AD 0E 0C
21 20 AD 0E 0E 22 03 AC 2E 0F AA AE 6E 02 37 07 71 4F AE 2F 10 AD 2E
11 16 01 9D 19 03 AC 2E 0B 1A 68 AC 2E 0D 1A 63
)
STANDARD-METHOD 7. GF-METHODS STD-METHOD-INITFUNCTION
WARN-IF-GF-ALREADY-CALLED "Removing method ~S in ~S"
"Methode ~S in ~S wird entfernt." "On retire la méthode ~S de ~S."
SYSTEM::LANGUAGE WARN |#'initialize-instance| NOTE-II-CHANGE
|#'reinitialize-instance| NOTE-RI-CHANGE |#'shared-initialize|
NOTE-SI-CHANGE #.(SYSTEM::GET-SETF-SYMBOL 'GF-METHODS) FINALIZE-FAST-GF
) )
#Y(#:TOP-LEVEL-FORM-117 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
STD-FIND-METHOD SYSTEM::REMOVE-OLD-DEFINITIONS
#Y(STD-FIND-METHOD
#68Y(00 03 00 01 00 0A 3A 01 02 7D 01 AE 6E 00 62 1A 27 15 19 06 DD DE DF
E0 6D 03 09 B0 B0 B0 32 03 1F 86 01 00 D9 AB DA 71 31 B0 8E 04 09 D9
AB DB 71 31 AF 89 04 5B 82 01 AB 8C 96 65 16 02 91 01 53 00 19 05
)
GF-METHODS STANDARD-METHOD 4. 3. SPECIALIZERS-AGREE-P ERROR
"~S has no method with qualifiers ~:S and specializers ~S"
"~S hat keine Methode mit Bestimmern ~:S und Spezialierung ~S."
"~S n'a pas de méthode qualifiée ~:S qui est spécialisée sur ~S."
SYSTEM::LANGUAGE
) )
#Y(#:TOP-LEVEL-FORM-118
#18Y(00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 82 C3 19 01) DEFMETHOD
SYSTEM::REMOVE-OLD-DEFINITIONS SYSTEM::MACRO
#Y(DEFMETHOD
#74Y(00 01 00 01 00 08 3C 01 AC 71 48 D8 8F 01 2F 29 9D 5B 77 9E 5B 78 AB
88 02 24 E1 62 E2 E3 E4 E5 B1 7A 02 7A 02 7A 03 E6 E5 B0 7A 02 E0 B1
B1 B5 6D 04 0F 7A 03 60 04 19 05 AC 2E 01 19 03 DB DC DD DE 6D 03 07
E0 AE 32 02 1F
)
2. SYSTEM::MACRO-CALL-ERROR FUNCTION-NAME-P PROGRAM-ERROR
"~S: the name of a function must be a symbol, not ~S"
"~S: Der Name einer Funktion muß ein Symbol sein, nicht: ~S"
"~S : Le nom d'une fonction doit être un symbole et non ~S"
SYSTEM::LANGUAGE DEFMETHOD LET EVAL-WHEN (COMPILE) SYSTEM::C-DEFUN QUOTE
DO-DEFMETHOD ANALYZE-METHOD-DESCRIPTION
) )
#Y(#:TOP-LEVEL-FORM-119 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
DO-DEFMETHOD SYSTEM::REMOVE-OLD-DEFINITIONS
#Y(DO-DEFMETHOD
#68Y(00 02 00 00 00 03 AC 8B 53 30 AC DE AD DF 71 31 AE 93 01 9D 5B 77 9E
5B 5B 77 01 02 7A 05 93 02 6E 08 2C 03 09 F6 2F 0A 14 AC 2F 0B 9C 19
03 D9 DA DB DC 6D 03 05 AF 32 01 1F AC 6E 00 AA 8E 20 6E 15 1A 64
)
FDEFINITION ERROR "~S doesn't name a generic function"
"~S bezeichnet keine generische Funktion."
"~S n'est pas ne nom d'une fonction générique." SYSTEM::LANGUAGE
STANDARD-METHOD 5. COUNTUP MAKE-FAST-GF SYSTEM::SET-FDEFINITION
STD-ADD-METHOD
) )
#Y(#:TOP-LEVEL-FORM-120 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
COUNTUP SYSTEM::REMOVE-OLD-DEFINITIONS
#Y(COUNTUP
#22Y(00 01 00 00 00 02 AB 62 1A 05 85 01 14 83 00 AB 24 00 77 15 19 03)
0.
) )
#Y(#:TOP-LEVEL-FORM-121 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
ANALYZE-DEFGENERIC SYSTEM::REMOVE-OLD-DEFINITIONS
#Y(ANALYZE-DEFGENERIC
#385Y(00 05 00 00 00 06 AE 88 00 0F AF AF AF 2C 03 06 41 06 01 03 B5 62
1A 81 48 D9 DA DB DC 6D 03 05 B1 B1 A2 1A 81 28 D9 DF E0 E1 6D 03
05 BC BC CD 1A 80 C2 86 01 00 14 8E 0D 6C 9B 5A 25 0B 80 A7 E4 94
01 8F 00 28 81 17 E5 E6 E7 6D 03 05 BB BB E8 AE 2C 05 11 1A 81 07
D9 EA EB EC 6D 03 05 BC BC 03 15 1A 80 E8 91 03 6F 9B F9 1A 80 F1
D9 EF F0 F1 6D 03 05 BC BC 03 1A 1A 80 79 D9 F3 F4 F5 6D 03 05 BC
BC 03 1A 1A 80 C4 AA 71 48 24 16 5E 9B 5B 77 8E 09 58 91 02 63 9B
5B F8 1A 80 C0 94 00 64 1E 8D 04 80 B8 D9 64 1F 64 20 64 21 6D 03
05 BC BC 03 22 1A 3E 94 00 64 23 8D 04 80 A0 D9 64 24 64 25 64 26
6D 03 05 BC BC 03 27 1A 26 94 00 64 28 8D 04 80 88 D9 64 29 64 2A
64 2B 6D 03 05 BC BC 03 2C 1A 0E D9 64 2E 64 2F 64 30 6D 03 05 BC
BC 03 31 14 A0 1A 13 62 94 02 1A 2B D9 64 32 64 33 64 34 6D 03 05
BD BD AE A4 14 32 04 1F D9 64 36 64 37 03 38 1A 2E 93 00 AA B5 37
06 8E 60 5C 14 83 02 16 01 82 00 9B 20 6D 16 01 AA 7F A7 00 64 35
9C 36 00 1C 57 AA 71 48 B4 8D 03 12 D9 64 39 64 3A 03 3B 14 6D 03
05 BB BB A1 14 32 03 1F 15 1A 1A BA BA 94 02 B9 6D 04 2D 83 04 82
01 AB 8C 96 FE CD 16 02 91 01 FF 8D B2 2E 3C 14 B3 B2 B2 B2 B2 7A
05 AB AF 71 4A 93 04 3F 04 19 10
)
FUNCTION-NAME-P PROGRAM-ERROR
"~S: the name of a function must be a symbol, not ~S"
"~S: Der Name einer Funktion muß ein Symbol sein, nicht: ~S"
"~S : Le nom d'une fonction doit être un symbole et non ~S"
SYSTEM::LANGUAGE ANALYZE-DEFGENERIC-LAMBDALIST
"~S ~S: not a ~S option: ~S" "~S ~S: Das ist keine ~S-Option: ~S"
"~S ~S : Ceci n'est pas une option ~S: ~S" DEFGENERIC
#S(HASH-TABLE EQ (:METHOD . 279.) (:METHOD-CLASS . 145.)
(:GENERIC-FUNCTION-CLASS . 121.) (:METHOD-COMBINATION . 97.)
(:DOCUMENTATION . 76.) (:ARGUMENT-PRECEDENCE-ORDER . 40.)
(DECLARE . 2.)
)
#Y(ANALYZE-DEFGENERIC-1
#19Y(00 01 00 00 00 02 AB 31 06 1E 06 93 01 C3 59 19 02 19 02)
OPTIMIZE
)
"~S ~S: Only ~S declarations are permitted: ~S"
"~S ~S: Erlaubt sind nur ~S-Deklarationen: ~S"
"~S ~S : Seules les déclarations ~S sont permises: ~S" OPTIMIZE WARN
"~S ~S: ~S may only be specified once."
"~S ~S: ~S darf nur einmal angegeben werden."
"~S ~S : ~S ne peut être spécifié qu'une seule fois."
:ARGUMENT-PRECEDENCE-ORDER 2.
"~S ~S: A string must be specified after ~S : ~S"
"~S ~S: Nach ~S muß ein String angegeben werden: ~S"
"~S ~S : Il faut une chaîne après ~S : ~S" :DOCUMENTATION
"~S ~S: Only one ~S string is allowed"
"~S ~S: Es ist höchstens ein ~S-String erlaubt."
"~S ~S : Il faut qu'une seule chaîne ~S." (STANDARD)
"~S ~S: The only valid method combination is ~S : ~S"
"~S ~S: Als Methodenkombination ist nur ~S zugelassen: ~S"
"~S ~S : La seule combinaison de méthodes valable est ~S : ~S" STANDARD
(STANDARD-GENERIC-FUNCTION)
"~S ~S: The only valid generic function class name is ~S : ~S"
"~S ~S: Als Name der Klasse der generischen Funktion ist nur ~S zugelassen: ~S"
"~S ~S : Le seul nom valable d'une classe de fonction générique est ~S : ~S"
STANDARD-GENERIC-FUNCTION (STANDARD-METHOD)
"~S ~S: The only valid method class name is ~S : ~S"
"~S ~S: Als Name der Klasse der Methoden ist nur ~S zugelassen: ~S"
"~S ~S : Le seul nom valable d'une classe de méthodes est ~S : ~S"
STANDARD-METHOD ANALYZE-METHOD-DESCRIPTION
"~S ~S: invalid syntax in ~S option: ~S"
"~S ~S: Falsche Syntax in ~S-Option: ~S"
"~S ~S : Mauvaise syntaxe dans l'option ~S: ~S" DEFSTRUCT
"~S ~S: ~S is not one of the required parameters: ~S"
"~S ~S: ~S ist keiner der notwendigen Parameter: ~S"
"~S ~S : ~S n'est pas parmi les noms d'arguments obligatoires: ~S" #.#'/=
"~S ~S: some variable occurs twice in ~S"
"~S ~S: eine Variable taucht in ~S doppelt auf."
"~S ~S : une variable apparaît plusieurs fois dans ~S."
"~S ~S: ~S is missing some required parameter"
"~S ~S: ~S enthält nicht alle notwendigen Parameter."
"~S ~S : ~S ne contient pas tous les noms d'arguments obligatoires."
COUNTUP
) )
#Y(#:TOP-LEVEL-FORM-122 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
ANALYZE-DEFGENERIC-LAMBDALIST SYSTEM::REMOVE-OLD-DEFINITIONS
#Y(ANALYZE-DEFGENERIC-LAMBDALIST
#249Y(00 03 00 00 00 04 00 2A 02 7E 04 00 00 7E 03 00 01 9B 2A 01 00 0B
00 00 D8 01 03 D9 B2 8F 00 27 06 AE 6C 07 01 1A 14 DA DB DC C8 1A
80 A7 93 08 82 09 9C 73 06 06 00 5C 0B 05 00 A3 1F 05 93 08 88 08
6B A3 1F 24 93 08 24 09 1F 82 08 1A 13 9B 5A 1A 08 93 08 82 09 9B
20 75 9B 14 9D 33 84 05 16 01 A3 1F 05 93 08 88 08 69 A3 1F 12 93
08 24 0A 0D A3 5B 1F 09 82 08 77 82 09 9C 33 7D 03 A3 1F 80 49 93
08 24 0B 80 43 82 08 7D 03 1A 29 9B 5B 5A 1A 12 9B 5A 1A 1B 93 08
82 09 9B 1F 03 86 00 00 9B 20 6A 9B 14 9D 33 9B 20 68 AA 71 8C 6A
0C 30 D7 14 83 03 16 01 A3 1F 05 93 08 88 08 58 A3 1F 09 93 08 24
0D 04 82 08 7D 01 16 01 92 07 12 DA E6 E7 D3 14 6D 03 06 67 07 00
67 08 01 B5 32 03 1F 67 04 00 71 48 67 05 00 71 4A AF 91 05 01 00
14 AF AF 3F 06 19 0A
)
0.
#Y(ANALYZE-DEFGENERIC-LAMBDALIST-1
#17Y(00 01 00 00 00 02 AB 31 06 1E 04 9C 5B 19 02 19 02)
)
PROGRAM-ERROR
"~S ~S: No initializations are allowed in a generic function lambda-list: ~S"
"~S ~S: In der Lambda-Liste einer generischen Funktion sind keine Initialisierungen erlaubt: ~S"
"~S ~S : Des initialisations ne sont pas permises dans la liste lambda d'une fonction générique: ~S"
SYSTEM::LANGUAGE
#Y(ANALYZE-DEFGENERIC-LAMBDALIST-CHECK-VARNAME
#47Y(00 01 00 00 00 02 AB 8E 08 1C AB 68 00 01 DE 37 02 8C B7 18 D9 DF
E0 CC 14 6D 03 05 68 01 01 68 01 02 AF 32 03 1F D9 DA DB C7 1A 6C
9C 19 02
)
NIL PROGRAM-ERROR "~S ~S: variable name ~S should be a symbol"
"~S ~S: Variablenname muß ein Symbol sein, nicht ~S"
"~S ~S : le nom de variable ~S devrait être un symbole."
SYSTEM::LANGUAGE #.#'EQ "~S ~S: duplicate variable name ~S"
"~S ~S: Variablenname ~S darf nicht mehrfach auftreten."
"~S ~S : le nom de variable ~S apparaît plusieurs fois."
)
LAMBDA-LIST-KEYWORD-P &OPTIONAL &REST &KEY *KEYWORD-PACKAGE*
&ALLOW-OTHER-KEYS "~S ~S: invalid lambda list portion: ~S"
"~S ~S: Lambda-Liste enthält Unzulässiges: ~S"
"~S ~S : liste lambda partiellement invalide: ~S"
) )
#Y(#:TOP-LEVEL-FORM-123 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
DEFGENERIC-LAMBDALIST-CALLINFO SYSTEM::REMOVE-OLD-DEFINITIONS
#Y(DEFGENERIC-LAMBDALIST-CALLINFO
#24Y(00 03 00 00 00 04 AD AD AD 2C 03 00 41 06 AF AE AE AE AE 2C 05 01 19
0A
)
ANALYZE-DEFGENERIC-LAMBDALIST CALLINFO
) )
#Y(#:TOP-LEVEL-FORM-124
#18Y(00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 82 C3 19 01) DEFGENERIC
SYSTEM::REMOVE-OLD-DEFINITIONS SYSTEM::MACRO
#Y(DEFGENERIC
#122Y(00 01 00 01 00 08 3C 01 AC 71 48 D8 8F 01 2F 80 40 9D 5B 77 9E 5B
5B 77 9F 5B 5B 78 DA AD AD AD B2 2C 05 03 41 04 DC 62 DD DE DF E0
B6 7A 02 7A 02 7A 03 91 03 24 00 14 E5 E0 B6 7A 02 E0 B4 7A 02 E0
B4 7A 02 A4 7B 04 7A 01 32 02 23 61 03 19 0A AC 2E 01 19 03 E0 A5
1A 0D A4 1F 79 E1 E2 E0 A7 5B 77 7A 02 60 02 14 7A 02 E3 AB E4 E0
B2 7A 02 7A 04 60 01 16 01 1A FF BD
)
3. SYSTEM::MACRO-CALL-ERROR DEFGENERIC ANALYZE-DEFGENERIC LET EVAL-WHEN
(COMPILE) SYSTEM::C-DEFUN QUOTE LOAD-TIME-VALUE SYSTEM::GET-SETF-SYMBOL
SYSTEM::%SET-DOCUMENTATION 'FUNCTION DO-DEFGENERIC
) )
#Y(#:TOP-LEVEL-FORM-125 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
MAKE-GENERIC-FUNCTION SYSTEM::REMOVE-OLD-DEFINITIONS
#Y(MAKE-GENERIC-FUNCTION
#37Y(00 03 00 00 01 19 AE AE AE 6D 03 00 AC 62 1A 09 86 01 00 AC AB 2F 01
82 01 AB 8C 96 73 16 02 AA 2E 02 15 19 05
)
MAKE-FAST-GF STD-ADD-METHOD FINALIZE-FAST-GF
) )
#Y(#:TOP-LEVEL-FORM-126 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
DO-DEFGENERIC SYSTEM::REMOVE-OLD-DEFINITIONS
#Y(DO-DEFGENERIC
#118Y(00 03 00 00 01 19 AE 8B 53 80 44 AE 98 16 B0 B0 B0 A1 76 03 2F 17
19 05 AA 2E 01 AA 88 02 0D DB DC DD 6D 03 06 AB 2F 07 62 AB 2F 08
AE AB 6E 09 8E 04 07 AD AB 6E 0A 8D 04 11 E3 E4 E5 6D 03 06 AB 2F
07 AE AB 2F 0E AD AB 2F 0F AC 62 1A 1B AE 6E 00 AA 8D 20 42 EA EB
EC ED 6D 03 06 B1 32 01 1F 86 01 00 AC AB 2F 10 82 01 AB 8C 96 73
16 02 AA 2E 11 15 19 05
)
FDEFINITION WARN-IF-GF-ALREADY-CALLED GF-METHODS
"Removing all methods of ~S" "Alle Methoden von ~S werden entfernt."
"On enlève toutes les méthodes de ~S." SYSTEM::LANGUAGE WARN
#.(SYSTEM::GET-SETF-SYMBOL 'GF-METHODS) GF-SIGNATURE GF-ARGORDER
"Modifying the parameter profile of ~S"
"Das Parameter-Profil von ~S wird modifiziert."
"On change le nombre / l'ordre des arguments de ~S."
#.(SYSTEM::GET-SETF-SYMBOL 'GF-SIGNATURE)
#.(SYSTEM::GET-SETF-SYMBOL 'GF-ARGORDER) STD-ADD-METHOD FINALIZE-FAST-GF
ERROR "~S doesn't name a generic function"
"~S bezeichnet keine generische Funktion."
"~S n'est pas le nom d'une fonction générique." MAKE-GENERIC-FUNCTION
SYSTEM::SET-FDEFINITION
) )
#Y(#:TOP-LEVEL-FORM-127 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
MAKE-GENERIC-FUNCTION-FORM SYSTEM::REMOVE-OLD-DEFINITIONS
#Y(MAKE-GENERIC-FUNCTION-FORM
#34Y(00 05 00 00 00 06 AF AF AF AF AF 2C 05 00 41 04 D9 DA B4 7A 02 DA B0
7A 02 DA B0 7A 02 A0 61 04 19 0A
)
ANALYZE-DEFGENERIC MAKE-GENERIC-FUNCTION QUOTE
) )
#Y(#:TOP-LEVEL-FORM-128
#18Y(00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 82 C3 19 01) GENERIC-FUNCTION
SYSTEM::REMOVE-OLD-DEFINITIONS SYSTEM::MACRO
#Y(GENERIC-FUNCTION
#37Y(00 01 00 01 00 08 3C 01 AC 71 48 D8 8F 01 2F 10 9D 5B 77 9E 5B 78 DA
DB AD AD B1 2C 05 04 19 05 AC 2E 01 19 03
)
2. SYSTEM::MACRO-CALL-ERROR GENERIC-FUNCTION LAMBDA
MAKE-GENERIC-FUNCTION-FORM
) )
#Y(#:TOP-LEVEL-FORM-129 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
ANALYZE-GENERIC-FUNDEFS SYSTEM::REMOVE-OLD-DEFINITIONS
#Y(ANALYZE-GENERIC-FUNDEFS
#70Y(00 03 00 00 00 04 01 02 AE 62 1A 2A D8 D9 DA DB 6D 03 04 B3 AD 32 02
1F 86 01 00 1F 6F 9B 5B 1F 6B 93 00 83 03 B1 93 01 9D 5B 77 9E 5B 78
B3 6D 05 05 83 02 82 01 AB 8C 96 5E 16 02 AB 71 4A AB 71 4A 3F 02 19
06
)
PROGRAM-ERROR "~S: ~S is not a generic function specification"
"~S: ~S ist keine Spezifikation einer generischen Funktion."
"~S: ~S n'est pas une spécification de fonction générique."
SYSTEM::LANGUAGE MAKE-GENERIC-FUNCTION-FORM
) )
#Y(#:TOP-LEVEL-FORM-130
#18Y(00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 82 C3 19 01) GENERIC-FLET
SYSTEM::REMOVE-OLD-DEFINITIONS SYSTEM::MACRO
#Y(GENERIC-FLET
#97Y(00 01 00 01 00 08 3C 01 AC 71 48 D8 8F 01 2F 20 9D 5B 77 9E 5B 78 DA
AC AF 2C 03 03 41 02 AB 71 48 6E 04 DD DE AC AE 72 01 17 DF 62 AE B1
1A 21 AC 2E 01 19 03 16 03 1A 1D 93 01 9C 1F 77 93 01 AA E0 E1 AE CD
7B 02 7A 03 83 04 16 02 82 01 82 00 9C 20 65 16 02 AA 7F A7 00 A2 7B
02 60 03 19 08
)
2. SYSTEM::MACRO-CALL-ERROR GENERIC-FLET ANALYZE-GENERIC-FUNDEFS
N-GENSYMS LET #.#'LIST FLET (&REST ARGS) APPLY (ARGS)
) )
#Y(#:TOP-LEVEL-FORM-131
#18Y(00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 82 C3 19 01) GENERIC-LABELS
SYSTEM::REMOVE-OLD-DEFINITIONS SYSTEM::MACRO
#Y(GENERIC-LABELS
#133Y(00 01 00 01 00 08 3C 01 AC 71 48 D8 8F 01 2F 1B 9D 5B 77 9E 5B 78
DA AC AF 2C 03 03 41 02 AB 71 48 6E 04 DD AB DE 62 AE B1 1A 21 AC
2E 01 19 03 16 03 1A 1D 93 01 9C 1F 77 93 01 AA DF E0 AE CC 7B 02
7A 03 83 04 16 02 82 01 82 00 9C 20 65 16 02 AA 7F A7 00 62 AF B1
1A 18 16 03 1A 19 93 01 9C 1F 77 93 01 E2 AC AC 7A 03 83 04 16 02
82 01 82 00 9C 20 69 16 02 AA 7F A7 00 B2 32 02 23 7B 02 60 03 19
08
)
2. SYSTEM::MACRO-CALL-ERROR GENERIC-LABELS ANALYZE-GENERIC-FUNDEFS
N-GENSYMS LET FLET (&REST ARGS) APPLY (ARGS) SETQ
) )
#Y(#:TOP-LEVEL-FORM-132
#33Y(00 00 00 00 00 01 D8 D9 DA DB DC DD 63 DE DF 37 02 71 2C 7A 01 E0 62 E1
E2 6D 0A 0B 2C 04 0C 19 01
)
CLASS-NAME (1. 0. NIL NIL NIL) (0.) :INITFUNCTION
#Y(#:TOP-LEVEL-FORM-132-1 #11Y(00 01 00 00 00 02 D8 C4 5C 19 02)
#Y(#:TOP-LEVEL-FORM-132-1-1 #13Y(00 01 00 00 00 02 D8 AC D9 31 31 19 02)
CLASS 2.
)
(T)
)
:WANTS-NEXT-METHOD-P :PARAMETER-SPECIALIZERS CLASS :QUALIFIERS :SIGNATURE
(1. 0. NIL NIL NIL NIL) MAKE-STANDARD-METHOD DO-DEFGENERIC
)
#Y(#:TOP-LEVEL-FORM-133
#38Y(00 00 00 00 00 01 D8 D9 DA DB DC DD 63 DE 63 37 02 71 2C DF 37 02 71 2C
7A 02 E0 62 E1 E2 6D 0A 0B 2C 04 0C 19 01
)
(SETF CLASS-NAME) (2. 0. NIL NIL NIL) (0. 1.) :INITFUNCTION
#Y(#:TOP-LEVEL-FORM-133-1 #11Y(00 01 00 00 00 02 D8 C4 5C 19 02)
#Y(#:TOP-LEVEL-FORM-133-1-1
#50Y(00 02 00 00 00 03 AC 8E 08 0C AB 87 09 18 E7 AC E8 AF 31 32 19 03
D8 D9 AE DA DB DC DD DE 6D 03 07 E0 B3 32 06 1F E2 E3 E4 E5 6D 03
07 E6 AE 32 02 1F
)
TYPE-ERROR :DATUM :EXPECTED-TYPE SYMBOL
"~S: The name of a class must be a symbol, not ~S"
"~S: Der Name einer Klasse muß ein Symbol sein, nicht ~S"
"~S : Le nom d'une classe doit être un symbole et non ~S."
SYSTEM::LANGUAGE (SETF CLASS-NAME) BUILT-IN-CLASS-P ERROR
"~S: The name of the built-in class ~S cannot be modified"
"~S: Der Name der Built-In-Klasse ~S kann nicht verändert werden."
"~S : Le nom de la classe prédéfinie ~S ne peut pas être changée."
(SETF CLASS-NAME) CLASS 2.
)
(T)
)
:WANTS-NEXT-METHOD-P :PARAMETER-SPECIALIZERS CLASS :QUALIFIERS :SIGNATURE
(2. 0. NIL NIL NIL NIL) MAKE-STANDARD-METHOD DO-DEFGENERIC
)
#Y(#:TOP-LEVEL-FORM-134
#33Y(00 00 00 00 00 01 D8 D9 DA DB DC DD 63 DE 63 37 02 71 2C 7A 01 DF 62 E0
E1 6D 0A 0A 2C 04 0B 19 01
)
NO-APPLICABLE-METHOD (1. 0. T NIL NIL) (0.) :INITFUNCTION
#Y(#:TOP-LEVEL-FORM-134-1 #11Y(00 01 00 00 00 02 D8 C4 5C 19 02)
#Y(#:TOP-LEVEL-FORM-134-1-1
#19Y(00 01 00 00 01 17 D8 D9 DA DB 6D 03 04 DD AF AF 32 03 1F) ERROR
"~S: When calling ~S with arguments ~S, no method is applicable."
"~S: Beim Aufruf von ~S mit Argumenten ~S ist keine Methode anwendbar."
"~S : À l'appel de ~S avec les arguments ~S, aucune méthode ne s'applique."
SYSTEM::LANGUAGE NO-APPLICABLE-METHOD
)
(T)
)
:WANTS-NEXT-METHOD-P :PARAMETER-SPECIALIZERS :QUALIFIERS :SIGNATURE
(1. 0. T NIL NIL NIL) MAKE-STANDARD-METHOD DO-DEFGENERIC
)
#Y(#:TOP-LEVEL-FORM-135
#33Y(00 00 00 00 00 01 D8 D9 DA DB DC DD 63 DE 63 37 02 71 2C 7A 01 DF 62 E0
E1 6D 0A 0A 2C 04 0B 19 01
)
NO-PRIMARY-METHOD (1. 0. T NIL NIL) (0.) :INITFUNCTION
#Y(#:TOP-LEVEL-FORM-135-1 #11Y(00 01 00 00 00 02 D8 C4 5C 19 02)
#Y(#:TOP-LEVEL-FORM-135-1-1
#19Y(00 01 00 00 01 17 D8 D9 DA DB 6D 03 04 DD AF AF 32 03 1F) ERROR
"~S: When calling ~S with arguments ~S, no primary method is applicable."
"~S: Beim Aufruf von ~S mit Argumenten ~S ist keine primäre Methode anwendbar."
"~S : À l'appel de ~S avec les arguments ~S, aucune méthode primaire ne s'applique."
SYSTEM::LANGUAGE NO-PRIMARY-METHOD
)
(T)
)
:WANTS-NEXT-METHOD-P :PARAMETER-SPECIALIZERS :QUALIFIERS :SIGNATURE
(1. 0. T NIL NIL NIL) MAKE-STANDARD-METHOD DO-DEFGENERIC
)
#Y(#:TOP-LEVEL-FORM-136 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
%NO-NEXT-METHOD SYSTEM::REMOVE-OLD-DEFINITIONS
#Y(%NO-NEXT-METHOD
#18Y(00 01 00 00 01 17 98 00 D9 AE DA 71 31 AE 9F 9A 02 03)
NO-NEXT-METHOD STANDARD-METHOD 6.
) )
#Y(#:TOP-LEVEL-FORM-137
#38Y(00 00 00 00 00 01 D8 D9 DA DB DC DD 63 DE DF 37 02 71 2C E0 37 02 71 2C
7A 02 E1 62 E2 E3 6D 0A 0C 2C 04 0D 19 01
)
NO-NEXT-METHOD (2. 0. T NIL NIL) (0. 1.) :INITFUNCTION
#Y(#:TOP-LEVEL-FORM-137-1 #11Y(00 01 00 00 00 02 D8 C4 5C 19 02)
#Y(#:TOP-LEVEL-FORM-137-1-1
#21Y(00 02 00 00 01 18 D8 D9 DA DB 6D 03 04 DD B0 AF B1 DE 32 05 1F)
ERROR
"~S: When calling ~S with arguments ~S, there is no next method after ~S, and ~S was called."
"~S: Beim Aufruf von ~S mit Argumenten ~S gibt es nach ~S keine weitere Methode, und ~S wurde aufgerufen."
"~S : À l'appel de ~S avec les arguments ~S, il n'y a plus de méthode après ~S, et ~S a été appelé."
SYSTEM::LANGUAGE NO-NEXT-METHOD (CALL-NEXT-METHOD)
)
(T)
)
:WANTS-NEXT-METHOD-P :PARAMETER-SPECIALIZERS STANDARD-GENERIC-FUNCTION
STANDARD-METHOD :QUALIFIERS :SIGNATURE (2. 0. T NIL NIL NIL)
MAKE-STANDARD-METHOD DO-DEFGENERIC
)
#Y(#:TOP-LEVEL-FORM-138
#43Y(00 00 00 00 00 01 D8 D9 DA DB DC DD 63 DE DF 37 02 71 2C 63 37 02 71 2C
63 37 02 71 2C 7A 03 E0 62 E1 E2 6D 0A 0B 2C 04 0C 19 01
)
FIND-METHOD (3. 1. NIL NIL NIL) (0. 1. 2.) :INITFUNCTION
#Y(#:TOP-LEVEL-FORM-138-1 #11Y(00 01 00 00 00 02 D8 C4 5C 19 02)
#Y(#:TOP-LEVEL-FORM-138-1-1
#24Y(00 03 00 00 01 19 9C 38 01 01 3A 00 02 7D 00 AF AF AF AD 2C 04 00
19 06
)
STD-FIND-METHOD
)
(T)
)
:WANTS-NEXT-METHOD-P :PARAMETER-SPECIALIZERS STANDARD-GENERIC-FUNCTION
:QUALIFIERS :SIGNATURE (3. 1. NIL NIL NIL NIL) MAKE-STANDARD-METHOD
DO-DEFGENERIC
)
#Y(#:TOP-LEVEL-FORM-139
#38Y(00 00 00 00 00 01 D8 D9 DA DB DC DD 63 DE DF 37 02 71 2C E0 37 02 71 2C
7A 02 E1 62 E2 E3 6D 0A 0C 2C 04 0D 19 01
)
ADD-METHOD (2. 0. NIL NIL NIL) (0. 1.) :INITFUNCTION
#Y(#:TOP-LEVEL-FORM-139-1 #11Y(00 01 00 00 00 02 D8 C4 5C 19 02)
#Y(#:TOP-LEVEL-FORM-139-1-1 #12Y(00 02 00 00 00 03 AC AC 2F 00 19 03)
STD-ADD-METHOD
)
(T)
)
:WANTS-NEXT-METHOD-P :PARAMETER-SPECIALIZERS STANDARD-GENERIC-FUNCTION
STANDARD-METHOD :QUALIFIERS :SIGNATURE (2. 0. NIL NIL NIL NIL)
MAKE-STANDARD-METHOD DO-DEFGENERIC
)
#Y(#:TOP-LEVEL-FORM-140
#38Y(00 00 00 00 00 01 D8 D9 DA DB DC DD 63 DE DF 37 02 71 2C E0 37 02 71 2C
7A 02 E1 62 E2 E3 6D 0A 0C 2C 04 0D 19 01
)
REMOVE-METHOD (2. 0. NIL NIL NIL) (0. 1.) :INITFUNCTION
#Y(#:TOP-LEVEL-FORM-140-1 #11Y(00 01 00 00 00 02 D8 C4 5C 19 02)
#Y(#:TOP-LEVEL-FORM-140-1-1 #12Y(00 02 00 00 00 03 AC AC 2F 00 19 03)
STD-REMOVE-METHOD
)
(T)
)
:WANTS-NEXT-METHOD-P :PARAMETER-SPECIALIZERS STANDARD-GENERIC-FUNCTION
STANDARD-METHOD :QUALIFIERS :SIGNATURE (2. 0. NIL NIL NIL NIL)
MAKE-STANDARD-METHOD DO-DEFGENERIC
)
#Y(#:TOP-LEVEL-FORM-141 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
COMPUTE-APPLICABLE-METHODS SYSTEM::REMOVE-OLD-DEFINITIONS
#Y(COMPUTE-APPLICABLE-METHODS
#57Y(00 02 00 00 00 03 AC 2E 00 77 AD 6E 01 AD 71 48 AC 8F 01 32 03 00 19
05 00 2A 01 AE DA AE 31 46 0B 00 00 AA 6C 03 01 AC 37 05 80 51 01 14
67 01 00 B1 6E 04 2C 03 05 19 06
)
GF-SIGNATURE GF-METHODS 0.
#Y(COMPUTE-APPLICABLE-METHODS-1
#14Y(00 01 00 00 00 02 AB 68 00 01 2F 01 19 02) NIL
METHOD-APPLICABLE-P
)
GF-ARGORDER SORT-APPLICABLE-METHODS
) )
#Y(#:TOP-LEVEL-FORM-142
#33Y(00 00 00 00 00 01 D8 D9 DA DB DC DD 63 DE DF 37 02 71 2C 7A 01 E0 62 E1
E2 6D 0A 0B 2C 04 0C 19 01
)
METHOD-QUALIFIERS (1. 0. NIL NIL NIL) (0.) :INITFUNCTION
#Y(#:TOP-LEVEL-FORM-142-1 #11Y(00 01 00 00 00 02 D8 C4 5C 19 02)
#Y(#:TOP-LEVEL-FORM-142-1-1 #13Y(00 01 00 00 00 02 D8 AC D9 31 31 19 02)
STANDARD-METHOD 4.
)
(T)
)
:WANTS-NEXT-METHOD-P :PARAMETER-SPECIALIZERS STANDARD-METHOD :QUALIFIERS
:SIGNATURE (1. 0. NIL NIL NIL NIL) MAKE-STANDARD-METHOD DO-DEFGENERIC
)
#Y(#:TOP-LEVEL-FORM-143
#33Y(00 00 00 00 00 01 D8 D9 DA DB DC DD 63 DE DF 37 02 71 2C 7A 01 E0 62 E1
E2 6D 0A 0B 2C 04 0C 19 01
)
FUNCTION-KEYWORDS (1. 0. NIL NIL NIL) (0.) :INITFUNCTION
#Y(#:TOP-LEVEL-FORM-143-1 #11Y(00 01 00 00 00 02 D8 C4 5C 19 02)
#Y(#:TOP-LEVEL-FORM-143-1-1
#18Y(00 01 00 00 00 02 D8 AC D9 31 31 5B 5B 5B 5B 43 19 02)
STANDARD-METHOD 5.
)
(T)
)
:WANTS-NEXT-METHOD-P :PARAMETER-SPECIALIZERS STANDARD-METHOD :QUALIFIERS
:SIGNATURE (1. 0. NIL NIL NIL NIL) MAKE-STANDARD-METHOD DO-DEFGENERIC
)
#Y(#:TOP-LEVEL-FORM-144
#48Y(00 00 00 00 00 01 D8 D9 DA DB DC DD 63 DE 63 37 02 71 2C 63 37 02 71 2C
63 37 02 71 2C 63 37 02 71 2C 7A 04 DF 62 E0 E1 6D 0A 0A 2C 04 0B 19 01
)
SLOT-MISSING (4. 1. NIL NIL NIL) (0. 1. 2. 3.) :INITFUNCTION
#Y(#:TOP-LEVEL-FORM-144-1 #11Y(00 01 00 00 00 02 D8 C4 5C 19 02)
#Y(#:TOP-LEVEL-FORM-144-1-1
#23Y(00 04 00 00 01 1A 9C 38 01 01 D8 D9 DA DB 6D 03 04 AF B3 B2 32 03
1F
)
ERROR "~S: The class ~S has no slot named ~S"
"~S: Die Klasse ~S hat keinen Slot mit Namen ~S."
"~S : La classe ~S n'a pas de composant de nom ~S." SYSTEM::LANGUAGE
)
(T)
)
:WANTS-NEXT-METHOD-P :PARAMETER-SPECIALIZERS :QUALIFIERS :SIGNATURE
(4. 1. NIL NIL NIL NIL) MAKE-STANDARD-METHOD DO-DEFGENERIC
)
#Y(#:TOP-LEVEL-FORM-145
#43Y(00 00 00 00 00 01 D8 D9 DA DB DC DD 63 DE 63 37 02 71 2C 63 37 02 71 2C
63 37 02 71 2C 7A 03 DF 62 E0 E1 6D 0A 0A 2C 04 0B 19 01
)
SLOT-UNBOUND (3. 0. NIL NIL NIL) (0. 1. 2.) :INITFUNCTION
#Y(#:TOP-LEVEL-FORM-145-1 #11Y(00 01 00 00 00 02 D8 C4 5C 19 02)
#Y(#:TOP-LEVEL-FORM-145-1-1
#19Y(00 03 00 00 00 04 D8 D9 DA DB 6D 03 04 DD AE B0 32 03 1F) ERROR
"~S: The slot ~S of ~S has no value"
"~S: Der Slot ~S von ~S hat keinen Wert."
"~S : Le composant ~S de ~S n'a pas de valeur." SYSTEM::LANGUAGE
SLOT-VALUE
)
(T)
)
:WANTS-NEXT-METHOD-P :PARAMETER-SPECIALIZERS :QUALIFIERS :SIGNATURE
(3. 0. NIL NIL NIL NIL) MAKE-STANDARD-METHOD DO-DEFGENERIC
)
#Y(#:TOP-LEVEL-FORM-146
#38Y(00 00 00 00 00 01 D8 D9 DA DB DC DD 63 DE DF 37 02 71 2C 63 37 02 71 2C
7A 02 E0 62 E1 E2 6D 0A 0B 2C 04 0C 19 01
)
PRINT-OBJECT (2. 0. NIL NIL NIL) (0. 1.) :INITFUNCTION
#Y(#:TOP-LEVEL-FORM-146-1 #11Y(00 01 00 00 00 02 D8 C4 5C 19 02)
#Y(#:TOP-LEVEL-FORM-146-1-1
#18Y(00 02 00 00 00 03 62 AD AD D8 63 D9 63 2C 07 02 19 03) :TYPE
:IDENTITY SYSTEM::WRITE-UNREADABLE
)
(T)
)
:WANTS-NEXT-METHOD-P :PARAMETER-SPECIALIZERS STANDARD-OBJECT :QUALIFIERS
:SIGNATURE (2. 0. NIL NIL NIL NIL) MAKE-STANDARD-METHOD DO-DEFGENERIC
)
#Y(#:TOP-LEVEL-FORM-147
#38Y(00 00 00 00 00 01 D8 D9 DA DB DC DD 63 DE DF 37 02 71 2C 63 37 02 71 2C
7A 02 E0 62 E1 E2 6D 0A 0B 2C 04 0C 19 01
)
DESCRIBE-OBJECT (2. 0. NIL NIL NIL) (0. 1.) :INITFUNCTION
#Y(#:TOP-LEVEL-FORM-147-1 #11Y(00 01 00 00 00 02 D8 C4 5C 19 02)
#Y(#:TOP-LEVEL-FORM-147-1-1
#125Y(00 02 00 00 00 03 98 00 AD 71 2B D9 AB DA 80 31 00 72 00 17 91
00 0B AC E9 EA EB 6D 03 0A 2F 0B 19 04 DB AB 72 00 17 DC DD DE
AD 72 00 17 37 05 71 4C 72 02 35 AE DF E0 E1 6D 03 0A 2F 0B AC
AC 1A 33 B2 E5 B5 AE 71 3E 2C 03 0B 16 02 1A 22 16 03 1A 27 93
01 9C 1F 77 93 01 B2 E4 AC B1 2C 04 0B B3 AC 8D 40 5C B2 E6 E7
E8 6D 03 0A 2F 0B 16 02 82 01 82 00 9C 20 5B 16 02 9D 19 06
)
SLOTDEF-NAME STANDARD-CLASS 8. #.#'WRITE-TO-STRING 4. #.#'MAX
#.#'LENGTH "~%Slots:" "~%Slots:" "~%Composants:" SYSTEM::LANGUAGE
FORMAT
#Y(#:TOP-LEVEL-FORM-147-1-1-1
#27Y(00 03 00 00 01 19 D8 AF 37 02 30 8D AD AF 30 88 AE 01 02 AF 62
2C 05 01 9C 19 05
)
"
"
SYSTEM::FORMAT-TABULATE
)
#Y(#:TOP-LEVEL-FORM-147-1-1-2
#19Y(00 02 00 00 01 18 D8 AE 37 02 30 8D AC AE 30 85 9C 19 04)
"= "
)
"unbound" "ohne Wert" "aucune valeur" "~%No slots." "~%Keine Slots."
"~%Aucun composant."
)
(T)
)
:WANTS-NEXT-METHOD-P :PARAMETER-SPECIALIZERS STANDARD-OBJECT :QUALIFIERS
:SIGNATURE (2. 0. NIL NIL NIL NIL) MAKE-STANDARD-METHOD DO-DEFGENERIC
)
#Y(#:TOP-LEVEL-FORM-148
#21Y(00 00 00 00 00 01 D8 30 5D D9 37 05 C5 F9 70 66 30 55 C4 19 01)
(SPECIAL *MAKE-INSTANCE-TABLE*) *MAKE-INSTANCE-TABLE* #.#'EQ
)
#Y(#:TOP-LEVEL-FORM-149
#21Y(00 00 00 00 00 01 D8 30 5D D9 37 05 C5 F9 70 66 30 55 C4 19 01)
(SPECIAL *REINITIALIZE-INSTANCE-TABLE*) *REINITIALIZE-INSTANCE-TABLE* #.#'EQ
)
#Y(#:TOP-LEVEL-FORM-150 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
NOTE-I-CHANGE SYSTEM::REMOVE-OLD-DEFINITIONS
#Y(NOTE-I-CHANGE
#28Y(00 02 00 00 00 03 00 2A 02 7E 03 00 00 7E 02 00 01 AA 6C 00 01 67 01
01 30 6A 19 04
)
#Y(NOTE-I-CHANGE-1
#24Y(00 02 00 00 00 03 AC 68 00 01 89 01 03 00 19 03 AC 68 00 02 30 69
19 03
)
NIL SUBCLASSP
) ) )
#Y(#:TOP-LEVEL-FORM-151 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
NOTE-II-CHANGE SYSTEM::REMOVE-OLD-DEFINITIONS
#Y(NOTE-II-CHANGE
#25Y(00 01 00 00 00 02 D8 AC D9 31 31 77 9B 20 07 AA 6A 02 2F 03 19 03 00
19 03
)
STANDARD-METHOD 3. *MAKE-INSTANCE-TABLE* NOTE-I-CHANGE
) )
#Y(#:TOP-LEVEL-FORM-152 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
NOTE-RI-CHANGE SYSTEM::REMOVE-OLD-DEFINITIONS
#Y(NOTE-RI-CHANGE
#25Y(00 01 00 00 00 02 D8 AC D9 31 31 77 9B 20 07 AA 6A 02 2F 03 19 03 00
19 03
)
STANDARD-METHOD 3. *REINITIALIZE-INSTANCE-TABLE* NOTE-I-CHANGE
) )
#Y(#:TOP-LEVEL-FORM-153 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
NOTE-SI-CHANGE SYSTEM::REMOVE-OLD-DEFINITIONS
#Y(NOTE-SI-CHANGE
#44Y(00 01 00 00 00 02 D8 AC D9 71 31 93 00 9C 5B 77 9C 20 0F 63 AB 8A 02
05 AB 6A 03 2F 04 62 AB 89 02 03 00 19 05 AB 6A 05 2F 04 19 05
)
STANDARD-METHOD 3. TYPEP *MAKE-INSTANCE-TABLE* NOTE-I-CHANGE
*REINITIALIZE-INSTANCE-TABLE*
) )
#Y(#:TOP-LEVEL-FORM-154 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
VALID-INITARG-KEYWORDS SYSTEM::REMOVE-OLD-DEFINITIONS
#Y(VALID-INITARG-KEYWORDS
#38Y(00 02 00 00 00 03 98 00 AC 72 00 17 D9 AB 37 05 80 54 00 DA AE DB 71
31 DC AC 6F 05 72 02 23 63 37 05 31 55 19 04
)
STD-METHOD-SIGNATURE #.#'FOURTH STANDARD-CLASS 13. #.#'FIFTH MAPCAP
) )
#Y(#:TOP-LEVEL-FORM-155 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
VALID-MAKE-INSTANCE-KEYWORDS SYSTEM::REMOVE-OLD-DEFINITIONS
#Y(VALID-MAKE-INSTANCE-KEYWORDS
#45Y(00 01 00 00 00 02 00 2A 01 7E 02 00 00 14 AB 6C 00 01 6A 01 6E 02 37
05 71 51 AC 6C 03 01 6A 04 6E 02 37 05 71 51 72 02 23 2F 05 19 03
)
#Y(VALID-MAKE-INSTANCE-KEYWORDS-1
#37Y(00 01 00 00 00 02 D9 AC DA 71 31 93 00 9C 5B 77 AB 31 07 1E 0E 68
00 01 AC 2F 03 1E 06 63 AB 2F 04 19 05 19 05
)
NIL STANDARD-METHOD 3. SUBCLASSP TYPEP
)
|#'shared-initialize| GF-METHODS
#Y(VALID-MAKE-INSTANCE-KEYWORDS-2
#27Y(00 01 00 00 00 02 D9 AC DA 31 31 77 AA 31 07 1E 08 68 00 01 AB 2F
03 19 03 19 03
)
NIL STANDARD-METHOD 3. SUBCLASSP
)
|#'initialize-instance| VALID-INITARG-KEYWORDS
) )
#Y(#:TOP-LEVEL-FORM-156 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
MAKE-INSTANCE-TABLE-ENTRY2 SYSTEM::REMOVE-OLD-DEFINITIONS
#Y(MAKE-INSTANCE-TABLE-ENTRY2
#24Y(00 01 00 00 00 02 6A 00 62 AD 6D 03 01 6A 02 62 AE 63 2C 04 01 5C 19
02
)
|#'initialize-instance| COMPUTE-EFFECTIVE-METHOD |#'shared-initialize|
) )
#Y(#:TOP-LEVEL-FORM-157 #14Y(00 00 00 00 00 01 D8 D9 DA 2C 03 03 19 01)
SHARED-INITIALIZE (2. 0. T NIL NIL) (0. 1.) DO-DEFGENERIC
)
#Y(#:TOP-LEVEL-FORM-158 #12Y(00 00 00 00 00 01 97 00 0F 01 19 01)
SHARED-INITIALIZE |#'shared-initialize|
)
#Y(#:TOP-LEVEL-FORM-159
#35Y(00 00 00 00 00 01 D8 D9 DA DB 62 DC DD 37 02 71 2C 63 37 02 71 2C 7A 02
DE 62 DF E0 6D 0A 09 2F 0A 19 01
)
SHARED-INITIALIZE :INITFUNCTION
#Y(#:TOP-LEVEL-FORM-159-1 #11Y(00 01 00 00 00 02 D8 C4 5C 19 02)
#.#'%SHARED-INITIALIZE (T)
)
:WANTS-NEXT-METHOD-P :PARAMETER-SPECIALIZERS STANDARD-OBJECT :QUALIFIERS
:SIGNATURE (2. 0. T T NIL T) MAKE-STANDARD-METHOD DO-DEFMETHOD
)
#Y(#:TOP-LEVEL-FORM-160 #14Y(00 00 00 00 00 01 D8 D9 DA 2C 03 03 19 01)
REINITIALIZE-INSTANCE (1. 0. T NIL NIL) (0.) DO-DEFGENERIC
)
#Y(#:TOP-LEVEL-FORM-161 #12Y(00 00 00 00 00 01 97 00 0F 01 19 01)
REINITIALIZE-INSTANCE |#'reinitialize-instance|
)
#Y(#:TOP-LEVEL-FORM-162
#30Y(00 00 00 00 00 01 D8 D9 DA DB 62 DC DD 37 02 71 2C 7A 01 DE 62 DF E0 6D
0A 09 2F 0A 19 01
)
REINITIALIZE-INSTANCE :INITFUNCTION
#Y(#:TOP-LEVEL-FORM-162-1 #11Y(00 01 00 00 00 02 D8 C4 5C 19 02)
#.#'%REINITIALIZE-INSTANCE (T)
)
:WANTS-NEXT-METHOD-P :PARAMETER-SPECIALIZERS STANDARD-OBJECT :QUALIFIERS
:SIGNATURE (1. 0. T T NIL T) MAKE-STANDARD-METHOD DO-DEFMETHOD
)
#Y(#:TOP-LEVEL-FORM-163 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
INITIAL-REINITIALIZE-INSTANCE SYSTEM::REMOVE-OLD-DEFINITIONS
#Y(INITIAL-REINITIALIZE-INSTANCE
#64Y(00 01 00 00 01 17 00 2A 01 AD 31 2B 0B 00 00 14 AB 6C 00 01 6A 01 6E
02 37 05 71 51 6F 03 AD AB 30 63 6A 01 62 B0 62 6D 04 04 67 02 00 6A
05 AD 9E 79 AC AC AC 30 68 16 03 AA B0 62 A2 9A 02 06
)
#Y(INITIAL-REINITIALIZE-INSTANCE-1
#37Y(00 01 00 00 00 02 D9 AC DA 71 31 93 00 9C 5B 77 AB 31 07 1E 0E 68
00 01 AC 2F 03 1E 06 62 AB 2F 04 19 05 19 05
)
NIL STANDARD-METHOD 3. SUBCLASSP TYPEP
)
|#'shared-initialize| GF-METHODS VALID-INITARG-KEYWORDS
COMPUTE-EFFECTIVE-METHOD *REINITIALIZE-INSTANCE-TABLE*
) )
#Y(#:TOP-LEVEL-FORM-164 #14Y(00 00 00 00 00 01 D8 D9 DA 2C 03 03 19 01)
INITIALIZE-INSTANCE (1. 0. T NIL NIL) (0.) DO-DEFGENERIC
)
#Y(#:TOP-LEVEL-FORM-165 #12Y(00 00 00 00 00 01 97 00 0F 01 19 01)
INITIALIZE-INSTANCE |#'initialize-instance|
)
#Y(#:TOP-LEVEL-FORM-166
#30Y(00 00 00 00 00 01 D8 D9 DA DB 62 DC DD 37 02 71 2C 7A 01 DE 62 DF E0 6D
0A 09 2F 0A 19 01
)
INITIALIZE-INSTANCE :INITFUNCTION
#Y(#:TOP-LEVEL-FORM-166-1 #11Y(00 01 00 00 00 02 D8 C4 5C 19 02)
#.#'%INITIALIZE-INSTANCE (T)
)
:WANTS-NEXT-METHOD-P :PARAMETER-SPECIALIZERS STANDARD-OBJECT :QUALIFIERS
:SIGNATURE (1. 0. T T NIL T) MAKE-STANDARD-METHOD DO-DEFMETHOD
)
#Y(#:TOP-LEVEL-FORM-167 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
INITIAL-INITIALIZE-INSTANCE SYSTEM::REMOVE-OLD-DEFINITIONS
#Y(INITIAL-INITIALIZE-INSTANCE
#35Y(00 01 00 00 01 17 AC 71 2B AA 6E 00 AE 6E 01 6A 02 AC 9D 79 AE AC AC
30 68 16 02 94 00 B0 63 A2 9A 02 06
)
VALID-MAKE-INSTANCE-KEYWORDS MAKE-INSTANCE-TABLE-ENTRY2
*MAKE-INSTANCE-TABLE*
) )
#Y(#:TOP-LEVEL-FORM-168
#33Y(00 00 00 00 00 01 D8 D9 DA DB DC DD 63 DE DF 37 02 71 2C 7A 01 E0 62 E1
E2 6D 0A 0B 2C 04 0C 19 01
)
MAKE-INSTANCE (1. 0. T NIL NIL) (0.) :INITFUNCTION
#Y(#:TOP-LEVEL-FORM-168-1 #11Y(00 01 00 00 00 02 D8 C4 5C 19 02)
#Y(#:TOP-LEVEL-FORM-168-1-1
#17Y(00 01 00 00 01 17 98 00 AD 37 02 71 2C 9E 9A 01 03) MAKE-INSTANCE
)
(T)
)
:WANTS-NEXT-METHOD-P :PARAMETER-SPECIALIZERS SYMBOL :QUALIFIERS :SIGNATURE
(1. 0. T NIL NIL NIL) MAKE-STANDARD-METHOD DO-DEFGENERIC
)
#Y(#:TOP-LEVEL-FORM-169
#30Y(00 00 00 00 00 01 D8 D9 DA DB 62 DC DD 37 02 71 2C 7A 01 DE 62 DF E0 6D
0A 09 2F 0A 19 01
)
MAKE-INSTANCE :INITFUNCTION
#Y(#:TOP-LEVEL-FORM-169-1 #11Y(00 01 00 00 00 02 D8 C4 5C 19 02)
#.#'%MAKE-INSTANCE (T)
)
:WANTS-NEXT-METHOD-P :PARAMETER-SPECIALIZERS STANDARD-CLASS :QUALIFIERS
:SIGNATURE (1. 0. T T NIL T) MAKE-STANDARD-METHOD DO-DEFMETHOD
)
#Y(#:TOP-LEVEL-FORM-170 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
INITIAL-MAKE-INSTANCE SYSTEM::REMOVE-OLD-DEFINITIONS
#Y(INITIAL-MAKE-INSTANCE
#43Y(00 01 00 00 01 17 AC 6E 00 AC AB 30 63 AD D9 AF DA 71 31 71 3D AA 6E
03 6A 04 AD 9D 79 B1 AC AC 30 68 16 02 93 00 AC A1 9A 01 06
)
VALID-MAKE-INSTANCE-KEYWORDS STANDARD-CLASS 9. MAKE-INSTANCE-TABLE-ENTRY2
*MAKE-INSTANCE-TABLE*
) )