home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Misc / CLISP-2.LHA / CLISP960530-fa.lha / type.fas < prev    next >
Encoding:
CLISP byte-compiled Lisp program  |  1996-06-17  |  28.5 KB  |  608 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.    #30Y(00 00 00 00 00 01 D8 8C 53 03 00 19 01 D8 2E 01 D8 DA 31 82 DB 2E 01 DB
  5.         DC 31 82 C6 19 01
  6.        )
  7.    CLOS::BUILT-IN-CLASS-P REMOVE-OLD-DEFINITIONS
  8.    #Y(CLOS::BUILT-IN-CLASS-P #9Y(00 01 00 00 00 02 00 19 02)) CLOS::SUBCLASSP
  9.    #Y(CLOS::SUBCLASSP #9Y(00 02 00 00 00 03 00 19 03))
  10.   )
  11. #Y(#:TOP-LEVEL-FORM-3 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
  12.    TYPESPEC-ERROR REMOVE-OLD-DEFINITIONS
  13.    #Y(TYPESPEC-ERROR
  14.       #18Y(00 02 00 00 00 03 D8 D9 DA DB 6D 03 04 AE AE 32 02 1F) ERROR
  15.       "~S: invalid type specification ~S"
  16.       "~S: ~S ist keine zugelassene Typspezifikation."
  17.       "~S : ~S n'est pas une spécification de type légale." LANGUAGE
  18.   )  )
  19. #Y(#:TOP-LEVEL-FORM-4 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
  20.    TYPEP REMOVE-OLD-DEFINITIONS
  21.    #Y(TYPEP
  22.       #326Y(00 02 00 00 00 03 62 AC 8E 08 80 C4 AC D8 37 01 80 84 00 1B 09 AC
  23.             D9 37 01 80 84 00 1C 1B 14 AE 35 01 19 04 AD AB AE 60 01 1A 80 FC
  24.             AC AE 31 35 19 04 AD 71 2B 9C 1A 81 01 AC DA 37 01 80 84 00 1B 62
  25.             AC DC 37 01 8D 84 63 AC DD 37 01 80 84 00 1C 0A 14 88 06 06 AA 6E
  26.             07 9E 21 56 C6 1A 80 E0 E4 E5 E6 E7 6D 03 10 DB A0 5B 77 32 02 1F
  27.             AD 94 03 37 03 8C B7 13 02 19 04 9D 5B 77 8E 08 61 9D 5B 5A 5D 14
  28.             AE 35 01 1B 6D 00 19 04 AD 9E 5B 77 31 03 19 04 AD 9E 5B 77 2F 03
  29.             58 19 04 94 02 62 1A 0F 94 02 62 1A 1B 86 01 00 AF AB 8A 03 17 82
  30.             01 AB 8C 96 72 02 19 06 86 01 00 AF AB 89 03 75 82 01 AB 8C 96 72
  31.             00 19 06 14 AE 9F 5B 9A 01 04 9D 1F 80 5E 93 02 8E 08 80 58 93 02
  32.             24 0A 07 AC 71 48 23 0B FF 93 93 02 23 11 FF 82 93 02 24 12 07 AC
  33.             71 48 23 0B FF 94 93 02 24 13 07 AC 71 48 23 0B FF 90 93 02 23 14
  34.             FF 93 93 02 23 15 FF 92 93 02 D9 37 01 80 84 00 1B FF AE 93 02 DA
  35.             37 01 80 84 00 1C 0A AD AB 9F 14 75 01 2F 03 19 04 C6 1A 0E AC 88
  36.             06 09 AD 71 2B 9E 14 2F 08 19 04 C6 14 AD 2F 09 19 04
  37.            )
  38.       TYPE-SYMBOL TYPE-LIST DEFTYPE-EXPANDER TYPEP DEFSTRUCT-DESCRIPTION
  39.       CLOS::CLASS CLOS::CLASS-P CLOS:CLASS-NAME CLOS::SUBCLASSP TYPESPEC-ERROR
  40.       SATISFIES 2. ERROR "~S: argument to SATISFIES must be a symbol: ~S"
  41.       "~S: Argument zu SATISFIES muß Symbol sein: ~S"
  42.       "~S : L'argument de SATISFIES doit être un symbole: ~S" LANGUAGE MEMBER
  43.       EQL NOT AND OR
  44.   )  )
  45. #Y(#:TOP-LEVEL-FORM-5 #13Y(00 00 00 00 00 01 D8 D9 DA 31 88 19 01) ARRAY
  46.    TYPE-SYMBOL #.#'ARRAYP
  47.   )
  48. #Y(#:TOP-LEVEL-FORM-6 #13Y(00 00 00 00 00 01 D8 D9 DA 31 88 19 01) ATOM
  49.    TYPE-SYMBOL #.#'ATOM
  50.   )
  51. #Y(#:TOP-LEVEL-FORM-7 #13Y(00 00 00 00 00 01 D8 D9 DA 31 88 19 01) BIGNUM
  52.    TYPE-SYMBOL
  53.    #Y(TYPE-SYMBOL-BIGNUM
  54.       #19Y(00 01 00 00 00 02 AB 31 0E 1E 06 AB 31 0F 58 19 02 19 02)
  55.   )  )
  56. #Y(#:TOP-LEVEL-FORM-8 #13Y(00 00 00 00 00 01 D8 D9 DA 31 88 19 01) BIT
  57.    TYPE-SYMBOL
  58.    #Y(TYPE-SYMBOL-BIT
  59.       #18Y(00 01 00 00 00 02 AB C3 59 1D 05 AB C4 59 19 02 19 02) 0. 1.
  60.   )  )
  61. #Y(#:TOP-LEVEL-FORM-9 #13Y(00 00 00 00 00 01 D8 D9 DA 31 88 19 01) BIT-VECTOR
  62.    TYPE-SYMBOL #.#'BIT-VECTOR-P
  63.   )
  64. #Y(#:TOP-LEVEL-FORM-10 #13Y(00 00 00 00 00 01 D8 D9 DA 31 88 19 01) CHARACTER
  65.    TYPE-SYMBOL #.#'CHARACTERP
  66.   )
  67. #Y(#:TOP-LEVEL-FORM-11 #13Y(00 00 00 00 00 01 D8 D9 DA 31 88 19 01) COMMON
  68.    TYPE-SYMBOL #.#'COMMONP
  69.   )
  70. #Y(#:TOP-LEVEL-FORM-12 #13Y(00 00 00 00 00 01 D8 D9 DA 31 88 19 01)
  71.    COMPILED-FUNCTION TYPE-SYMBOL #.#'COMPILED-FUNCTION-P
  72.   )
  73. #Y(#:TOP-LEVEL-FORM-13 #13Y(00 00 00 00 00 01 D8 D9 DA 31 88 19 01) COMPLEX
  74.    TYPE-SYMBOL #.#'COMPLEXP
  75.   )
  76. #Y(#:TOP-LEVEL-FORM-14 #13Y(00 00 00 00 00 01 D8 D9 DA 31 88 19 01) CONS
  77.    TYPE-SYMBOL #.#'CONSP
  78.   )
  79. #Y(#:TOP-LEVEL-FORM-15 #13Y(00 00 00 00 00 01 D8 D9 DA 31 88 19 01)
  80.    DOUBLE-FLOAT TYPE-SYMBOL #.#'DOUBLE-FLOAT-P
  81.   )
  82. #Y(#:TOP-LEVEL-FORM-16 #13Y(00 00 00 00 00 01 D8 D9 DA 31 88 19 01) FIXNUM
  83.    TYPE-SYMBOL #.#'FIXNUMP
  84.   )
  85. #Y(#:TOP-LEVEL-FORM-17 #13Y(00 00 00 00 00 01 D8 D9 DA 31 88 19 01) FLOAT
  86.    TYPE-SYMBOL #.#'FLOATP
  87.   )
  88. #Y(#:TOP-LEVEL-FORM-18 #13Y(00 00 00 00 00 01 D8 D9 DA 31 88 19 01) FUNCTION
  89.    TYPE-SYMBOL #.#'FUNCTIONP
  90.   )
  91. #Y(#:TOP-LEVEL-FORM-19 #13Y(00 00 00 00 00 01 D8 D9 DA 31 88 19 01) HASH-TABLE
  92.    TYPE-SYMBOL #.#'HASH-TABLE-P
  93.   )
  94. #Y(#:TOP-LEVEL-FORM-20 #13Y(00 00 00 00 00 01 D8 D9 DA 31 88 19 01) INTEGER
  95.    TYPE-SYMBOL #.#'INTEGERP
  96.   )
  97. #Y(#:TOP-LEVEL-FORM-21 #13Y(00 00 00 00 00 01 D8 D9 DA 31 88 19 01) KEYWORD
  98.    TYPE-SYMBOL #.#'KEYWORDP
  99.   )
  100. #Y(#:TOP-LEVEL-FORM-22 #13Y(00 00 00 00 00 01 D8 D9 DA 31 88 19 01) LIST
  101.    TYPE-SYMBOL #.#'LISTP
  102.   )
  103. #Y(#:TOP-LEVEL-FORM-23 #13Y(00 00 00 00 00 01 D8 D9 DA 31 88 19 01)
  104.    LOGICAL-PATHNAME TYPE-SYMBOL #.#'LOGICAL-PATHNAME-P
  105.   )
  106. #Y(#:TOP-LEVEL-FORM-24 #13Y(00 00 00 00 00 01 D8 D9 DA 31 88 19 01) LONG-FLOAT
  107.    TYPE-SYMBOL #.#'LONG-FLOAT-P
  108.   )
  109. #Y(#:TOP-LEVEL-FORM-25 #13Y(00 00 00 00 00 01 62 D8 D9 31 88 19 01) TYPE-SYMBOL
  110.    #Y(TYPE-SYMBOL-NIL #9Y(00 01 00 00 00 02 00 19 02))
  111.   )
  112. #Y(#:TOP-LEVEL-FORM-26 #13Y(00 00 00 00 00 01 D8 D9 DA 31 88 19 01) NULL
  113.    TYPE-SYMBOL #.#'NULL
  114.   )
  115. #Y(#:TOP-LEVEL-FORM-27 #13Y(00 00 00 00 00 01 D8 D9 DA 31 88 19 01) NUMBER
  116.    TYPE-SYMBOL #.#'NUMBERP
  117.   )
  118. #Y(#:TOP-LEVEL-FORM-28 #13Y(00 00 00 00 00 01 D8 D9 DA 31 88 19 01) PACKAGE
  119.    TYPE-SYMBOL #.#'PACKAGEP
  120.   )
  121. #Y(#:TOP-LEVEL-FORM-29 #13Y(00 00 00 00 00 01 D8 D9 DA 31 88 19 01) PATHNAME
  122.    TYPE-SYMBOL #.#'PATHNAMEP
  123.   )
  124. #Y(#:TOP-LEVEL-FORM-30 #13Y(00 00 00 00 00 01 D8 D9 DA 31 88 19 01)
  125.    RANDOM-STATE TYPE-SYMBOL #.#'RANDOM-STATE-P
  126.   )
  127. #Y(#:TOP-LEVEL-FORM-31 #13Y(00 00 00 00 00 01 D8 D9 DA 31 88 19 01) RATIO
  128.    TYPE-SYMBOL
  129.    #Y(TYPE-SYMBOL-RATIO
  130.       #19Y(00 01 00 00 00 02 AB 31 10 1E 06 AB 31 0E 58 19 02 19 02)
  131.   )  )
  132. #Y(#:TOP-LEVEL-FORM-32 #13Y(00 00 00 00 00 01 D8 D9 DA 31 88 19 01) RATIONAL
  133.    TYPE-SYMBOL #.#'RATIONALP
  134.   )
  135. #Y(#:TOP-LEVEL-FORM-33 #13Y(00 00 00 00 00 01 D8 D9 DA 31 88 19 01) READTABLE
  136.    TYPE-SYMBOL #.#'READTABLEP
  137.   )
  138. #Y(#:TOP-LEVEL-FORM-34 #13Y(00 00 00 00 00 01 D8 D9 DA 31 88 19 01) REAL
  139.    TYPE-SYMBOL #.#'REALP
  140.   )
  141. #Y(#:TOP-LEVEL-FORM-35 #13Y(00 00 00 00 00 01 D8 D9 DA 31 88 19 01) SEQUENCE
  142.    TYPE-SYMBOL #.#'SEQUENCEP
  143.   )
  144. #Y(#:TOP-LEVEL-FORM-36 #13Y(00 00 00 00 00 01 D8 D9 DA 31 88 19 01) SHORT-FLOAT
  145.    TYPE-SYMBOL #.#'SHORT-FLOAT-P
  146.   )
  147. #Y(#:TOP-LEVEL-FORM-37 #13Y(00 00 00 00 00 01 D8 D9 DA 31 88 19 01)
  148.    SIMPLE-ARRAY TYPE-SYMBOL #.#'SIMPLE-ARRAY-P
  149.   )
  150. #Y(#:TOP-LEVEL-FORM-38 #13Y(00 00 00 00 00 01 D8 D9 DA 31 88 19 01)
  151.    SIMPLE-BIT-VECTOR TYPE-SYMBOL #.#'SIMPLE-BIT-VECTOR-P
  152.   )
  153. #Y(#:TOP-LEVEL-FORM-39 #13Y(00 00 00 00 00 01 D8 D9 DA 31 88 19 01)
  154.    SIMPLE-STRING TYPE-SYMBOL #.#'SIMPLE-STRING-P
  155.   )
  156. #Y(#:TOP-LEVEL-FORM-40 #13Y(00 00 00 00 00 01 D8 D9 DA 31 88 19 01)
  157.    SIMPLE-VECTOR TYPE-SYMBOL #.#'SIMPLE-VECTOR-P
  158.   )
  159. #Y(#:TOP-LEVEL-FORM-41 #13Y(00 00 00 00 00 01 D8 D9 DA 31 88 19 01)
  160.    SINGLE-FLOAT TYPE-SYMBOL #.#'SINGLE-FLOAT-P
  161.   )
  162. #Y(#:TOP-LEVEL-FORM-42 #13Y(00 00 00 00 00 01 D8 D9 DA 31 88 19 01)
  163.    STANDARD-CHAR TYPE-SYMBOL
  164.    #Y(TYPE-SYMBOL-STANDARD-CHAR
  165.       #18Y(00 01 00 00 00 02 AB 31 1E 1E 05 AB 30 1D 19 02 19 02)
  166.   )  )
  167. #Y(#:TOP-LEVEL-FORM-43 #13Y(00 00 00 00 00 01 D8 D9 DA 31 88 19 01)
  168.    CLOS:STANDARD-GENERIC-FUNCTION TYPE-SYMBOL #.#'CLOS::GENERIC-FUNCTION-P
  169.   )
  170. #Y(#:TOP-LEVEL-FORM-44 #13Y(00 00 00 00 00 01 D8 D9 DA 31 88 19 01)
  171.    CLOS:STANDARD-OBJECT TYPE-SYMBOL #.#'CLOS::STD-INSTANCE-P
  172.   )
  173. #Y(#:TOP-LEVEL-FORM-45 #13Y(00 00 00 00 00 01 D8 D9 DA 31 88 19 01) STREAM
  174.    TYPE-SYMBOL #.#'STREAMP
  175.   )
  176. #Y(#:TOP-LEVEL-FORM-46 #13Y(00 00 00 00 00 01 D8 D9 DA 31 88 19 01) FILE-STREAM
  177.    TYPE-SYMBOL #.#'FILE-STREAM-P
  178.   )
  179. #Y(#:TOP-LEVEL-FORM-47 #13Y(00 00 00 00 00 01 D8 D9 DA 31 88 19 01)
  180.    SYNONYM-STREAM TYPE-SYMBOL #.#'SYNONYM-STREAM-P
  181.   )
  182. #Y(#:TOP-LEVEL-FORM-48 #13Y(00 00 00 00 00 01 D8 D9 DA 31 88 19 01)
  183.    BROADCAST-STREAM TYPE-SYMBOL #.#'BROADCAST-STREAM-P
  184.   )
  185. #Y(#:TOP-LEVEL-FORM-49 #13Y(00 00 00 00 00 01 D8 D9 DA 31 88 19 01)
  186.    CONCATENATED-STREAM TYPE-SYMBOL #.#'CONCATENATED-STREAM-P
  187.   )
  188. #Y(#:TOP-LEVEL-FORM-50 #13Y(00 00 00 00 00 01 D8 D9 DA 31 88 19 01)
  189.    TWO-WAY-STREAM TYPE-SYMBOL #.#'TWO-WAY-STREAM-P
  190.   )
  191. #Y(#:TOP-LEVEL-FORM-51 #13Y(00 00 00 00 00 01 D8 D9 DA 31 88 19 01) ECHO-STREAM
  192.    TYPE-SYMBOL #.#'ECHO-STREAM-P
  193.   )
  194. #Y(#:TOP-LEVEL-FORM-52 #13Y(00 00 00 00 00 01 D8 D9 DA 31 88 19 01)
  195.    STRING-STREAM TYPE-SYMBOL #.#'STRING-STREAM-P
  196.   )
  197. #Y(#:TOP-LEVEL-FORM-53 #13Y(00 00 00 00 00 01 D8 D9 DA 31 88 19 01) STRING
  198.    TYPE-SYMBOL #.#'STRINGP
  199.   )
  200. #Y(#:TOP-LEVEL-FORM-54 #13Y(00 00 00 00 00 01 D8 D9 DA 31 88 19 01) STRING-CHAR
  201.    TYPE-SYMBOL
  202.    #Y(TYPE-SYMBOL-STRING-CHAR
  203.       #18Y(00 01 00 00 00 02 AB 31 1E 1E 05 AB 30 1F 19 02 19 02)
  204.   )  )
  205. #Y(#:TOP-LEVEL-FORM-55 #13Y(00 00 00 00 00 01 D8 D9 DA 31 88 19 01) STRUCTURE
  206.    TYPE-SYMBOL
  207.    #Y(TYPE-SYMBOL-STRUCTURE
  208.       #30Y(00 01 00 00 00 02 AB 71 2A AA 31 08 1E 0E AA D8 37 01 31 84 1E 06 AA
  209.            AD 31 35 19 03 19 03
  210.           )
  211.       DEFSTRUCT-DESCRIPTION
  212.   )  )
  213. #Y(#:TOP-LEVEL-FORM-56 #13Y(00 00 00 00 00 01 D8 D9 DA 31 88 19 01) SYMBOL
  214.    TYPE-SYMBOL #.#'SYMBOLP
  215.   )
  216. #Y(#:TOP-LEVEL-FORM-57 #13Y(00 00 00 00 00 01 63 D8 D9 31 88 19 01) TYPE-SYMBOL
  217.    #Y(TYPE-SYMBOL-T #9Y(00 01 00 00 00 02 02 19 02))
  218.   )
  219. #Y(#:TOP-LEVEL-FORM-58 #13Y(00 00 00 00 00 01 D8 D9 DA 31 88 19 01) VECTOR
  220.    TYPE-SYMBOL #.#'VECTORP
  221.   )
  222. #Y(#:TOP-LEVEL-FORM-59 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
  223.    UPGRADED-ARRAY-ELEMENT-TYPE REMOVE-OLD-DEFINITIONS
  224.    #Y(UPGRADED-ARRAY-ELEMENT-TYPE
  225.       #93Y(00 01 00 00 00 02 9C 25 00 3F 9C 19 02 C6 19 05 C8 19 05 CA 19 05 CC
  226.            19 05 CE 19 05 D0 19 05 AA 71 D4 AA DA 8F 01 31 65 AA DC 8F 01 31 62
  227.            AA DE 8F 01 31 5F AA E0 8F 01 31 5C AA E2 8F 01 31 59 AA E4 8F 01 31
  228.            56 02 19 05 AB 2E 01 41 02 AB 8E 0E 08 AB 8D 94 04 AA 8D 0E 45 02 19
  229.            04
  230.           )
  231.       #S(HASH-TABLE EQ (T . 1.) (STRING-CHAR . 1.) (BIT . 1.)) SUBTYPE-INTEGER
  232.       1. BIT 2. (UNSIGNED-BYTE 2.) 4. (UNSIGNED-BYTE 4.) 8. (UNSIGNED-BYTE 8.)
  233.       16. (UNSIGNED-BYTE 16.) 32. (UNSIGNED-BYTE 32.)
  234.   )  )
  235. #Y(#:TOP-LEVEL-FORM-60 #13Y(00 00 00 00 00 01 D8 D9 DA 31 88 19 01) ARRAY
  236.    TYPE-LIST
  237.    #Y(TYPE-LIST-ARRAY
  238.       #74Y(00 01 00 02 00 0D 3A 02 02 C3 F8 3A 01 02 C3 F7 AD 31 22 1E 33 AC 23
  239.            00 0A AD 70 04 AD 6E 01 31 04 1E 25 AB C3 59 1D 20 AB 8D 0A 14 AB 71
  240.            48 AE 70 05 31 03 1E 12 DA AC AF 70 07 32 01 28 19 04 AB AE 70 05 31
  241.            03 19 04 19 04
  242.           )
  243.       * UPGRADED-ARRAY-ELEMENT-TYPE
  244.       #Y(TYPE-LIST-ARRAY-1
  245.          #19Y(00 02 00 00 00 03 AC C3 59 1D 06 AC AC 31 03 19 03 19 03) *
  246.   )  )  )
  247. #Y(#:TOP-LEVEL-FORM-61 #13Y(00 00 00 00 00 01 D8 D9 DA 31 88 19 01)
  248.    SIMPLE-ARRAY TYPE-LIST
  249.    #Y(TYPE-LIST-SIMPLE-ARRAY
  250.       #74Y(00 01 00 02 00 0D 3A 02 02 C3 F8 3A 01 02 C3 F7 AD 31 23 1E 33 AC 23
  251.            00 0A AD 70 04 AD 6E 01 31 04 1E 25 AB C3 59 1D 20 AB 8D 0A 14 AB 71
  252.            48 AE 70 05 31 03 1E 12 DA AC AF 70 07 32 01 28 19 04 AB AE 70 05 31
  253.            03 19 04 19 04
  254.           )
  255.       * UPGRADED-ARRAY-ELEMENT-TYPE
  256.       #Y(TYPE-LIST-SIMPLE-ARRAY-1
  257.          #19Y(00 02 00 00 00 03 AC C3 59 1D 06 AC AC 31 03 19 03 19 03) *
  258.   )  )  )
  259. #Y(#:TOP-LEVEL-FORM-62 #13Y(00 00 00 00 00 01 D8 D9 DA 31 88 19 01) VECTOR
  260.    TYPE-LIST
  261.    #Y(TYPE-LIST-VECTOR
  262.       #51Y(00 01 00 02 00 0D 3A 02 02 C3 F8 3A 01 02 C3 F7 AD 31 25 1E 1C AC 23
  263.            00 0A AD 70 04 AD 6E 01 31 04 1E 0E AB C3 59 1D 09 AD DA 70 06 AC 31
  264.            03 19 04 19 04
  265.           )
  266.       * UPGRADED-ARRAY-ELEMENT-TYPE 0.
  267.   )  )
  268. #Y(#:TOP-LEVEL-FORM-63 #13Y(00 00 00 00 00 01 D8 D9 DA 31 88 19 01)
  269.    SIMPLE-VECTOR TYPE-LIST
  270.    #Y(TYPE-LIST-SIMPLE-VECTOR
  271.       #32Y(00 01 00 01 00 08 3A 01 02 C3 F7 AC 31 26 1E 0E AB C3 59 1D 09 AB AD
  272.            D9 70 06 31 03 19 03 19 03
  273.           )
  274.       * 0.
  275.   )  )
  276. #Y(#:TOP-LEVEL-FORM-64 #13Y(00 00 00 00 00 01 D8 D9 DA 31 88 19 01) COMPLEX
  277.    TYPE-LIST
  278.    #Y(TYPE-LIST-COMPLEX
  279.       #48Y(00 01 00 02 00 0D 3A 02 02 C3 F8 3A 01 02 9D F7 AD 31 17 1E 19 AC 23
  280.            00 08 AD 71 C6 AD 2F 01 1E 0D AB C3 59 1D 08 AD 71 C7 AC 2F 01 19 04
  281.            19 04
  282.           )
  283.       * TYPEP
  284.   )  )
  285. #Y(#:TOP-LEVEL-FORM-65 #13Y(00 00 00 00 00 01 D8 D9 DA 31 88 19 01) INTEGER
  286.    TYPE-LIST
  287.    #Y(TYPE-LIST-INTEGER
  288.       #26Y(00 01 00 02 00 0D 3A 02 02 C3 F8 3A 01 02 C3 F7 AD AD AD D9 DA 2C 05
  289.            03 19 04
  290.           )
  291.       * #.#'INTEGERP INTEGER TYPEP-NUMBER-TEST
  292.   )  )
  293. #Y(#:TOP-LEVEL-FORM-66 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
  294.    TYPEP-NUMBER-TEST REMOVE-OLD-DEFINITIONS
  295.    #Y(TYPEP-NUMBER-TEST
  296.       #131Y(00 05 00 00 00 06 AC B0 35 01 1E 80 74 AE 23 00 20 AC AF 35 01 1B
  297.             80 43 9F 1F 80 48 9F 5B 1B 80 43 AC 93 05 35 01 1C 3C 93 04 B0 32
  298.             01 2F 1E 80 50 AD C3 59 1D 80 4A AC AE 35 01 1B 35 9E 1F 0B 9E 5B
  299.             1B 07 AC 93 04 35 01 1B 2E D9 DF E0 E1 6D 03 05 DE AE AF B0 A4 14
  300.             32 05 1F AE B0 32 01 31 1E 1F 1A 4D D9 DA DB DC 6D 03 05 DE AE AF
  301.             B0 A5 1A 65 AD B0 32 01 32 19 06 93 03 B0 32 01 30 19 06 19 06
  302.            )
  303.       * ERROR "~S: argument to ~S must be *, ~S or a list of ~S: ~S"
  304.       "~S: Argument zu ~S muß *, ~S oder eine Liste von ~S sein: ~S"
  305.       "~S : L'argument de ~S doit être *, ~S ou une liste de ~S: ~S" LANGUAGE
  306.       TYPEP "~S: argument to ~S must be *, ~S or a list of ~S: ~S"
  307.       "~S: Argument zu ~S muß *, ~S oder eine Liste von ~S sein: ~S"
  308.       "~S : L'argument de ~S doit être *, ~S ou une liste de ~S: ~S"
  309.   )  )
  310. #Y(#:TOP-LEVEL-FORM-67 #13Y(00 00 00 00 00 01 D8 D9 DA 31 88 19 01) MOD
  311.    TYPE-LIST
  312.    #Y(TYPE-LIST-MOD
  313.       #43Y(00 02 00 00 00 03 AB 8E 0E 13 AC 31 0E 1E 1A DE AD 32 01 31 1E 13 AC
  314.            AC 32 01 2F 19 03 D8 D9 DA DB 6D 03 04 DD AE 32 02 1F 19 03
  315.           )
  316.       ERROR "~S: argument to MOD must be an integer: ~S"
  317.       "~S: Argument zu MOD muß ganze Zahl sein: ~S"
  318.       "~S : L'argument de MOD doit être un entier: ~S" LANGUAGE TYPEP 0.
  319.   )  )
  320. #Y(#:TOP-LEVEL-FORM-68 #13Y(00 00 00 00 00 01 D8 D9 DA 31 88 19 01) SIGNED-BYTE
  321.    TYPE-LIST
  322.    #Y(TYPE-LIST-SIGNED-BYTE
  323.       #52Y(00 01 00 01 00 08 3A 01 02 C3 F7 AB 23 00 04 AB 8E 0E 13 AC 31 0E 1E
  324.            1A AB C3 59 1D 15 AC 71 D4 AC 32 01 2F 19 03 D9 DA DB DC 6D 03 05 DE
  325.            AE 32 02 1F 19 03
  326.           )
  327.       * ERROR "~S: argument to SIGNED-BYTE must be an integer or * : ~S"
  328.       "~S: Argument zu SIGNED-BYTE muß ganze Zahl oder * sein: ~S"
  329.       "~S : L'argument de SIGNED-BYTE doit être un entier ou bien * : ~S"
  330.       LANGUAGE TYPEP
  331.   )  )
  332. #Y(#:TOP-LEVEL-FORM-69 #13Y(00 00 00 00 00 01 D8 D9 DA 31 88 19 01)
  333.    UNSIGNED-BYTE TYPE-LIST
  334.    #Y(TYPE-LIST-UNSIGNED-BYTE
  335.       #58Y(00 01 00 01 00 08 3A 01 02 C3 F7 AB 23 00 04 AB 8E 0E 19 AC 31 0E 1E
  336.            20 AC 31 94 58 1E 1A AB C3 59 1D 15 AC 71 D4 AC 32 01 31 19 03 D9 DA
  337.            DB DC 6D 03 05 DE AE 32 02 1F 19 03
  338.           )
  339.       * ERROR "~S: argument to UNSIGNED-BYTE must be an integer or * : ~S"
  340.       "~S: Argument zu UNSIGNED-BYTE muß ganze Zahl oder * sein: ~S"
  341.       "~S : L'argument de UNSIGNED-BYTE doit être un entier ou bien * : ~S"
  342.       LANGUAGE TYPEP
  343.   )  )
  344. #Y(#:TOP-LEVEL-FORM-70 #13Y(00 00 00 00 00 01 D8 D9 DA 31 88 19 01) REAL
  345.    TYPE-LIST
  346.    #Y(TYPE-LIST-REAL
  347.       #26Y(00 01 00 02 00 0D 3A 02 02 C3 F8 3A 01 02 C3 F7 AD AD AD D9 DA 2C 05
  348.            03 19 04
  349.           )
  350.       * #.#'REALP REAL TYPEP-NUMBER-TEST
  351.   )  )
  352. #Y(#:TOP-LEVEL-FORM-71 #13Y(00 00 00 00 00 01 D8 D9 DA 31 88 19 01) RATIONAL
  353.    TYPE-LIST
  354.    #Y(TYPE-LIST-RATIONAL
  355.       #26Y(00 01 00 02 00 0D 3A 02 02 C3 F8 3A 01 02 C3 F7 AD AD AD D9 DA 2C 05
  356.            03 19 04
  357.           )
  358.       * #.#'RATIONALP RATIONAL TYPEP-NUMBER-TEST
  359.   )  )
  360. #Y(#:TOP-LEVEL-FORM-72 #13Y(00 00 00 00 00 01 D8 D9 DA 31 88 19 01) FLOAT
  361.    TYPE-LIST
  362.    #Y(TYPE-LIST-FLOAT
  363.       #26Y(00 01 00 02 00 0D 3A 02 02 C3 F8 3A 01 02 C3 F7 AD AD AD D9 DA 2C 05
  364.            03 19 04
  365.           )
  366.       * #.#'FLOATP FLOAT TYPEP-NUMBER-TEST
  367.   )  )
  368. #Y(#:TOP-LEVEL-FORM-73 #13Y(00 00 00 00 00 01 D8 D9 DA 31 88 19 01) SHORT-FLOAT
  369.    TYPE-LIST
  370.    #Y(TYPE-LIST-SHORT-FLOAT
  371.       #26Y(00 01 00 02 00 0D 3A 02 02 C3 F8 3A 01 02 C3 F7 AD AD AD D9 DA 2C 05
  372.            03 19 04
  373.           )
  374.       * #.#'SHORT-FLOAT-P SHORT-FLOAT TYPEP-NUMBER-TEST
  375.   )  )
  376. #Y(#:TOP-LEVEL-FORM-74 #13Y(00 00 00 00 00 01 D8 D9 DA 31 88 19 01)
  377.    SINGLE-FLOAT TYPE-LIST
  378.    #Y(TYPE-LIST-SINGLE-FLOAT
  379.       #26Y(00 01 00 02 00 0D 3A 02 02 C3 F8 3A 01 02 C3 F7 AD AD AD D9 DA 2C 05
  380.            03 19 04
  381.           )
  382.       * #.#'SINGLE-FLOAT-P SINGLE-FLOAT TYPEP-NUMBER-TEST
  383.   )  )
  384. #Y(#:TOP-LEVEL-FORM-75 #13Y(00 00 00 00 00 01 D8 D9 DA 31 88 19 01)
  385.    DOUBLE-FLOAT TYPE-LIST
  386.    #Y(TYPE-LIST-DOUBLE-FLOAT
  387.       #26Y(00 01 00 02 00 0D 3A 02 02 C3 F8 3A 01 02 C3 F7 AD AD AD D9 DA 2C 05
  388.            03 19 04
  389.           )
  390.       * #.#'DOUBLE-FLOAT-P DOUBLE-FLOAT TYPEP-NUMBER-TEST
  391.   )  )
  392. #Y(#:TOP-LEVEL-FORM-76 #13Y(00 00 00 00 00 01 D8 D9 DA 31 88 19 01) LONG-FLOAT
  393.    TYPE-LIST
  394.    #Y(TYPE-LIST-LONG-FLOAT
  395.       #26Y(00 01 00 02 00 0D 3A 02 02 C3 F8 3A 01 02 C3 F7 AD AD AD D9 DA 2C 05
  396.            03 19 04
  397.           )
  398.       * #.#'LONG-FLOAT-P LONG-FLOAT TYPEP-NUMBER-TEST
  399.   )  )
  400. #Y(#:TOP-LEVEL-FORM-77 #13Y(00 00 00 00 00 01 D8 D9 DA 31 88 19 01) STRING
  401.    TYPE-LIST
  402.    #Y(TYPE-LIST-STRING
  403.       #32Y(00 01 00 01 00 08 3A 01 02 C3 F7 AC 31 09 1E 0E AB C3 59 1D 09 AB AD
  404.            D9 70 06 31 03 19 03 19 03
  405.           )
  406.       * 0.
  407.   )  )
  408. #Y(#:TOP-LEVEL-FORM-78 #13Y(00 00 00 00 00 01 D8 D9 DA 31 88 19 01)
  409.    SIMPLE-STRING TYPE-LIST
  410.    #Y(TYPE-LIST-SIMPLE-STRING
  411.       #32Y(00 01 00 01 00 08 3A 01 02 C3 F7 AC 31 27 1E 0E AB C3 59 1D 09 AB AD
  412.            D9 70 06 31 03 19 03 19 03
  413.           )
  414.       * 0.
  415.   )  )
  416. #Y(#:TOP-LEVEL-FORM-79 #13Y(00 00 00 00 00 01 D8 D9 DA 31 88 19 01) BIT-VECTOR
  417.    TYPE-LIST
  418.    #Y(TYPE-LIST-BIT-VECTOR
  419.       #32Y(00 01 00 01 00 08 3A 01 02 C3 F7 AC 31 24 1E 0E AB C3 59 1D 09 AB AD
  420.            D9 70 06 31 03 19 03 19 03
  421.           )
  422.       * 0.
  423.   )  )
  424. #Y(#:TOP-LEVEL-FORM-80 #13Y(00 00 00 00 00 01 D8 D9 DA 31 88 19 01)
  425.    SIMPLE-BIT-VECTOR TYPE-LIST
  426.    #Y(TYPE-LIST-SIMPLE-BIT-VECTOR
  427.       #32Y(00 01 00 01 00 08 3A 01 02 C3 F7 AC 31 28 1E 0E AB C3 59 1D 09 AB AD
  428.            D9 70 06 31 03 19 03 19 03
  429.           )
  430.       * 0.
  431.   )  )
  432. #Y(#:TOP-LEVEL-FORM-81 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
  433.    SAFE-TYPEP REMOVE-OLD-DEFINITIONS
  434.    #Y(SAFE-TYPEP
  435.       #25Y(00 02 00 00 00 03 46 00 0E AC 2B 01 01 10 02 B2 B2 2F 03 11 47 19 03
  436.            19 03
  437.           )
  438.       SAFE-TYPEP #Y(SAFE-TYPEP-1 #9Y(00 00 00 00 01 16 00 48 00) NIL)
  439.       *ERROR-HANDLER* TYPEP
  440.   )  )
  441. #Y(#:TOP-LEVEL-FORM-82 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
  442.    %THE REMOVE-OLD-DEFINITIONS
  443.    #Y(%THE
  444.       #330Y(00 02 00 00 00 03 9C 1F 05 93 01 23 00 0B 9D 20 81 33 00 14 AC 2F
  445.             03 19 03 AC 94 02 1A 10 9C 1F 80 8B 93 01 93 01 8A 03 80 83 82 01
  446.             82 00 9B 1F 09 93 00 D9 DA 37 02 8C B7 64 9B 1F 80 4E 93 00 24 04
  447.             80 48 1A 38 9C 1F 80 52 1A 80 60 DE DF E0 CC 1A 17 00 19 06 82 01
  448.             1F 73 AC 93 02 8A 03 73 82 01 16 01 1A 36 DE DF E0 CC 14 6D 03 0A
  449.             A1 1A 80 7D 9C 1F 09 93 01 93 01 8A 03 31 82 01 82 00 9B 1F 09 93
  450.             00 D9 DA 37 02 8C B7 66 9B 1F FF B6 93 00 AA 23 05 40 AA 24 0B 4C
  451.             16 01 9B 1F 80 A2 93 00 24 0B 3E 82 00 AB 71 48 8E 95 03 00 19 05
  452.             62 1A 80 6F DE DF E0 E1 6D 03 0A A2 1A 31 00 19 08 82 01 16 01 1A
  453.             80 7A AC 1A 10 00 19 07 93 00 AC DA 37 02 8C B7 74 9B 5B 5B F6 9B
  454.             20 70 16 02 1A 80 5F 9B 1F 80 5B DE DF E0 E1 6D 03 0A A0 14 32 01
  455.             1F 93 01 AA 8E 0D FF BA AA 71 48 24 0C FF B3 93 00 8E 08 FF AD 93
  456.             00 71 8C 6A 0D 70 D7 AE AB 37 01 71 85 9D 5B 77 8A 03 FF A2 AA 83
  457.             02 16 02 82 01 9C 1F 09 93 01 D9 DA 37 02 8C B7 44 9C 1F 06 93 01
  458.             23 0E FF 89 AC E7 37 01 8E 85 FF 88 16 01 02 19 05 9D 5A 1A FE C9
  459.            )
  460.       VALUES #.LAMBDA-LIST-KEYWORDS #.#'EQ TYPEP &OPTIONAL &REST ERROR
  461.       "Invalid type specifier ~S" "Falsch aufgebauter Type-Specifier: ~S"
  462.       "Spécificateur de type mal formé : ~S" LANGUAGE &KEY 2. *KEYWORD-PACKAGE*
  463.       &ALLOW-OTHER-KEYS :ALLOW-OTHER-KEYS
  464.   )  )
  465. #Y(#:TOP-LEVEL-FORM-83 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
  466.    CANONICALIZE-TYPE REMOVE-OLD-DEFINITIONS
  467.    #Y(CANONICALIZE-TYPE
  468.       #405Y(00 01 00 00 00 02 AB 8D 08 24 9C 1F 81 80 93 01 8E 08 81 7A 93 01
  469.             D8 37 01 71 84 92 00 80 6C 14 9E 14 75 01 28 01 04 5E 14 AD 60 01
  470.             1A 73 AB D8 37 01 71 84 91 00 71 9D 25 01 32 C5 19 03 C6 19 03 C7
  471.             19 03 C8 19 03 C9 19 03 CA 19 03 CB 19 03 CC 19 03 CD 19 03 CE 19
  472.             03 CF 19 03 D0 19 03 D1 19 03 D2 19 03 AC 7A 01 28 01 04 FF 99 AC
  473.             E8 37 01 80 84 00 1C 80 FA 14 88 11 80 F5 AA 87 12 80 F0 AA 6E 13
  474.             9E 22 80 E9 15 19 02 9D 5A 25 14 80 E0 03 15 19 03 EE 9E 5B 77 60
  475.             02 19 03 9D 5B 77 AA 8E 0E 06 AA EF 8F 01 32 04 F0 AE 2F 19 F2 03
  476.             17 1A 80 94 03 1A 19 04 9D 5B 5A 1B 02 03 1B 14 AA 23 1B 70 AA 8E
  477.             0E 04 AA 8D 93 04 F0 AE 2F 19 F4 96 01 71 9B F2 AB 32 00 36 1A 80
  478.             87 03 1D 19 04 9D 5B 5A 1B 02 03 1B 14 AA 23 1B 70 AA 8E 0E 06 AA
  479.             EF 8F 01 32 04 F0 AE 2F 19 F4 AB 71 9B F2 03 17 1A 80 5F 9D 5B 5A
  480.             1B 02 03 1B 14 64 1E 03 1F 1A 35 9D 5B 5A 1B 02 03 1B 14 64 1E 03
  481.             20 1A 27 9D 5B 5A 1B 02 03 1B 14 64 1E 02 1A 1A 9D 5B 5A 1B 02 03
  482.             1B 14 64 21 03 1F 1A 0C 9D 5B 5A 1B 02 03 1B 14 64 21 03 20 14 AC
  483.             7A 01 60 03 19 04 9D 5B 5A 1B 02 03 1B 14 9E 5B 5B 5A 1B 02 03 1B
  484.             14 64 21 9D 14 AC 7A 01 60 03 19 05 9D 5B 1C FF 20 9D 19 03 AB 6E
  485.             13 28 01 03 FE 8A AB 88 12 0B AB 6E 13 E8 37 01 71 84 9D 21 69 9C
  486.             19 02 AB 87 11 6A 00 19 02
  487.            )
  488.       DEFTYPE-EXPANDER
  489.       #S(HASH-TABLE EQ (LONG-FLOAT . 43.) (DOUBLE-FLOAT . 43.)
  490.          (SINGLE-FLOAT . 43.) (SHORT-FLOAT . 43.) (FLOAT . 43.)
  491.          (RATIONAL . 43.) (INTEGER . 43.) (REAL . 43.) (COMPLEX . 43.)
  492.          (SIMPLE-VECTOR . 43.) (VECTOR . 43.) (SIMPLE-STRING . 43.)
  493.          (STRING . 43.) (SIMPLE-BIT-VECTOR . 43.) (BIT-VECTOR . 43.)
  494.          (SIMPLE-ARRAY . 43.) (ARRAY . 43.) (T . 40.) (STRING-CHAR . 37.)
  495.          (STANDARD-CHAR . 34.) (SEQUENCE . 31.) (RATIO . 28.) (NULL . 25.)
  496.          (NIL . 22.) (LIST . 19.) (KEYWORD . 16.) (FIXNUM . 13.) (COMMON . 10.)
  497.          (BIT . 7.) (BIGNUM . 4.) (ATOM . 1.)
  498.         )
  499.       (NOT CONS) (AND INTEGER (NOT FIXNUM)) (INTEGER 0. 1.)
  500.       (OR CONS SYMBOL NUMBER ARRAY STANDARD-CHAR STREAM PACKAGE HASH-TABLE
  501.         READTABLE PATHNAME RANDOM-STATE STRUCTURE
  502.       )
  503.       (INTEGER #.MOST-NEGATIVE-FIXNUM #.MOST-POSITIVE-FIXNUM)
  504.       (AND SYMBOL (SATISFIES KEYWORDP)) (OR CONS (MEMBER NIL)) (OR)
  505.       (MEMBER NIL) (AND RATIONAL (NOT INTEGER)) (OR LIST VECTOR)
  506.       (AND CHARACTER (SATISFIES STRING-CHAR-P) (SATISFIES STANDARD-CHAR-P))
  507.       (AND CHARACTER (SATISFIES STRING-CHAR-P)) (AND) CLOS::CLASS CLOS::CLASS-P
  508.       CLOS::BUILT-IN-CLASS-P CLOS:CLASS-NAME
  509.       #S(HASH-TABLE EQ (VECTOR . 193.) (STRING . 173.) (BIT-VECTOR . 159.)
  510.          (SIMPLE-VECTOR . 146.) (SIMPLE-STRING . 132.)
  511.          (SIMPLE-BIT-VECTOR . 118.) (UNSIGNED-BYTE . 82.) (SIGNED-BYTE . 41.)
  512.          (MOD . 14.) (EQL . 6.) (MEMBER . 221.)
  513.         )
  514.       (OR) MEMBER 0. SUBTYPEP TYPESPEC-ERROR INTEGER * 2. (INTEGER 0. *)
  515.       SIMPLE-ARRAY BIT STRING-CHAR ARRAY
  516.   )  )
  517. #Y(#:TOP-LEVEL-FORM-84 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
  518.    SUBTYPEP REMOVE-OLD-DEFINITIONS
  519.    #Y(SUBTYPEP
  520.       #957Y(00 02 00 00 00 03 AC 2E 00 F8 AB 2E 00 F7 AC AC 8D 04 31 9D 1F 16
  521.             93 02 23 01 2D 93 02 24 03 06 AC 71 48 23 04 3D 93 02 23 05 80 50
  522.             9C 1F 80 D4 93 01 24 03 80 64 AB 71 48 24 04 80 5D 62 00 14 3F 02
  523.             19 03 02 1A 83 70 94 02 62 1A 0E 00 1A 82 2C 86 01 00 14 AE 8A 02
  524.             74 82 01 AB 8C 96 72 02 1A 82 1A 9C 1F 57 93 01 24 03 52 AB 71 48
  525.             24 04 4C 9C 5B 77 9E 5B 77 28 02 05 FF 8A 94 02 62 1A 11 86 01 00
  526.             14 AE 27 FF 7D 41 02 92 01 26 16 02 82 01 AB 8C 96 6B 02 1A 81 E3
  527.             93 01 24 06 80 5F 94 01 62 AB 8B 96 19 86 01 00 AE AB 27 FF 57 41
  528.             02 91 01 06 62 AB 3F 02 19 07 16 02 82 01 1A 63 02 1A 81 B9 02 1A
  529.             81 B5 94 01 62 AB 8B 96 27 86 01 00 AE AB 27 FF 2F 1B 6B 82 01 1A
  530.             6E 94 02 62 1A 10 02 1A 81 97 86 01 00 14 AE 27 FF 18 1B 72 82 01
  531.             AB 8C 96 70 62 00 1A 81 84 02 1A 82 B9 93 01 23 05 44 9D 1F 05 93
  532.             02 23 06 51 AC 8E 08 80 50 AC DF 37 01 8E 84 80 48 AB 8E 08 80 43
  533.             AB 23 08 59 AB DF 37 01 8E 84 38 AC DF 37 01 71 84 CC 5E 14 AC DF
  534.             37 01 71 84 CC 5E 14 1A 1B 02 1A 81 3C 02 1A 82 73 AC 88 0A 09 AB
  535.             88 0A 05 AC AC 89 0B 6F 00 1A 82 62 82 01 AB 9C 21 61 9C 20 77 16
  536.             02 AC 87 0A 60 AB 87 0A 5C 9D 20 04 AC 60 01 F8 9D 5A 25 0C FE C7
  537.             9D 5B 5A 1A 80 63 9E 5B 5B 5A 1A 80 64 02 1A 80 F6 9E 5B 5A 1A 16
  538.             9F 5B 5B 5A 1A 17 E8 AD AC 32 01 28 16 02 1A 80 E0 9E 5B 1B 66 D0
  539.             14 9F 5B 5B 1B 64 D0 14 AB 23 0D 0F AD D0 59 58 1C 20 AD 6E 0F AC
  540.             6E 0F 8E 04 17 AA D0 59 1B 12 AC 8E 0D 0E AA 8E 0D 0A AC 71 48 AB
  541.             71 48 8D 03 FF BE 16 02 1A 80 A4 9D 5B 1B FF 98 D0 14 9E 5B 5B 1B
  542.             FF 96 D0 14 AD 23 0E FF 96 AD A0 5A 21 FF 90 9E 1F 0D 93 03 23 0E
  543.             FF A1 93 03 A0 5A 21 FF 9A 00 1A 80 76 9D 5B 5A 1A 80 53 9E 5B 5B
  544.             5A 1A 80 54 02 1A 80 65 9E 5B 5A 1A 15 9F 5B 5B 5A 1A 16 AC AB 27
  545.             FD DE 16 02 1A 80 50 9E 5B 1B 67 D0 14 9F 5B 5B 1B 65 9B 14 AB 23
  546.             0D 0D AD D0 59 58 1C 12 AD AC 27 FD BD 1C 0B AA D0 59 1B 06 AC D0
  547.             59 58 1B 4D 16 02 1A 23 9D 5B 1B FF A8 D0 14 9E 5B 5B 1B FF A6 9B
  548.             14 AD 23 11 FF A6 AD 23 12 FF A1 9E 1F 06 93 03 23 11 FF B1 00 14
  549.             02 14 3F 02 19 05 93 02 9E 5A 25 13 2A D7 1A 28 03 15 1A 24 03 16
  550.             1A 20 03 17 1A 1C 9E 5B 5A 1A 1D 9F 5B 5B 5A 1A 1E AE 8E 0A 2E 84
  551.             04 1A 2A AD 8E 0A 31 85 03 1A 2D 00 79 9E 5B 1B 5F D0 14 9F 5B 5B
  552.             1B 5D D0 14 93 05 03 18 59 14 63 63 9F 1F 08 86 04 04 91 02 50 7C
  553.             01 9E 1F 08 86 03 03 91 02 4D 7C 00 AE 8E 0A 16 AD 8E 0A 12 AE AE
  554.             8F 01 2F 0C AE AE 90 01 2D 0E 92 01 0B 92 00 08 B1 B0 37 03 8C B7
  555.             80 81 63 02 1A 80 8B A2 5B 5A 1A 1D A3 5B 5B 5A 1A 1E B1 AD 90 01
  556.             30 80 64 1A 80 4F B0 AC 32 01 2F 1A 80 59 A2 5B 1B 5F D0 14 A3 5B
  557.             5B 1B 5D D0 14 93 09 03 18 59 14 9D 1F 0C 86 02 02 92 00 08 AC 8E
  558.             0A 02 84 02 7C 04 9C 1F 0C 86 01 01 92 00 08 AB 8E 0A 02 85 01 7C
  559.             03 AC 23 0D 0E B1 8E 0A 1C 91 04 FF AD B1 AD 90 01 32 12 AB D0 59
  560.             1B 0D B0 8E 0A 09 91 03 FF A4 B0 AC 32 01 31 14 63 3F 02 19 0C A2
  561.             1F 09 93 07 B0 37 03 8B B7 FF 95 62 9E 58 14 3F 02 19 09 00 1A 1C
  562.             02 1A 19 AB 23 19 79 00 1A 12 02 1A 0F AB 23 1A 79 00 1A 08 02 1A
  563.             05 AB 23 1B 79 00 14 02 1A FC 82
  564.            )
  565.       CANONICALIZE-TYPE MEMBER TYPEP NOT 2. OR AND DEFSTRUCT-DESCRIPTION
  566.       STRUCTURE 0. CLOS::CLASS-P CLOS::SUBCLASSP
  567.       #S(HASH-TABLE EQ (STRING-STREAM . 575.) (ECHO-STREAM . 575.)
  568.          (TWO-WAY-STREAM . 575.) (CONCATENATED-STREAM . 575.)
  569.          (BROADCAST-STREAM . 575.) (SYNONYM-STREAM . 575.) (FILE-STREAM . 575.)
  570.          (LOGICAL-PATHNAME . 565.) (CLOS:STANDARD-GENERIC-FUNCTION . 555.)
  571.          (SYMBOL . 549.) (STREAM . 549.) (READTABLE . 549.)
  572.          (RANDOM-STATE . 549.) (PATHNAME . 549.) (PACKAGE . 549.)
  573.          (HASH-TABLE . 549.) (FUNCTION . 549.) (CONS . 549.) (CHARACTER . 549.)
  574.          (LONG-FLOAT . 272.) (DOUBLE-FLOAT . 272.) (SINGLE-FLOAT . 272.)
  575.          (SHORT-FLOAT . 272.) (FLOAT . 272.) (RATIONAL . 272.) (INTEGER . 272.)
  576.          (REAL . 272.) (COMPLEX . 230.) (SIMPLE-ARRAY . 101.) (ARRAY . 101.)
  577.         )
  578.       * ARRAY UPGRADED-ARRAY-ELEMENT-TYPE
  579.       #Y(LISP::SUBTYPEP-1
  580.          #20Y(00 02 00 00 00 03 AB C3 59 1D 07 AC AC 32 01 2D 19 03 19 03) *
  581.         )
  582.       COMPLEX NUMBER
  583.       #S(HASH-TABLE EQ (LONG-FLOAT . 12.) (DOUBLE-FLOAT . 12.)
  584.          (SINGLE-FLOAT . 12.) (SHORT-FLOAT . 12.) (FLOAT . 8.) (RATIONAL . 8.)
  585.          (INTEGER . 4.) (REAL . 1.)
  586.         )
  587.       (NUMBER) (RATIONAL REAL NUMBER) (REAL NUMBER) (FLOAT REAL NUMBER) INTEGER
  588.       FUNCTION PATHNAME STREAM
  589.   )  )
  590. #Y(#:TOP-LEVEL-FORM-85 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
  591.    SUBTYPE-INTEGER REMOVE-OLD-DEFINITIONS
  592.    #Y(SUBTYPE-INTEGER
  593.       #240Y(00 01 00 00 00 02 AB 2E 00 F7 20 0D AB 60 01 F7 93 01 23 04 80 9E
  594.             00 19 02 9C 5A 25 01 72 00 19 06 DA DA 94 03 62 AB 8B 96 80 57 86
  595.             01 00 14 8E 0E 6C AD AB 81 01 34 03 AC AB 81 01 33 02 82 01 1A 64
  596.             DA DA 94 03 62 1A 35 00 19 08 C6 1A 1C C6 1A 27 86 01 00 14 27 FF
  597.             AD 41 02 92 01 6B AF 23 03 6A AB 23 03 66 AF AC 32 01 34 FB AE 23
  598.             03 5F AA 23 03 5B AE AB 32 01 33 FA 16 02 82 01 AB 8C 96 50 AD 9E
  599.             1A 15 94 01 62 AB 8B 96 19 86 01 00 14 27 FF 72 41 02 92 01 07 14
  600.             9C 14 3F 02 19 06 16 02 82 01 1A 63 00 19 04 9C 5B 5A 1A 0B 9D 5B
  601.             5B 5A 1A 0C 9C 5B 1B 71 C6 14 9D 5B 5B 1B 6F C6 14 9C 1F 09 86 01
  602.             01 14 8E 0A 02 84 01 9B 1F 09 86 00 00 14 8E 0A 02 85 00 AB 8E 0A
  603.             0D AA 8E 0A 09 AB AB 8F 01 31 03 C5 F7 F6 AB AB 3F 02 19 04
  604.            )
  605.       CANONICALIZE-TYPE #S(HASH-TABLE EQ (AND . 105.) (OR . 37.) (MEMBER . 4.))
  606.       0. * INTEGER
  607.   )  )
  608.