home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Misc / CLISP-2.LHA / CLISP960530-fa.lha / defstruc.fas < prev    next >
Encoding:
CLISP byte-compiled Lisp program  |  1996-06-17  |  18.5 KB  |  299 lines
  1. (SYSTEM::VERSION '(SYSTEM::CLISP2 13. LISP:T 130695.))
  2. #Y(#:TOP-LEVEL-FORM-1 #13Y(00 00 00 00 00 01 D8 37 02 30 E3 19 01) "SYSTEM")
  3. #Y(#:TOP-LEVEL-FORM-2
  4.    #20Y(00 00 00 00 00 01 D8 D9 DA 31 88 D8 DB 62 2C 03 04 C3 19 01)
  5.    %STRUCTURE-REF SETF-EXPANDER %STRUCTURE-STORE SETF %SET-DOCUMENTATION
  6.   )
  7. #Y(#:TOP-LEVEL-FORM-3 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
  8.    DS-SYMBOL-OR-ERROR REMOVE-OLD-DEFINITIONS
  9.    #Y(DS-SYMBOL-OR-ERROR
  10.       #25Y(00 01 00 00 00 02 AB 8E 08 03 00 19 02 D8 D9 DA DB 6D 03 04 DD AE 32
  11.            02 1F
  12.           )
  13.       PROGRAM-ERROR "~S: this is not a symbol: ~S"
  14.       "~S: Das ist kein Symbol: ~S" "~S : Ceci n'est pas un symbole: ~S"
  15.       LANGUAGE DEFSTRUCT
  16.   )  )
  17. #Y(#:TOP-LEVEL-FORM-4 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
  18.    DS-ARG-DEFAULT REMOVE-OLD-DEFINITIONS
  19.    #Y(DS-ARG-DEFAULT
  20.       #34Y(00 02 00 00 00 03 9C 5B 5B 77 AA 8B 61 0D AD D8 AC 60 02 14 60 02 19
  21.            04 9E 19 04 92 00 7A AD 9C 1A 71
  22.           )
  23.       %FUNCALL
  24.   )  )
  25. #Y(#:TOP-LEVEL-FORM-5 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
  26.    DS-MAKE-CONSTRUCTOR-BODY REMOVE-OLD-DEFINITIONS
  27.    #Y(DS-MAKE-CONSTRUCTOR-BODY
  28.       #167Y(00 05 00 00 00 06 D8 D9 B1 02 21 80 4D B1 23 03 80 50 A2 20 80 50
  29.             C8 14 AF 60 02 14 7A 02 7A 01 62 AE 9B 1F 80 73 93 00 9B 5B 77 E0
  30.             B6 02 21 80 43 B6 23 03 80 49 B6 23 0C 80 4C E6 C4 14 AD 60 03 14
  31.             9E 5A 1B 80 45 DF 9F 5B 5B 77 60 02 14 60 03 F6 83 02 16 01 82 00
  32.             1A 48 DA B0 B0 60 03 1A FF B9 C7 1A FF B1 DD AF DE DF A6 5B 77 7A
  33.             02 60 04 1A FF A7 E1 DF B7 7A 02 D9 AE 60 04 1A 42 E2 AC CE 61 02
  34.             1A FF BA E5 C4 1A FF B1 E7 9F 5B 5B 5B 77 93 05 60 03 1A FF B5 16
  35.             01 AA 7F A7 00 E8 32 02 23 61 02 19 06
  36.            )
  37.       LET OBJECT %MAKE-STRUCTURE LIST MAKE-LIST MAKE-ARRAY :ELEMENT-TYPE QUOTE
  38.       SETF %STRUCTURE-REF NTH (OBJECT) VECTOR SVREF AREF THE (OBJECT)
  39.   )  )
  40. #Y(#:TOP-LEVEL-FORM-6 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
  41.    DS-ARG-WITH-DEFAULT REMOVE-OLD-DEFINITIONS
  42.    #Y(DS-ARG-WITH-DEFAULT
  43.       #35Y(00 02 00 00 00 03 AC 8D 0D 10 AC AC 37 06 C3 F8 C4 F7 71 5D 91 00 06
  44.            9E 19 04 9D 19 03 AD AB 2F 02 19 04
  45.           )
  46.       #.#'FIRST #.#'EQ DS-ARG-DEFAULT
  47.   )  )
  48. #Y(#:TOP-LEVEL-FORM-7 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
  49.    DS-MAKE-BOA-CONSTRUCTOR REMOVE-OLD-DEFINITIONS
  50.    #Y(DS-MAKE-BOA-CONSTRUCTOR
  51.       #293Y(00 06 00 00 00 00 93 06 A2 5B 77 D8 AB D9 37 02 8B B7 07 DA AB D9
  52.             37 02 30 B7 14 91 00 07 16 01 62 AB 62 1A 29 DB DC DD DE 6D 03 07
  53.             E0 B4 B0 93 05 B1 32 05 1F 9B 5A 1A 10 86 01 00 14 E1 D9 37 02 8B
  54.             B7 08 AA 8D 0D 6D 9B 14 83 02 82 01 AB 8C 96 67 16 02 AA 80 4A 00
  55.             AB 01 02 1A 05 AB 83 00 82 02 AC 8B 96 0B 86 02 01 14 E1 D9 37 02
  56.             8C B7 6C AA 31 4A 16 02 F6 E2 AD D9 37 02 30 B7 78 01 02 1A 15 00
  57.             16 03 1A 29 E4 9C 5B 77 60 02 1A 2D AB B3 6F 0B 83 00 82 02 AC 8B
  58.             96 0B 86 02 01 14 E1 D9 37 02 8C B7 69 92 00 59 E2 AB 31 4A 5C 16
  59.             03 14 E4 AE D9 37 02 70 B7 91 00 4C 00 F6 E5 E5 B0 D9 37 02 30 B7
  60.             78 01 02 92 02 16 86 02 01 14 E1 D9 37 02 8B B7 0B AB B6 6F 0B 83
  61.             00 82 02 91 02 6A AA 31 4A 16 02 F6 62 B4 62 1A 18 86 01 00 5A 1C
  62.             10 93 00 B3 D9 37 02 8B B7 07 93 00 B7 6F 0B 83 02 82 01 AB 8C 96
  63.             64 16 02 AA 80 4A 00 32 02 23 79 72 04 23 E6 AE AC B6 B6 B6 B6 B6
  64.             6D 05 0F 60 04 19 0B
  65.            )
  66.       &KEY #.#'EQ &ALLOW-OTHER-KEYS PROGRAM-ERROR
  67.       "~S ~S: the argument list for the BOA contructor ~S must not contain ~S: ~S"
  68.       "~S ~S: Die Argumentliste für eine keywordfreie Konstruktorfunktion ~S darf kein ~S enthalten: ~S"
  69.       "~S ~S : La liste d'arguments pour un constructeur ~S libre de mot-clés ne peux pas contenir ~S: ~S"
  70.       LANGUAGE DEFSTRUCT #.LAMBDA-LIST-KEYWORDS &OPTIONAL DS-ARG-WITH-DEFAULT
  71.       &REST &AUX DEFUN DS-MAKE-CONSTRUCTOR-BODY
  72.   )  )
  73. #Y(#:TOP-LEVEL-FORM-8 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
  74.    DS-MAKE-KEYWORD-CONSTRUCTOR REMOVE-OLD-DEFINITIONS
  75.    #Y(DS-MAKE-KEYWORD-CONSTRUCTOR
  76.       #61Y(00 06 00 00 00 00 D8 B1 D9 62 AF 1A 19 93 00 AB 6F 02 60 01 1A 07 93
  77.            00 9B 5A 1B 71 00 14 AD 7F A5 02 16 01 82 00 9B 20 6D 16 01 AA 30 A7
  78.            16 01 79 B2 B2 B2 B2 B2 6D 05 03 60 04 19 07
  79.           )
  80.       DEFUN &KEY DS-ARG-DEFAULT DS-MAKE-CONSTRUCTOR-BODY
  81.   )  )
  82. #Y(#:TOP-LEVEL-FORM-9 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
  83.    DS-MAKE-PRED REMOVE-OLD-DEFINITIONS
  84.    #Y(DS-MAKE-PRED
  85.       #123Y(00 04 00 00 00 05 AD 02 21 2D 00 14 DB B0 DC B1 02 21 32 B1 23 07
  86.             80 45 E0 E9 E5 EA B3 7A 03 E3 EB EC B5 7A 03 D9 B6 7A 02 7A 03 60
  87.             04 14 7A 04 7A 01 32 02 23 19 05 D8 D9 DA B1 7A 02 7A 02 7A 02 60
  88.             01 1A 46 DD D9 B2 7A 02 C9 61 02 1A 5E E3 E4 D9 B5 7A 02 7A 03 60
  89.             01 61 02 1A 50 E0 E1 B1 23 0A 6C E5 E6 B3 7A 03 E3 E7 B4 D3 7B 02
  90.             D9 B6 7A 02 7A 03 60 02 61 02 1A FF B2
  91.            )
  92.       PROCLAIM QUOTE INLINE DEFUN (OBJECT) %STRUCTURE-TYPE-P (OBJECT) LIST AND
  93.       (CONSP OBJECT) 0. EQ (CAR OBJECT) > (LENGTH OBJECT) NTH (OBJECT)
  94.       (SIMPLE-VECTOR-P OBJECT) (LENGTH OBJECT) SVREF OBJECT
  95.   )  )
  96. #Y(#:TOP-LEVEL-FORM-10 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
  97.    DS-MAKE-COPIER REMOVE-OLD-DEFINITIONS
  98.    #Y(DS-MAKE-COPIER
  99.       #84Y(00 03 00 00 00 04 AB 02 21 1F AB 23 00 1B 00 14 DC AF DD AF 02 21 20
  100.            AF 23 00 1F A0 20 1F D2 14 7A 04 7A 01 32 02 23 19 04 D9 DA DB B0 7A
  101.            02 7A 02 7A 02 60 01 1A 58 C9 1A 65 CA 1A 62 E0 E1 E2 E3 E4 E5 DA A7
  102.            5B 77 7A 02 7A 04 7A 02 7A 02 D1 61 02 1A 4B
  103.           )
  104.       LIST PROCLAIM QUOTE INLINE DEFUN (STRUCTURE) (%COPY-STRUCTURE STRUCTURE)
  105.       (COPY-LIST STRUCTURE) LET* (OBJ-LENGTH (ARRAY-TOTAL-SIZE STRUCTURE))
  106.       OBJECT MAKE-ARRAY OBJ-LENGTH :ELEMENT-TYPE
  107.       ((DOTIMES (I OBJ-LENGTH OBJECT) (SETF (AREF OBJECT I) (AREF STRUCTURE I))
  108.       ))
  109.       (LET* ((OBJ-LENGTH (LENGTH STRUCTURE)) (OBJECT (MAKE-ARRAY OBJ-LENGTH)))
  110.         (DOTIMES (I OBJ-LENGTH OBJECT)
  111.           (SETF (SVREF OBJECT I) (SVREF STRUCTURE I))
  112.   )  )) )
  113. #Y(#:TOP-LEVEL-FORM-11 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
  114.    DS-MAKE-ACCESSORS REMOVE-OLD-DEFINITIONS
  115.    #Y(DS-MAKE-ACCESSORS
  116.       #132Y(00 04 00 00 00 05 62 AC 9B 1F 80 71 93 00 9B 5A 1C 80 5D AF 93 01
  117.             6F 00 9C 5B 77 9D 5B 5B 5B 77 D9 DA DB AF B8 7A 01 AF 7A 04 7A 02
  118.             7A 02 D9 DA DC B0 7A 02 7A 02 7A 02 DD AF DE DF B0 BA 02 21 19 BA
  119.             23 0A 20 04 10 20 23 E6 CC 14 B4 60 03 14 7A 03 7A 04 60 03 16 03
  120.             1A 17 E0 DA BD 7A 02 E1 B5 60 04 1A 6A E3 B3 CF 61 02 1A 63 E5 CC
  121.             1A 5B 00 14 AD 7F A5 02 16 01 82 00 1A FF 8B 16 01 AA 30 A7 19 06
  122.            )
  123.       CONCAT-PNAMES PROCLAIM QUOTE FUNCTION INLINE DEFUN (OBJECT) THE
  124.       %STRUCTURE-REF OBJECT LIST NTH (OBJECT) AREF SVREF
  125.   )  )
  126. #Y(#:TOP-LEVEL-FORM-12 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
  127.    DS-MAKE-DEFSETFS REMOVE-OLD-DEFINITIONS
  128.    #Y(DS-MAKE-DEFSETFS
  129.       #149Y(00 04 00 00 00 05 62 AC 1A 80 80 CB 1A 18 DC DD DE DE BC 7A 02 7A
  130.             02 DF B3 B3 02 21 6E DC E1 DE B6 7A 02 CD 61 03 14 60 06 1A 80 42
  131.             DC E3 DC E4 B3 D0 7B 03 D1 61 03 1A 35 DC E7 DC E8 DF B4 7A 04 D4
  132.             61 03 1A 28 AF 93 01 6F 00 9C 5B 77 9D 5B 5B 5B 77 D9 AD DA DB B7
  133.             02 21 FF B2 B7 23 04 4C A8 20 56 DC EA DC EB DF B4 7A 04 D7 61 03
  134.             14 7A 05 60 01 16 03 1A 0B 93 00 9B 5A 1C 04 AA 8C 99 45 00 14 AD
  135.             7F A5 02 16 01 82 00 9B 20 69 16 01 AA 30 A7 19 06
  136.            )
  137.       CONCAT-PNAMES DEFSETF (STRUCT) (VALUE) LIST '%STRUCTURE-STORE QUOTE
  138.       STRUCT VALUE 'THE (VALUE) 'SETF 'NTH (STRUCT) (VALUE) 'SETF 'AREF (VALUE)
  139.       'SETF 'SVREF (VALUE)
  140.   )  )
  141. #Y(#:TOP-LEVEL-FORM-13 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
  142.    CLOS::DEFINE-STRUCTURE-CLASS REMOVE-OLD-DEFINITIONS
  143.    #Y(CLOS::DEFINE-STRUCTURE-CLASS #9Y(00 01 00 00 00 02 00 19 02))
  144.   )
  145. #Y(#:TOP-LEVEL-FORM-14
  146.    #18Y(00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 82 C3 19 01) DEFSTRUCT
  147.    REMOVE-OLD-DEFINITIONS MACRO
  148.    #Y(DEFSTRUCT
  149.       #1622Y(00 01 00 01 00 08 AC 71 48 D8 8F 01 2F 34 9D 5B 77 9E 5B 78 AB 62
  150.              63 01 02 63 DA 01 05 63 DA DA DA 62 BB 62 DA DA 01 04 65 1A 8E 0D
  151.              08 86 1A 18 04 1A 5B 09 17 C2 8E 08 0E C2 8D 8D 0A C1 62 1A 81 48
  152.              AC 2E 01 19 03 DB DC DD DE 6D 03 07 E0 04 1D 1A 81 5D 9B 5A 25 09
  153.              80 DD CD 09 18 1A 81 28 9B 5B 5A 1C 75 09 18 1A 81 1E E3 65 1B 6F
  154.              0C 83 17 1A 81 14 9B 1A 29 DB E6 E7 E8 6D 03 07 E0 65 1E A0 5B 5B
  155.              5A 1A 84 50 9B 5B 1F 5E 9B 5B 77 AA 2E 0D 9C 5B 5B 1F 5D 9C 5B 5B
  156.              77 8E 0D 59 9C 5B 14 83 18 16 01 1A 80 E0 9B 5B 1F 80 DB 9B 5B 77
  157.              AA 2E 0D 9B 09 16 16 01 1A 80 CD 9B 5B 1F 80 C8 9B 5B 77 AA 2E 0D
  158.              9B 09 15 16 01 1A 80 BA DB E9 EA EB 6D 03 07 E0 65 1D 04 1D 1A 83
  159.              FB 91 13 6E 9B 09 13 1A 80 A2 EC 65 1C F1 6F 0C F2 F3 AE 03 1C 79
  160.              7A 03 60 03 1A 25 9B 5B 77 9B 1F 17 93 00 24 14 12 ED EE EF 6D 03
  161.              07 E0 9D 5B 77 AD 2C 04 18 9B 5B 5A F6 AA 8D 08 4D EC AB 60 02 09
  162.              10 16 01 1A 80 64 9B 5B 5A 09 0E 1A 80 5C 7D 0D 1A 80 57 C5 09 0C
  163.              1A 80 51 DB F5 64 1E 64 1F 6D 03 07 E0 65 1D 9F 5A 1A 83 90 93 00
  164.              8D 8D FF 06 DB 64 20 64 21 64 22 6D 03 07 E0 65 1D CB 1A 1D 86 01
  165.              00 14 8E 8D 04 AA 60 01 F6 AA 8D 0D 5B DB 64 23 64 24 64 25 6D 03
  166.              07 E0 65 1D CB 14 A0 1A 81 40 9B 5B 5A 1C FF AB 09 0C 82 01 AB 8C
  167.              96 50 16 02 B6 02 59 1C 82 35 09 0B 1B 82 38 BC 23 02 82 3E 92 12
  168.              82 3A DB 64 27 64 28 64 29 6D 03 07 E0 04 1B 14 32 02 1F C2 70 4E
  169.              64 2A 81 02 13 16 91 15 82 25 64 2B 65 19 6F 0C 60 01 09 15 1A 82
  170.              1F DB 64 2F 64 30 64 31 6D 03 07 CB 1A 81 C2 DB 64 32 64 33 64 34
  171.              6D 03 07 E0 65 1B A9 1A 82 EA DB 64 35 64 36 64 37 6D 03 07 E0 65
  172.              1B 04 1B 1A 82 D8 DB 64 3A 64 3B 64 3C 6D 03 07 E0 04 1E 1A 82 C6
  173.              DB 64 44 64 45 64 46 6D 03 07 E0 65 1E AF 04 14 1A 80 9D 9B 1A 80
  174.              7A 86 19 08 04 19 5B FD 92 11 82 04 78 93 00 AA 64 39 37 01 71 84
  175.              92 00 41 65 1B AB C5 5E 5C 09 13 37 01 80 90 12 14 64 3D 64 3E 65
  176.              1E 7A 02 64 3F 64 40 64 41 64 3E B2 7A 02 03 42 7B 02 03 43 7B 02
  177.              7A 02 7A 03 7A 02 60 01 09 11 AA 03 38 5E 14 BA 8E 05 FF 94 64 47
  178.              AB 03 48 5E 14 72 00 17 80 4A 06 1C 06 5A 5B 77 80 97 08 94 02 62
  179.              AB 8B 96 80 E7 86 01 00 1F FF 84 9B 5A 14 AA B4 37 06 03 49 F8 03
  180.              4A F7 71 5D 91 00 1C DB 64 4B 64 4C 64 4D 6D 03 07 E0 65 22 B3 A1
  181.              14 32 04 1F 9B 5B 78 62 30 AC 1A 80 AC 9D 1F 74 9D 5B 77 AA 8B 61
  182.              17 EC 64 4E AE 6F 0C F2 62 AE 7A 03 7A 03 83 09 37 01 80 90 00 14
  183.              83 0A 9C 5B 78 AB 30 AC 16 01 9D 5B 78 1A 80 77 9E 5B 5B 5B 78 02
  184.              1A 80 65 DB 64 50 64 51 64 52 6D 03 07 E0 65 25 B2 B7 65 28 32 05
  185.              1F 91 00 60 AD 8B 99 65 9E 5B 5B 5B 78 00 1A 80 41 DB 64 55 64 56
  186.              64 57 6D 03 07 E0 65 25 AE B3 B8 A5 5B 5B 5B 77 32 06 1F DB 64 58
  187.              64 59 64 5A 6D 03 07 CB 1A 81 84 93 00 9C 5B 77 AB 23 4F 41 AB 24
  188.              53 65 AA 9F 5B 5B 5B 77 8A 54 44 9E 5B 5B 78 9C 14 30 AC 16 02 9B
  189.              5B 5B F6 AA 8C 96 58 16 01 16 02 82 01 1A FF 14 16 02 93 14 24 5B
  190.              04 B0 80 48 07 16 03 92 0B 80 BF 1A 80 B1 DB 64 5D 64 5E 64 5F 6D
  191.              03 07 CB 14 65 1B 04 10 1A 81 31 9D F7 7C 00 1A 80 D7 DB 64 62 64
  192.              63 64 64 6D 03 07 E0 04 20 1A 81 18 7D 03 1A 81 1B 91 00 78 7C 03
  193.              1A 81 13 B5 02 59 09 0B 1C FD C8 BC 24 02 07 C2 64 26 2F 0C 09 12
  194.              C0 02 21 FD D2 92 15 FD DB 62 C0 37 07 80 4F 15 BD 02 22 08 64 2C
  195.              65 19 2F 0C 09 13 B6 02 21 12 B6 23 2D 0E B6 23 2E 0A A7 1F FD C5
  196.              93 0C 24 2D FD BF B4 8E 0E FD C8 B4 DA 90 01 32 FD C1 B4 8E 93 05
  197.              B6 02 21 FD C9 B6 02 22 03 03 38 FB 93 19 8D 09 FD F5 91 11 FD FC
  198.              C2 60 01 09 10 64 3E BB 60 02 09 0F 92 0B 0B A7 1F 08 BA A8 5B 77
  199.              8A 5C FF 44 AF B5 81 02 35 09 B6 02 21 13 92 0B 10 62 A5 09 0B 14
  200.              65 1A 64 60 63 7A 05 83 03 84 09 B3 B2 62 AB 8B 96 80 85 86 01 00
  201.              01 02 9D 1F FF 29 86 02 01 9D 5B 5A F6 AA 8B 61 17 EC 64 61 AD 6F
  202.              0C F2 62 AE 7A 03 7A 03 83 06 37 01 80 90 00 14 83 07 AB B3 37 06
  203.              03 49 F8 03 4A F7 8D 5D FF 00 63 62 9F 1F 35 9F 5B 78 AA 8B 96 2C
  204.              93 00 9C 5B 77 AB 23 4F FE FF AB 23 53 14 DB 64 65 64 66 64 67 6D
  205.              03 07 CB 14 04 25 14 A0 14 32 03 1F 9B FA 16 02 9B 5B 5B F6 1A 50
  206.              16 01 AD B1 AE AE AE 7A 05 83 0A 16 04 84 02 82 01 1A FF 76 16 02
  207.              9B FD 16 01 AD 80 4A 03 AB 80 4A 01 AC 80 4A 02 62 C0 1A 28 AA BA
  208.              65 1D BF B7 B5 2C 06 68 1A 15 93 00 9B 20 6F 91 17 03 9B 09 17 AA
  209.              BA 65 1D BF B7 B5 2C 06 69 14 83 02 16 01 82 00 9B 20 61 16 01 AA
  210.              30 A7 16 01 F6 64 6A AD 62 1A 80 61 64 73 64 3E 65 1F 7A 02 7A 02
  211.              60 01 1A 80 9F C2 BD 65 20 BD 2C 04 74 1A 80 9E 14 65 20 BF 2C 03
  212.              75 1A 80 9A 64 71 64 3E 65 24 7A 02 64 7B 65 1A 60 04 1A 80 C5 86
  213.              01 00 14 B1 37 06 03 6B F8 03 4A F7 71 5D 64 40 64 41 64 3E 65 1F
  214.              7A 02 03 6C 7B 02 AF 7A 03 9C 5B 78 AB 30 AC 16 02 84 02 82 01 AB
  215.              8C 96 50 16 03 64 6D 64 6E 64 6F 62 64 6F BD 64 70 B3 B3 72 01 17
  216.              72 02 23 B0 64 71 64 3E 65 21 7A 02 64 72 64 2D 65 1A 64 3E 65 19
  217.              7A 02 64 3E 65 22 7A 02 64 3E BC 7A 02 04 11 7B 05 7A 04 7A 01 32
  218.              02 23 7B 02 BB 02 21 FF 53 00 14 92 11 80 04 91 18 FF 58 00 14 91
  219.              1A FF 5D 00 14 B6 B6 70 9F 65 21 C0 65 21 AD 6D 04 76 65 22 C1 65
  220.              22 AE 6D 04 77 81 02 23 00 64 78 64 79 64 3E 65 24 7A 02 03 7A 7B
  221.              02 BD 7A 03 91 17 FF 36 64 7C 64 3E 65 24 7A 02 03 7D 61 02 14 64
  222.              3E 65 24 7A 02 7A 03 32 05 23 7B 03 60 03 19 1E
  223.             )
  224.       2. MACRO-CALL-ERROR 0. PROGRAM-ERROR
  225.       "~S: invalid syntax for name and options: ~S"
  226.       "~S: Falsche Syntax für Name und Optionen: ~S"
  227.       "~S : Mauvaise syntaxe pour un nom et des options: ~S" LANGUAGE DEFSTRUCT
  228.       #S(HASH-TABLE EQ (:INITIAL-OFFSET . 296.) (:NAMED . 212.) (:TYPE . 204.)
  229.          (:PRINT-FUNCTION . 160.) (:INHERIT . 133.) (:INCLUDE . 133.)
  230.          (:PREDICATE . 99.) (:COPIER . 80.) (:CONSTRUCTOR . 48.)
  231.          (:CONC-NAME . 8.)
  232.         )
  233.       "" "MAKE-" CONCAT-PNAMES DS-SYMBOL-OR-ERROR
  234.       "~S ~S: argument list should be a list: ~S"
  235.       "~S ~S: Argumentliste muß eine Liste sein: ~S"
  236.       "~S ~S : La liste d'arguments doit être une liste: ~S"
  237.       "~S ~S: At most one :INCLUDE argument may be specified: ~S"
  238.       "~S ~S: Es darf nur ein :INCLUDE-Argument geben: ~S"
  239.       "~S ~S : Il ne peut y avoir qu'un argument :INCLUDE: ~S" FUNCTION
  240.       "~S: Use of :PRINT-FUNCTION implicitly applies FUNCTION. Therefore using ~S instead of ~S."
  241.       "~S: Bei :PRINT-FUNCTION ist FUNCTION bereits implizit.  Verwende daher ~S statt ~S."
  242.       "~S : FUNCTION est déjà implicite avec :PRINT-FUNCTION.  C'est pourquoi ~S est utilisé au lieu de ~S."
  243.       WARN "-PRINT-FUNCTION" LAMBDA (STRUCT STREAM DEPTH) (STRUCT STREAM DEPTH)
  244.       "~S ~S: unknown option ~S" "~S ~S: Die Option ~S gibt es nicht."
  245.       "~S ~S : Option ~S non reconnue."
  246.       "~S ~S: invalid syntax in ~S option: ~S"
  247.       "~S ~S: Falsche Syntax in ~S-Option: ~S"
  248.       "~S ~S : Mauvaise syntaxe dans l'option ~S: ~S"
  249.       "~S ~S: not a ~S option: ~S" "~S ~S: Das ist keine ~S-Option: ~S"
  250.       "~S ~S : Ceci n'est pas une option ~S: ~S" "-P"
  251.       "~S ~S: There is no :PREDICATE on unnamed structures."
  252.       "~S ~S: Bei unbenannten Structures kann es kein :PREDICATE geben."
  253.       "~S ~S : Il ne peut pas y avoir de :PREDICATE avec des structures anonymes."
  254.       "-" "MAKE-" "COPY-" VECTOR LIST "~S ~S: invalid :TYPE option ~S"
  255.       "~S ~S: Unzulässige :TYPE-Option ~S"
  256.       "~S ~S : Option :TYPE inadmissible: ~S"
  257.       "~S ~S: The :INITIAL-OFFSET must be a nonnegative integer, not ~S"
  258.       "~S ~S: Der :INITIAL-OFFSET muß ein Integer >=0 sein, nicht ~S"
  259.       "~S ~S : :INITIAL-OFFSET doit être un entier positif ou zéro et non ~S"
  260.       "~S ~S: :INITIAL-OFFSET must not be specified without :TYPE : ~S"
  261.       "~S ~S: :INITIAL-OFFSET darf nur zusammen mit :TYPE angegeben werden: ~S"
  262.       "~S ~S : :INITIAL-OFFSET ne peut être précisé qu'ensemble avec :TYPE: ~S"
  263.       1. DEFSTRUCT-DESCRIPTION
  264.       "~S ~S: included structure ~S has not been defined."
  265.       "~S ~S: Teilstruktur ~S ist nicht definiert."
  266.       "~S ~S : La structure incluse ~S n'est pas définie." CONS QUOTE
  267.       LOAD-TIME-VALUE SVREF GET ('DEFSTRUCT-DESCRIPTION) (0.)
  268.       "~S ~S: included structure ~S must be of the same type ~S."
  269.       "~S ~S: Teilstruktur ~S muß vom selben Typ ~S sein."
  270.       "~S ~S : La structure incluse ~S doit être du même type ~S."
  271.       #.#'COPY-LIST 3. #.#'FIRST #.#'EQ
  272.       "~S ~S: included structure ~S has no component with name ~S."
  273.       "~S ~S: Teilstruktur ~S hat keine Komponente namens ~S."
  274.       "~S ~S : La structure incluse ~S n'a pas de composante de nom ~S."
  275.       "DEFAULT-" :READ-ONLY
  276.       "~S ~S: The READ-ONLY slot ~S of the included structure ~S must remain READ-ONLY in ~S."
  277.       "~S ~S: Der READ-ONLY-Slot ~S von Teilstruktur ~S muß auch in ~S READ-ONLY bleiben."
  278.       "~S ~S : Le composant READ-ONLY ~S de la structure incluse ~S doit rester READ-ONLY dans ~S."
  279.       :TYPE SUBTYPEP
  280.       "~S ~S: The type ~S of slot ~S should be a subtype of the type defined for the included strucure ~S, namely ~S."
  281.       "~S ~S: Der Typ ~S von Slot ~S muß ein Untertyp des in Teilstruktur ~S definierten Typs ~S sein."
  282.       "~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."
  283.       "~S ~S: ~S is not a slot option." "~S ~S: ~S ist keine Slot-Option."
  284.       "~S ~S : ~S n'est pas un option de composant." :INHERIT TYPEP
  285.       "~S ~S: structure of type ~S can't hold the name."
  286.       "~S ~S: Structure vom Typ ~S kann den Namen nicht enthalten."
  287.       "~S ~S : Une structure de type ~S ne peut pas contenir le nom." SYMBOL
  288.       "DEFAULT-" "~S ~S: There may be only one slot with the name ~S."
  289.       "~S ~S: Es kann nicht mehrere Slots mit demselben Namen ~S geben."
  290.       "~S ~S : Il ne peut pas y avoir plusieurs composants avec le même nom ~S."
  291.       "~S ~S: ~S is not a slot option." "~S ~S: ~S ist keine Slot-Option."
  292.       "~S ~S : ~S n'est pas une option de composant." DS-MAKE-BOA-CONSTRUCTOR
  293.       DS-MAKE-KEYWORD-CONSTRUCTOR 4. #.#'THIRD ('DEFSTRUCT-DESCRIPTION)
  294.       EVAL-WHEN (LOAD COMPILE EVAL) LET #.#'LIST %PUT 'DEFSTRUCT-DESCRIPTION
  295.       CLOS::DEFINE-STRUCTURE-CLASS DS-MAKE-PRED DS-MAKE-COPIER
  296.       DS-MAKE-ACCESSORS DS-MAKE-DEFSETFS SETF DOCUMENTATION ('STRUCTURE)
  297.       'STRUCTURE-PRINT REMPROP ('STRUCTURE-PRINT)
  298.   )  )
  299.