home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga MA Magazine 1998 #6
/
amigamamagazinepolishissue1998.iso
/
coders
/
jËzyki_programowania
/
clisp
/
src
/
archive
/
clisp.faslsp.lha
/
defstruc.fas
< prev
next >
Wrap
Text File
|
1996-06-17
|
19KB
|
299 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) "SYSTEM")
#Y(#:TOP-LEVEL-FORM-2
#20Y(00 00 00 00 00 01 D8 D9 DA 31 88 D8 DB 62 2C 03 04 C3 19 01)
%STRUCTURE-REF SETF-EXPANDER %STRUCTURE-STORE SETF %SET-DOCUMENTATION
)
#Y(#:TOP-LEVEL-FORM-3 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
DS-SYMBOL-OR-ERROR REMOVE-OLD-DEFINITIONS
#Y(DS-SYMBOL-OR-ERROR
#25Y(00 01 00 00 00 02 AB 8E 08 03 00 19 02 D8 D9 DA DB 6D 03 04 DD AE 32
02 1F
)
PROGRAM-ERROR "~S: this is not a symbol: ~S"
"~S: Das ist kein Symbol: ~S" "~S : Ceci n'est pas un symbole: ~S"
LANGUAGE DEFSTRUCT
) )
#Y(#:TOP-LEVEL-FORM-4 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
DS-ARG-DEFAULT REMOVE-OLD-DEFINITIONS
#Y(DS-ARG-DEFAULT
#34Y(00 02 00 00 00 03 9C 5B 5B 77 AA 8B 61 0D AD D8 AC 60 02 14 60 02 19
04 9E 19 04 92 00 7A AD 9C 1A 71
)
%FUNCALL
) )
#Y(#:TOP-LEVEL-FORM-5 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
DS-MAKE-CONSTRUCTOR-BODY REMOVE-OLD-DEFINITIONS
#Y(DS-MAKE-CONSTRUCTOR-BODY
#167Y(00 05 00 00 00 06 D8 D9 B1 02 21 80 4D B1 23 03 80 50 A2 20 80 50
C8 14 AF 60 02 14 7A 02 7A 01 62 AE 9B 1F 80 73 93 00 9B 5B 77 E0
B6 02 21 80 43 B6 23 03 80 49 B6 23 0C 80 4C E6 C4 14 AD 60 03 14
9E 5A 1B 80 45 DF 9F 5B 5B 77 60 02 14 60 03 F6 83 02 16 01 82 00
1A 48 DA B0 B0 60 03 1A FF B9 C7 1A FF B1 DD AF DE DF A6 5B 77 7A
02 60 04 1A FF A7 E1 DF B7 7A 02 D9 AE 60 04 1A 42 E2 AC CE 61 02
1A FF BA E5 C4 1A FF B1 E7 9F 5B 5B 5B 77 93 05 60 03 1A FF B5 16
01 AA 7F A7 00 E8 32 02 23 61 02 19 06
)
LET OBJECT %MAKE-STRUCTURE LIST MAKE-LIST MAKE-ARRAY :ELEMENT-TYPE QUOTE
SETF %STRUCTURE-REF NTH (OBJECT) VECTOR SVREF AREF THE (OBJECT)
) )
#Y(#:TOP-LEVEL-FORM-6 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
DS-ARG-WITH-DEFAULT REMOVE-OLD-DEFINITIONS
#Y(DS-ARG-WITH-DEFAULT
#35Y(00 02 00 00 00 03 AC 8D 0D 10 AC AC 37 06 C3 F8 C4 F7 71 5D 91 00 06
9E 19 04 9D 19 03 AD AB 2F 02 19 04
)
#.#'FIRST #.#'EQ DS-ARG-DEFAULT
) )
#Y(#:TOP-LEVEL-FORM-7 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
DS-MAKE-BOA-CONSTRUCTOR REMOVE-OLD-DEFINITIONS
#Y(DS-MAKE-BOA-CONSTRUCTOR
#293Y(00 06 00 00 00 00 93 06 A2 5B 77 D8 AB D9 37 02 8B B7 07 DA AB D9
37 02 30 B7 14 91 00 07 16 01 62 AB 62 1A 29 DB DC DD DE 6D 03 07
E0 B4 B0 93 05 B1 32 05 1F 9B 5A 1A 10 86 01 00 14 E1 D9 37 02 8B
B7 08 AA 8D 0D 6D 9B 14 83 02 82 01 AB 8C 96 67 16 02 AA 80 4A 00
AB 01 02 1A 05 AB 83 00 82 02 AC 8B 96 0B 86 02 01 14 E1 D9 37 02
8C B7 6C AA 31 4A 16 02 F6 E2 AD D9 37 02 30 B7 78 01 02 1A 15 00
16 03 1A 29 E4 9C 5B 77 60 02 1A 2D AB B3 6F 0B 83 00 82 02 AC 8B
96 0B 86 02 01 14 E1 D9 37 02 8C B7 69 92 00 59 E2 AB 31 4A 5C 16
03 14 E4 AE D9 37 02 70 B7 91 00 4C 00 F6 E5 E5 B0 D9 37 02 30 B7
78 01 02 92 02 16 86 02 01 14 E1 D9 37 02 8B B7 0B AB B6 6F 0B 83
00 82 02 91 02 6A AA 31 4A 16 02 F6 62 B4 62 1A 18 86 01 00 5A 1C
10 93 00 B3 D9 37 02 8B B7 07 93 00 B7 6F 0B 83 02 82 01 AB 8C 96
64 16 02 AA 80 4A 00 32 02 23 79 72 04 23 E6 AE AC B6 B6 B6 B6 B6
6D 05 0F 60 04 19 0B
)
&KEY #.#'EQ &ALLOW-OTHER-KEYS PROGRAM-ERROR
"~S ~S: the argument list for the BOA contructor ~S must not contain ~S: ~S"
"~S ~S: Die Argumentliste für eine keywordfreie Konstruktorfunktion ~S darf kein ~S enthalten: ~S"
"~S ~S : La liste d'arguments pour un constructeur ~S libre de mot-clés ne peux pas contenir ~S: ~S"
LANGUAGE DEFSTRUCT #.LAMBDA-LIST-KEYWORDS &OPTIONAL DS-ARG-WITH-DEFAULT
&REST &AUX DEFUN DS-MAKE-CONSTRUCTOR-BODY
) )
#Y(#:TOP-LEVEL-FORM-8 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
DS-MAKE-KEYWORD-CONSTRUCTOR REMOVE-OLD-DEFINITIONS
#Y(DS-MAKE-KEYWORD-CONSTRUCTOR
#61Y(00 06 00 00 00 00 D8 B1 D9 62 AF 1A 19 93 00 AB 6F 02 60 01 1A 07 93
00 9B 5A 1B 71 00 14 AD 7F A5 02 16 01 82 00 9B 20 6D 16 01 AA 30 A7
16 01 79 B2 B2 B2 B2 B2 6D 05 03 60 04 19 07
)
DEFUN &KEY DS-ARG-DEFAULT DS-MAKE-CONSTRUCTOR-BODY
) )
#Y(#:TOP-LEVEL-FORM-9 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
DS-MAKE-PRED REMOVE-OLD-DEFINITIONS
#Y(DS-MAKE-PRED
#123Y(00 04 00 00 00 05 AD 02 21 2D 00 14 DB B0 DC B1 02 21 32 B1 23 07
80 45 E0 E9 E5 EA B3 7A 03 E3 EB EC B5 7A 03 D9 B6 7A 02 7A 03 60
04 14 7A 04 7A 01 32 02 23 19 05 D8 D9 DA B1 7A 02 7A 02 7A 02 60
01 1A 46 DD D9 B2 7A 02 C9 61 02 1A 5E E3 E4 D9 B5 7A 02 7A 03 60
01 61 02 1A 50 E0 E1 B1 23 0A 6C E5 E6 B3 7A 03 E3 E7 B4 D3 7B 02
D9 B6 7A 02 7A 03 60 02 61 02 1A FF B2
)
PROCLAIM QUOTE INLINE DEFUN (OBJECT) %STRUCTURE-TYPE-P (OBJECT) LIST AND
(CONSP OBJECT) 0. EQ (CAR OBJECT) > (LENGTH OBJECT) NTH (OBJECT)
(SIMPLE-VECTOR-P OBJECT) (LENGTH OBJECT) SVREF OBJECT
) )
#Y(#:TOP-LEVEL-FORM-10 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
DS-MAKE-COPIER REMOVE-OLD-DEFINITIONS
#Y(DS-MAKE-COPIER
#84Y(00 03 00 00 00 04 AB 02 21 1F AB 23 00 1B 00 14 DC AF DD AF 02 21 20
AF 23 00 1F A0 20 1F D2 14 7A 04 7A 01 32 02 23 19 04 D9 DA DB B0 7A
02 7A 02 7A 02 60 01 1A 58 C9 1A 65 CA 1A 62 E0 E1 E2 E3 E4 E5 DA A7
5B 77 7A 02 7A 04 7A 02 7A 02 D1 61 02 1A 4B
)
LIST PROCLAIM QUOTE INLINE DEFUN (STRUCTURE) (%COPY-STRUCTURE STRUCTURE)
(COPY-LIST STRUCTURE) LET* (OBJ-LENGTH (ARRAY-TOTAL-SIZE STRUCTURE))
OBJECT MAKE-ARRAY OBJ-LENGTH :ELEMENT-TYPE
((DOTIMES (I OBJ-LENGTH OBJECT) (SETF (AREF OBJECT I) (AREF STRUCTURE I))
))
(LET* ((OBJ-LENGTH (LENGTH STRUCTURE)) (OBJECT (MAKE-ARRAY OBJ-LENGTH)))
(DOTIMES (I OBJ-LENGTH OBJECT)
(SETF (SVREF OBJECT I) (SVREF STRUCTURE I))
) )) )
#Y(#:TOP-LEVEL-FORM-11 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
DS-MAKE-ACCESSORS REMOVE-OLD-DEFINITIONS
#Y(DS-MAKE-ACCESSORS
#132Y(00 04 00 00 00 05 62 AC 9B 1F 80 71 93 00 9B 5A 1C 80 5D AF 93 01
6F 00 9C 5B 77 9D 5B 5B 5B 77 D9 DA DB AF B8 7A 01 AF 7A 04 7A 02
7A 02 D9 DA DC B0 7A 02 7A 02 7A 02 DD AF DE DF B0 BA 02 21 19 BA
23 0A 20 04 10 20 23 E6 CC 14 B4 60 03 14 7A 03 7A 04 60 03 16 03
1A 17 E0 DA BD 7A 02 E1 B5 60 04 1A 6A E3 B3 CF 61 02 1A 63 E5 CC
1A 5B 00 14 AD 7F A5 02 16 01 82 00 1A FF 8B 16 01 AA 30 A7 19 06
)
CONCAT-PNAMES PROCLAIM QUOTE FUNCTION INLINE DEFUN (OBJECT) THE
%STRUCTURE-REF OBJECT LIST NTH (OBJECT) AREF SVREF
) )
#Y(#:TOP-LEVEL-FORM-12 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
DS-MAKE-DEFSETFS REMOVE-OLD-DEFINITIONS
#Y(DS-MAKE-DEFSETFS
#149Y(00 04 00 00 00 05 62 AC 1A 80 80 CB 1A 18 DC DD DE DE BC 7A 02 7A
02 DF B3 B3 02 21 6E DC E1 DE B6 7A 02 CD 61 03 14 60 06 1A 80 42
DC E3 DC E4 B3 D0 7B 03 D1 61 03 1A 35 DC E7 DC E8 DF B4 7A 04 D4
61 03 1A 28 AF 93 01 6F 00 9C 5B 77 9D 5B 5B 5B 77 D9 AD DA DB B7
02 21 FF B2 B7 23 04 4C A8 20 56 DC EA DC EB DF B4 7A 04 D7 61 03
14 7A 05 60 01 16 03 1A 0B 93 00 9B 5A 1C 04 AA 8C 99 45 00 14 AD
7F A5 02 16 01 82 00 9B 20 69 16 01 AA 30 A7 19 06
)
CONCAT-PNAMES DEFSETF (STRUCT) (VALUE) LIST '%STRUCTURE-STORE QUOTE
STRUCT VALUE 'THE (VALUE) 'SETF 'NTH (STRUCT) (VALUE) 'SETF 'AREF (VALUE)
'SETF 'SVREF (VALUE)
) )
#Y(#:TOP-LEVEL-FORM-13 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
CLOS::DEFINE-STRUCTURE-CLASS REMOVE-OLD-DEFINITIONS
#Y(CLOS::DEFINE-STRUCTURE-CLASS #9Y(00 01 00 00 00 02 00 19 02))
)
#Y(#:TOP-LEVEL-FORM-14
#18Y(00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 82 C3 19 01) DEFSTRUCT
REMOVE-OLD-DEFINITIONS MACRO
#Y(DEFSTRUCT
#1622Y(00 01 00 01 00 08 AC 71 48 D8 8F 01 2F 34 9D 5B 77 9E 5B 78 AB 62
63 01 02 63 DA 01 05 63 DA DA DA 62 BB 62 DA DA 01 04 65 1A 8E 0D
08 86 1A 18 04 1A 5B 09 17 C2 8E 08 0E C2 8D 8D 0A C1 62 1A 81 48
AC 2E 01 19 03 DB DC DD DE 6D 03 07 E0 04 1D 1A 81 5D 9B 5A 25 09
80 DD CD 09 18 1A 81 28 9B 5B 5A 1C 75 09 18 1A 81 1E E3 65 1B 6F
0C 83 17 1A 81 14 9B 1A 29 DB E6 E7 E8 6D 03 07 E0 65 1E A0 5B 5B
5A 1A 84 50 9B 5B 1F 5E 9B 5B 77 AA 2E 0D 9C 5B 5B 1F 5D 9C 5B 5B
77 8E 0D 59 9C 5B 14 83 18 16 01 1A 80 E0 9B 5B 1F 80 DB 9B 5B 77
AA 2E 0D 9B 09 16 16 01 1A 80 CD 9B 5B 1F 80 C8 9B 5B 77 AA 2E 0D
9B 09 15 16 01 1A 80 BA DB E9 EA EB 6D 03 07 E0 65 1D 04 1D 1A 83
FB 91 13 6E 9B 09 13 1A 80 A2 EC 65 1C F1 6F 0C F2 F3 AE 03 1C 79
7A 03 60 03 1A 25 9B 5B 77 9B 1F 17 93 00 24 14 12 ED EE EF 6D 03
07 E0 9D 5B 77 AD 2C 04 18 9B 5B 5A F6 AA 8D 08 4D EC AB 60 02 09
10 16 01 1A 80 64 9B 5B 5A 09 0E 1A 80 5C 7D 0D 1A 80 57 C5 09 0C
1A 80 51 DB F5 64 1E 64 1F 6D 03 07 E0 65 1D 9F 5A 1A 83 90 93 00
8D 8D FF 06 DB 64 20 64 21 64 22 6D 03 07 E0 65 1D CB 1A 1D 86 01
00 14 8E 8D 04 AA 60 01 F6 AA 8D 0D 5B DB 64 23 64 24 64 25 6D 03
07 E0 65 1D CB 14 A0 1A 81 40 9B 5B 5A 1C FF AB 09 0C 82 01 AB 8C
96 50 16 02 B6 02 59 1C 82 35 09 0B 1B 82 38 BC 23 02 82 3E 92 12
82 3A DB 64 27 64 28 64 29 6D 03 07 E0 04 1B 14 32 02 1F C2 70 4E
64 2A 81 02 13 16 91 15 82 25 64 2B 65 19 6F 0C 60 01 09 15 1A 82
1F DB 64 2F 64 30 64 31 6D 03 07 CB 1A 81 C2 DB 64 32 64 33 64 34
6D 03 07 E0 65 1B A9 1A 82 EA DB 64 35 64 36 64 37 6D 03 07 E0 65
1B 04 1B 1A 82 D8 DB 64 3A 64 3B 64 3C 6D 03 07 E0 04 1E 1A 82 C6
DB 64 44 64 45 64 46 6D 03 07 E0 65 1E AF 04 14 1A 80 9D 9B 1A 80
7A 86 19 08 04 19 5B FD 92 11 82 04 78 93 00 AA 64 39 37 01 71 84
92 00 41 65 1B AB C5 5E 5C 09 13 37 01 80 90 12 14 64 3D 64 3E 65
1E 7A 02 64 3F 64 40 64 41 64 3E B2 7A 02 03 42 7B 02 03 43 7B 02
7A 02 7A 03 7A 02 60 01 09 11 AA 03 38 5E 14 BA 8E 05 FF 94 64 47
AB 03 48 5E 14 72 00 17 80 4A 06 1C 06 5A 5B 77 80 97 08 94 02 62
AB 8B 96 80 E7 86 01 00 1F FF 84 9B 5A 14 AA B4 37 06 03 49 F8 03
4A F7 71 5D 91 00 1C DB 64 4B 64 4C 64 4D 6D 03 07 E0 65 22 B3 A1
14 32 04 1F 9B 5B 78 62 30 AC 1A 80 AC 9D 1F 74 9D 5B 77 AA 8B 61
17 EC 64 4E AE 6F 0C F2 62 AE 7A 03 7A 03 83 09 37 01 80 90 00 14
83 0A 9C 5B 78 AB 30 AC 16 01 9D 5B 78 1A 80 77 9E 5B 5B 5B 78 02
1A 80 65 DB 64 50 64 51 64 52 6D 03 07 E0 65 25 B2 B7 65 28 32 05
1F 91 00 60 AD 8B 99 65 9E 5B 5B 5B 78 00 1A 80 41 DB 64 55 64 56
64 57 6D 03 07 E0 65 25 AE B3 B8 A5 5B 5B 5B 77 32 06 1F DB 64 58
64 59 64 5A 6D 03 07 CB 1A 81 84 93 00 9C 5B 77 AB 23 4F 41 AB 24
53 65 AA 9F 5B 5B 5B 77 8A 54 44 9E 5B 5B 78 9C 14 30 AC 16 02 9B
5B 5B F6 AA 8C 96 58 16 01 16 02 82 01 1A FF 14 16 02 93 14 24 5B
04 B0 80 48 07 16 03 92 0B 80 BF 1A 80 B1 DB 64 5D 64 5E 64 5F 6D
03 07 CB 14 65 1B 04 10 1A 81 31 9D F7 7C 00 1A 80 D7 DB 64 62 64
63 64 64 6D 03 07 E0 04 20 1A 81 18 7D 03 1A 81 1B 91 00 78 7C 03
1A 81 13 B5 02 59 09 0B 1C FD C8 BC 24 02 07 C2 64 26 2F 0C 09 12
C0 02 21 FD D2 92 15 FD DB 62 C0 37 07 80 4F 15 BD 02 22 08 64 2C
65 19 2F 0C 09 13 B6 02 21 12 B6 23 2D 0E B6 23 2E 0A A7 1F FD C5
93 0C 24 2D FD BF B4 8E 0E FD C8 B4 DA 90 01 32 FD C1 B4 8E 93 05
B6 02 21 FD C9 B6 02 22 03 03 38 FB 93 19 8D 09 FD F5 91 11 FD FC
C2 60 01 09 10 64 3E BB 60 02 09 0F 92 0B 0B A7 1F 08 BA A8 5B 77
8A 5C FF 44 AF B5 81 02 35 09 B6 02 21 13 92 0B 10 62 A5 09 0B 14
65 1A 64 60 63 7A 05 83 03 84 09 B3 B2 62 AB 8B 96 80 85 86 01 00
01 02 9D 1F FF 29 86 02 01 9D 5B 5A F6 AA 8B 61 17 EC 64 61 AD 6F
0C F2 62 AE 7A 03 7A 03 83 06 37 01 80 90 00 14 83 07 AB B3 37 06
03 49 F8 03 4A F7 8D 5D FF 00 63 62 9F 1F 35 9F 5B 78 AA 8B 96 2C
93 00 9C 5B 77 AB 23 4F FE FF AB 23 53 14 DB 64 65 64 66 64 67 6D
03 07 CB 14 04 25 14 A0 14 32 03 1F 9B FA 16 02 9B 5B 5B F6 1A 50
16 01 AD B1 AE AE AE 7A 05 83 0A 16 04 84 02 82 01 1A FF 76 16 02
9B FD 16 01 AD 80 4A 03 AB 80 4A 01 AC 80 4A 02 62 C0 1A 28 AA BA
65 1D BF B7 B5 2C 06 68 1A 15 93 00 9B 20 6F 91 17 03 9B 09 17 AA
BA 65 1D BF B7 B5 2C 06 69 14 83 02 16 01 82 00 9B 20 61 16 01 AA
30 A7 16 01 F6 64 6A AD 62 1A 80 61 64 73 64 3E 65 1F 7A 02 7A 02
60 01 1A 80 9F C2 BD 65 20 BD 2C 04 74 1A 80 9E 14 65 20 BF 2C 03
75 1A 80 9A 64 71 64 3E 65 24 7A 02 64 7B 65 1A 60 04 1A 80 C5 86
01 00 14 B1 37 06 03 6B F8 03 4A F7 71 5D 64 40 64 41 64 3E 65 1F
7A 02 03 6C 7B 02 AF 7A 03 9C 5B 78 AB 30 AC 16 02 84 02 82 01 AB
8C 96 50 16 03 64 6D 64 6E 64 6F 62 64 6F BD 64 70 B3 B3 72 01 17
72 02 23 B0 64 71 64 3E 65 21 7A 02 64 72 64 2D 65 1A 64 3E 65 19
7A 02 64 3E 65 22 7A 02 64 3E BC 7A 02 04 11 7B 05 7A 04 7A 01 32
02 23 7B 02 BB 02 21 FF 53 00 14 92 11 80 04 91 18 FF 58 00 14 91
1A FF 5D 00 14 B6 B6 70 9F 65 21 C0 65 21 AD 6D 04 76 65 22 C1 65
22 AE 6D 04 77 81 02 23 00 64 78 64 79 64 3E 65 24 7A 02 03 7A 7B
02 BD 7A 03 91 17 FF 36 64 7C 64 3E 65 24 7A 02 03 7D 61 02 14 64
3E 65 24 7A 02 7A 03 32 05 23 7B 03 60 03 19 1E
)
2. MACRO-CALL-ERROR 0. PROGRAM-ERROR
"~S: invalid syntax for name and options: ~S"
"~S: Falsche Syntax für Name und Optionen: ~S"
"~S : Mauvaise syntaxe pour un nom et des options: ~S" LANGUAGE DEFSTRUCT
#S(HASH-TABLE EQ (:INITIAL-OFFSET . 296.) (:NAMED . 212.) (:TYPE . 204.)
(:PRINT-FUNCTION . 160.) (:INHERIT . 133.) (:INCLUDE . 133.)
(:PREDICATE . 99.) (:COPIER . 80.) (:CONSTRUCTOR . 48.)
(:CONC-NAME . 8.)
)
"" "MAKE-" CONCAT-PNAMES DS-SYMBOL-OR-ERROR
"~S ~S: argument list should be a list: ~S"
"~S ~S: Argumentliste muß eine Liste sein: ~S"
"~S ~S : La liste d'arguments doit être une liste: ~S"
"~S ~S: At most one :INCLUDE argument may be specified: ~S"
"~S ~S: Es darf nur ein :INCLUDE-Argument geben: ~S"
"~S ~S : Il ne peut y avoir qu'un argument :INCLUDE: ~S" FUNCTION
"~S: Use of :PRINT-FUNCTION implicitly applies FUNCTION. Therefore using ~S instead of ~S."
"~S: Bei :PRINT-FUNCTION ist FUNCTION bereits implizit. Verwende daher ~S statt ~S."
"~S : FUNCTION est déjà implicite avec :PRINT-FUNCTION. C'est pourquoi ~S est utilisé au lieu de ~S."
WARN "-PRINT-FUNCTION" LAMBDA (STRUCT STREAM DEPTH) (STRUCT STREAM DEPTH)
"~S ~S: unknown option ~S" "~S ~S: Die Option ~S gibt es nicht."
"~S ~S : Option ~S non reconnue."
"~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"
"~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" "-P"
"~S ~S: There is no :PREDICATE on unnamed structures."
"~S ~S: Bei unbenannten Structures kann es kein :PREDICATE geben."
"~S ~S : Il ne peut pas y avoir de :PREDICATE avec des structures anonymes."
"-" "MAKE-" "COPY-" VECTOR LIST "~S ~S: invalid :TYPE option ~S"
"~S ~S: Unzulässige :TYPE-Option ~S"
"~S ~S : Option :TYPE inadmissible: ~S"
"~S ~S: The :INITIAL-OFFSET must be a nonnegative integer, not ~S"
"~S ~S: Der :INITIAL-OFFSET muß ein Integer >=0 sein, nicht ~S"
"~S ~S : :INITIAL-OFFSET doit être un entier positif ou zéro et non ~S"
"~S ~S: :INITIAL-OFFSET must not be specified without :TYPE : ~S"
"~S ~S: :INITIAL-OFFSET darf nur zusammen mit :TYPE angegeben werden: ~S"
"~S ~S : :INITIAL-OFFSET ne peut être précisé qu'ensemble avec :TYPE: ~S"
1. DEFSTRUCT-DESCRIPTION
"~S ~S: included structure ~S has not been defined."
"~S ~S: Teilstruktur ~S ist nicht definiert."
"~S ~S : La structure incluse ~S n'est pas définie." CONS QUOTE
LOAD-TIME-VALUE SVREF GET ('DEFSTRUCT-DESCRIPTION) (0.)
"~S ~S: included structure ~S must be of the same type ~S."
"~S ~S: Teilstruktur ~S muß vom selben Typ ~S sein."
"~S ~S : La structure incluse ~S doit être du même type ~S."
#.#'COPY-LIST 3. #.#'FIRST #.#'EQ
"~S ~S: included structure ~S has no component with name ~S."
"~S ~S: Teilstruktur ~S hat keine Komponente namens ~S."
"~S ~S : La structure incluse ~S n'a pas de composante de nom ~S."
"DEFAULT-" :READ-ONLY
"~S ~S: The READ-ONLY slot ~S of the included structure ~S must remain READ-ONLY in ~S."
"~S ~S: Der READ-ONLY-Slot ~S von Teilstruktur ~S muß auch in ~S READ-ONLY bleiben."
"~S ~S : Le composant READ-ONLY ~S de la structure incluse ~S doit rester READ-ONLY dans ~S."
:TYPE SUBTYPEP
"~S ~S: The type ~S of slot ~S should be a subtype of the type defined for the included strucure ~S, namely ~S."
"~S ~S: Der Typ ~S von Slot ~S muß ein Untertyp des in Teilstruktur ~S definierten Typs ~S sein."
"~S ~S : Le type ~S du composant ~S doit être un sous-type du type défini dans la structure incluse ~S, c'est-à-dire ~S."
"~S ~S: ~S is not a slot option." "~S ~S: ~S ist keine Slot-Option."
"~S ~S : ~S n'est pas un option de composant." :INHERIT TYPEP
"~S ~S: structure of type ~S can't hold the name."
"~S ~S: Structure vom Typ ~S kann den Namen nicht enthalten."
"~S ~S : Une structure de type ~S ne peut pas contenir le nom." SYMBOL
"DEFAULT-" "~S ~S: There may be only one slot with the name ~S."
"~S ~S: Es kann nicht mehrere Slots mit demselben Namen ~S geben."
"~S ~S : Il ne peut pas y avoir plusieurs composants avec le même nom ~S."
"~S ~S: ~S is not a slot option." "~S ~S: ~S ist keine Slot-Option."
"~S ~S : ~S n'est pas une option de composant." DS-MAKE-BOA-CONSTRUCTOR
DS-MAKE-KEYWORD-CONSTRUCTOR 4. #.#'THIRD ('DEFSTRUCT-DESCRIPTION)
EVAL-WHEN (LOAD COMPILE EVAL) LET #.#'LIST %PUT 'DEFSTRUCT-DESCRIPTION
CLOS::DEFINE-STRUCTURE-CLASS DS-MAKE-PRED DS-MAKE-COPIER
DS-MAKE-ACCESSORS DS-MAKE-DEFSETFS SETF DOCUMENTATION ('STRUCTURE)
'STRUCTURE-PRINT REMPROP ('STRUCTURE-PRINT)
) )