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