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 / defs1.fas < prev    next >
Encoding:
CLISP byte-compiled Lisp program  |  1996-07-22  |  28.6 KB  |  699 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.    "LISP"
  4.   )
  5. #Y(#:TOP-LEVEL-FORM-2 #17Y(00 00 00 00 00 00 00 00 00 01 D8 37 01 30 DB 19 01)
  6.    (DOSEQ DOHASH DEFAULT-DIRECTORY DIR)
  7.   )
  8. #Y(#:TOP-LEVEL-FORM-3 #17Y(00 00 00 00 00 00 00 00 00 01 D8 37 02 30 E4 19 01)
  9.    "SYSTEM"
  10.   )
  11. #Y(#:TOP-LEVEL-FORM-4
  12.    #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01)
  13.    COPY-SYMBOL REMOVE-OLD-DEFINITIONS
  14.    #Y(COPY-SYMBOL
  15.       #51Y(00 00 00 00 01 00 01 00 00 08 3C 01 AC 71 8E 70 CF 92 02 1C AD 8C 53
  16.            06 AA AE 6E 00 30 56 AD 8C 54 06 AA 9F 5D 14 31 84 AA AE 71 8D 70 A3
  17.            31 89 15 19 03
  18.           )
  19.       %SYMBOL-VALUE
  20.   )  )
  21. #Y(#:TOP-LEVEL-FORM-5
  22.    #30Y(00 00 00 00 00 00 00 00 00 01 00 2A 01 C3 0B 00 00 D9 2E 02 D9 AB 6C 03
  23.         01 31 84 C4 19 02
  24.        )
  25.    0. GENTEMP REMOVE-OLD-DEFINITIONS
  26.    #Y(GENTEMP
  27.       #60Y(00 00 00 00 00 00 02 00 00 0C 3A 02 02 C4 F8 3A 01 07 0E 02 F7 1A 02
  28.            16 02 68 00 01 31 99 0C 00 01 AC 68 00 01 37 0B C6 FA 7C 05 14 70 8A
  29.            72 02 13 AC 30 D8 41 02 91 00 5E 9C 19 05
  30.           )
  31.       NIL "T" *PACKAGE* 10.
  32.   )  )
  33. #Y(#:TOP-LEVEL-FORM-6
  34.    #22Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 84 C3 19 01)
  35.    DO-SYMBOLS REMOVE-OLD-DEFINITIONS MACRO
  36.    #Y(DO-SYMBOLS
  37.       #141Y(00 00 00 00 01 00 01 00 00 08 3C 01 AC 71 4A D8 8F 01 2F 80 5B 9D
  38.             5B 5A 77 9E 5B 5A 5B 1B 80 55 C5 14 9F 5B 5A 5B 5B 1B 80 53 00 14
  39.             A0 5B 78 AA 62 B1 30 63 41 02 37 01 71 92 DB 62 DC AD B3 7A 02 7A
  40.             01 DC B5 C8 79 7A 01 DE DF B8 7A 02 A4 7B 02 E0 E1 E2 BA 7A 01 91
  41.             0C 2C 00 14 B8 32 02 23 7B 02 7A 02 B3 7A 03 B6 7A 05 7A 03 60 03
  42.             19 0A AC 2E 01 19 03 9E 5B 5A 5B 5A 1A FF A4 9F 5B 5A 5B 5B 5A 1A
  43.             FF A5 DE A8 79 60 01 1A 4E
  44.            )
  45.       2. MACRO-CALL-ERROR *PACKAGE* BLOCK LET (NIL) DECLARE IGNORABLE
  46.       MAP-SYMBOLS FUNCTION LAMBDA
  47.   )  )
  48. #Y(#:TOP-LEVEL-FORM-7
  49.    #22Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 84 C3 19 01)
  50.    DO-EXTERNAL-SYMBOLS REMOVE-OLD-DEFINITIONS MACRO
  51.    #Y(DO-EXTERNAL-SYMBOLS
  52.       #141Y(00 00 00 00 01 00 01 00 00 08 3C 01 AC 71 4A D8 8F 01 2F 80 5B 9D
  53.             5B 5A 77 9E 5B 5A 5B 1B 80 55 C5 14 9F 5B 5A 5B 5B 1B 80 53 00 14
  54.             A0 5B 78 AA 62 B1 30 63 41 02 37 01 71 92 DB 62 DC AD B3 7A 02 7A
  55.             01 DC B5 C8 79 7A 01 DE DF B8 7A 02 A4 7B 02 E0 E1 E2 BA 7A 01 91
  56.             0C 2C 00 14 B8 32 02 23 7B 02 7A 02 B3 7A 03 B6 7A 05 7A 03 60 03
  57.             19 0A AC 2E 01 19 03 9E 5B 5A 5B 5A 1A FF A4 9F 5B 5A 5B 5B 5A 1A
  58.             FF A5 DE A8 79 60 01 1A 4E
  59.            )
  60.       2. MACRO-CALL-ERROR *PACKAGE* BLOCK LET (NIL) DECLARE IGNORABLE
  61.       MAP-EXTERNAL-SYMBOLS FUNCTION LAMBDA
  62.   )  )
  63. #Y(#:TOP-LEVEL-FORM-8
  64.    #22Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 84 C3 19 01)
  65.    DO-ALL-SYMBOLS REMOVE-OLD-DEFINITIONS MACRO
  66.    #Y(DO-ALL-SYMBOLS
  67.       #107Y(00 00 00 00 01 00 01 00 00 08 3C 01 AC 71 4A D8 8F 01 2F 80 42 9D
  68.             5B 5A 77 9E 5B 5A 5B 1B 3D 00 14 9F 5B 78 AA 62 B0 30 63 41 02 DA
  69.             62 DB B1 C7 79 7A 01 DD DE B4 7A 02 A1 7B 02 DF E0 E1 B6 7A 01 91
  70.             09 20 00 14 B5 32 02 23 7B 02 7A 02 7A 02 B3 7A 05 60 03 19 08 AC
  71.             2E 01 19 03 9E 5B 5A 5B 5A 1A FF BC DD A5 79 60 01 1A 5A
  72.            )
  73.       2. MACRO-CALL-ERROR BLOCK LET (NIL) DECLARE IGNORABLE MAP-ALL-SYMBOLS
  74.       FUNCTION LAMBDA
  75.   )  )
  76. #Y(#:TOP-LEVEL-FORM-9
  77.    #24Y(00 00 00 00 00 00 00 00 00 01 D8 30 5E D9 8B 53 04 D9 62 30 56 C4 19 01
  78.        )
  79.    (SPECIAL *MODULES*) *MODULES*
  80.   )
  81. #Y(#:TOP-LEVEL-FORM-10
  82.    #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) PROVIDE
  83.    REMOVE-OLD-DEFINITIONS
  84.    #Y(PROVIDE
  85.       #24Y(00 00 00 00 01 00 00 00 00 02 AB 70 4F 6A 00 D9 37 02 30 BC 0F 00 19
  86.            02
  87.           )
  88.       *MODULES* #.#'STRING=
  89.   )  )
  90. #Y(#:TOP-LEVEL-FORM-11
  91.    #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) REQUIRE
  92.    REMOVE-OLD-DEFINITIONS
  93.    #Y(REQUIRE
  94.       #52Y(00 00 00 00 01 00 01 00 00 08 3B 01 14 3C 02 AD 70 4F 6A 00 D9 37 02
  95.            8B B8 12 91 00 04 AD 7F EA 02 9D 1F 0B 98 02 AD 32 00 17 19 04 00 19
  96.            04 AC 2E 02 19 04
  97.           )
  98.       *MODULES* #.#'STRING-EQUAL LOAD
  99.   )  )
  100. #Y(#:TOP-LEVEL-FORM-12
  101.    #32Y(00 00 00 00 00 00 00 00 00 01 D8 8C 62 0B D9 D8 70 52 8D 04 04 D8 DA 2F
  102.         03 D8 D9 31 85 C3 19 01
  103.        )
  104.    BOOLE-CLR 0. (DEFCONSTANT BOOLE-CLR 0.) CONSTANT-WARNING
  105.   )
  106. #Y(#:TOP-LEVEL-FORM-13
  107.    #32Y(00 00 00 00 00 00 00 00 00 01 D8 8C 62 0B D9 D8 70 52 8D 04 04 D8 DA 2F
  108.         03 D8 D9 31 85 C3 19 01
  109.        )
  110.    BOOLE-SET 15. (DEFCONSTANT BOOLE-SET 15.) CONSTANT-WARNING
  111.   )
  112. #Y(#:TOP-LEVEL-FORM-14
  113.    #32Y(00 00 00 00 00 00 00 00 00 01 D8 8C 62 0B D9 D8 70 52 8D 04 04 D8 DA 2F
  114.         03 D8 D9 31 85 C3 19 01
  115.        )
  116.    BOOLE-1 10. (DEFCONSTANT BOOLE-1 10.) CONSTANT-WARNING
  117.   )
  118. #Y(#:TOP-LEVEL-FORM-15
  119.    #32Y(00 00 00 00 00 00 00 00 00 01 D8 8C 62 0B D9 D8 70 52 8D 04 04 D8 DA 2F
  120.         03 D8 D9 31 85 C3 19 01
  121.        )
  122.    BOOLE-2 12. (DEFCONSTANT BOOLE-2 12.) CONSTANT-WARNING
  123.   )
  124. #Y(#:TOP-LEVEL-FORM-16
  125.    #32Y(00 00 00 00 00 00 00 00 00 01 D8 8C 62 0B D9 D8 70 52 8D 04 04 D8 DA 2F
  126.         03 D8 D9 31 85 C3 19 01
  127.        )
  128.    BOOLE-C1 5. (DEFCONSTANT BOOLE-C1 5.) CONSTANT-WARNING
  129.   )
  130. #Y(#:TOP-LEVEL-FORM-17
  131.    #32Y(00 00 00 00 00 00 00 00 00 01 D8 8C 62 0B D9 D8 70 52 8D 04 04 D8 DA 2F
  132.         03 D8 D9 31 85 C3 19 01
  133.        )
  134.    BOOLE-C2 3. (DEFCONSTANT BOOLE-C2 3.) CONSTANT-WARNING
  135.   )
  136. #Y(#:TOP-LEVEL-FORM-18
  137.    #32Y(00 00 00 00 00 00 00 00 00 01 D8 8C 62 0B D9 D8 70 52 8D 04 04 D8 DA 2F
  138.         03 D8 D9 31 85 C3 19 01
  139.        )
  140.    BOOLE-AND 8. (DEFCONSTANT BOOLE-AND 8.) CONSTANT-WARNING
  141.   )
  142. #Y(#:TOP-LEVEL-FORM-19
  143.    #32Y(00 00 00 00 00 00 00 00 00 01 D8 8C 62 0B D9 D8 70 52 8D 04 04 D8 DA 2F
  144.         03 D8 D9 31 85 C3 19 01
  145.        )
  146.    BOOLE-IOR 14. (DEFCONSTANT BOOLE-IOR 14.) CONSTANT-WARNING
  147.   )
  148. #Y(#:TOP-LEVEL-FORM-20
  149.    #32Y(00 00 00 00 00 00 00 00 00 01 D8 8C 62 0B D9 D8 70 52 8D 04 04 D8 DA 2F
  150.         03 D8 D9 31 85 C3 19 01
  151.        )
  152.    BOOLE-XOR 6. (DEFCONSTANT BOOLE-XOR 6.) CONSTANT-WARNING
  153.   )
  154. #Y(#:TOP-LEVEL-FORM-21
  155.    #32Y(00 00 00 00 00 00 00 00 00 01 D8 8C 62 0B D9 D8 70 52 8D 04 04 D8 DA 2F
  156.         03 D8 D9 31 85 C3 19 01
  157.        )
  158.    BOOLE-EQV 9. (DEFCONSTANT BOOLE-EQV 9.) CONSTANT-WARNING
  159.   )
  160. #Y(#:TOP-LEVEL-FORM-22
  161.    #32Y(00 00 00 00 00 00 00 00 00 01 D8 8C 62 0B D9 D8 70 52 8D 04 04 D8 DA 2F
  162.         03 D8 D9 31 85 C3 19 01
  163.        )
  164.    BOOLE-NAND 7. (DEFCONSTANT BOOLE-NAND 7.) CONSTANT-WARNING
  165.   )
  166. #Y(#:TOP-LEVEL-FORM-23
  167.    #32Y(00 00 00 00 00 00 00 00 00 01 D8 8C 62 0B D9 D8 70 52 8D 04 04 D8 DA 2F
  168.         03 D8 D9 31 85 C3 19 01
  169.        )
  170.    BOOLE-NOR 1. (DEFCONSTANT BOOLE-NOR 1.) CONSTANT-WARNING
  171.   )
  172. #Y(#:TOP-LEVEL-FORM-24
  173.    #32Y(00 00 00 00 00 00 00 00 00 01 D8 8C 62 0B D9 D8 70 52 8D 04 04 D8 DA 2F
  174.         03 D8 D9 31 85 C3 19 01
  175.        )
  176.    BOOLE-ANDC1 4. (DEFCONSTANT BOOLE-ANDC1 4.) CONSTANT-WARNING
  177.   )
  178. #Y(#:TOP-LEVEL-FORM-25
  179.    #32Y(00 00 00 00 00 00 00 00 00 01 D8 8C 62 0B D9 D8 70 52 8D 04 04 D8 DA 2F
  180.         03 D8 D9 31 85 C3 19 01
  181.        )
  182.    BOOLE-ANDC2 2. (DEFCONSTANT BOOLE-ANDC2 2.) CONSTANT-WARNING
  183.   )
  184. #Y(#:TOP-LEVEL-FORM-26
  185.    #32Y(00 00 00 00 00 00 00 00 00 01 D8 8C 62 0B D9 D8 70 52 8D 04 04 D8 DA 2F
  186.         03 D8 D9 31 85 C3 19 01
  187.        )
  188.    BOOLE-ORC1 13. (DEFCONSTANT BOOLE-ORC1 13.) CONSTANT-WARNING
  189.   )
  190. #Y(#:TOP-LEVEL-FORM-27
  191.    #32Y(00 00 00 00 00 00 00 00 00 01 D8 8C 62 0B D9 D8 70 52 8D 04 04 D8 DA 2F
  192.         03 D8 D9 31 85 C3 19 01
  193.        )
  194.    BOOLE-ORC2 11. (DEFCONSTANT BOOLE-ORC2 11.) CONSTANT-WARNING
  195.   )
  196. #Y(#:TOP-LEVEL-FORM-28
  197.    #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) MAKE-BYTE
  198.    REMOVE-OLD-DEFINITIONS
  199.    #Y(MAKE-BYTE
  200.       #24Y(00 00 00 00 00 00 00 00 80 1B 02 00 00 00 3C 02 3C 01 AC AC 31 D7 19
  201.            03
  202.           )
  203.       :SIZE :POSITION
  204.   )  )
  205. #Y(#:TOP-LEVEL-FORM-29
  206.    #32Y(00 00 00 00 00 00 00 00 00 01 D8 8C 62 0B D9 D8 70 52 8D 04 04 D8 DA 2F
  207.         03 D8 D9 31 85 C3 19 01
  208.        )
  209.    LEAST-POSITIVE-NORMALIZED-SHORT-FLOAT #.LEAST-POSITIVE-SHORT-FLOAT
  210.    (DEFCONSTANT LEAST-POSITIVE-NORMALIZED-SHORT-FLOAT
  211.      LEAST-POSITIVE-SHORT-FLOAT
  212.    )
  213.    CONSTANT-WARNING
  214.   )
  215. #Y(#:TOP-LEVEL-FORM-30
  216.    #32Y(00 00 00 00 00 00 00 00 00 01 D8 8C 62 0B D9 D8 70 52 8D 04 04 D8 DA 2F
  217.         03 D8 D9 31 85 C3 19 01
  218.        )
  219.    LEAST-NEGATIVE-NORMALIZED-SHORT-FLOAT #.LEAST-NEGATIVE-SHORT-FLOAT
  220.    (DEFCONSTANT LEAST-NEGATIVE-NORMALIZED-SHORT-FLOAT
  221.      LEAST-NEGATIVE-SHORT-FLOAT
  222.    )
  223.    CONSTANT-WARNING
  224.   )
  225. #Y(#:TOP-LEVEL-FORM-31
  226.    #32Y(00 00 00 00 00 00 00 00 00 01 D8 8C 62 0B D9 D8 70 52 8D 04 04 D8 DA 2F
  227.         03 D8 D9 31 85 C3 19 01
  228.        )
  229.    LEAST-POSITIVE-NORMALIZED-SINGLE-FLOAT #.LEAST-POSITIVE-SINGLE-FLOAT
  230.    (DEFCONSTANT LEAST-POSITIVE-NORMALIZED-SINGLE-FLOAT
  231.      LEAST-POSITIVE-SINGLE-FLOAT
  232.    )
  233.    CONSTANT-WARNING
  234.   )
  235. #Y(#:TOP-LEVEL-FORM-32
  236.    #32Y(00 00 00 00 00 00 00 00 00 01 D8 8C 62 0B D9 D8 70 52 8D 04 04 D8 DA 2F
  237.         03 D8 D9 31 85 C3 19 01
  238.        )
  239.    LEAST-NEGATIVE-NORMALIZED-SINGLE-FLOAT #.LEAST-NEGATIVE-SINGLE-FLOAT
  240.    (DEFCONSTANT LEAST-NEGATIVE-NORMALIZED-SINGLE-FLOAT
  241.      LEAST-NEGATIVE-SINGLE-FLOAT
  242.    )
  243.    CONSTANT-WARNING
  244.   )
  245. #Y(#:TOP-LEVEL-FORM-33
  246.    #32Y(00 00 00 00 00 00 00 00 00 01 D8 8C 62 0B D9 D8 70 52 8D 04 04 D8 DA 2F
  247.         03 D8 D9 31 85 C3 19 01
  248.        )
  249.    LEAST-POSITIVE-NORMALIZED-DOUBLE-FLOAT #.LEAST-POSITIVE-DOUBLE-FLOAT
  250.    (DEFCONSTANT LEAST-POSITIVE-NORMALIZED-DOUBLE-FLOAT
  251.      LEAST-POSITIVE-DOUBLE-FLOAT
  252.    )
  253.    CONSTANT-WARNING
  254.   )
  255. #Y(#:TOP-LEVEL-FORM-34
  256.    #32Y(00 00 00 00 00 00 00 00 00 01 D8 8C 62 0B D9 D8 70 52 8D 04 04 D8 DA 2F
  257.         03 D8 D9 31 85 C3 19 01
  258.        )
  259.    LEAST-NEGATIVE-NORMALIZED-DOUBLE-FLOAT #.LEAST-NEGATIVE-DOUBLE-FLOAT
  260.    (DEFCONSTANT LEAST-NEGATIVE-NORMALIZED-DOUBLE-FLOAT
  261.      LEAST-NEGATIVE-DOUBLE-FLOAT
  262.    )
  263.    CONSTANT-WARNING
  264.   )
  265. #Y(#:TOP-LEVEL-FORM-35
  266.    #34Y(00 00 00 00 00 00 00 00 00 01 6A 00 D9 8C 62 0B AA D9 70 52 8D 04 04 D9
  267.         DA 2F 03 D9 AB 31 85 C4 19 02
  268.        )
  269.    LEAST-POSITIVE-LONG-FLOAT LEAST-POSITIVE-NORMALIZED-LONG-FLOAT
  270.    (DEFCONSTANT LEAST-POSITIVE-NORMALIZED-LONG-FLOAT LEAST-POSITIVE-LONG-FLOAT)
  271.    CONSTANT-WARNING
  272.   )
  273. #Y(#:TOP-LEVEL-FORM-36
  274.    #34Y(00 00 00 00 00 00 00 00 00 01 6A 00 D9 8C 62 0B AA D9 70 52 8D 04 04 D9
  275.         DA 2F 03 D9 AB 31 85 C4 19 02
  276.        )
  277.    LEAST-NEGATIVE-LONG-FLOAT LEAST-NEGATIVE-NORMALIZED-LONG-FLOAT
  278.    (DEFCONSTANT LEAST-NEGATIVE-NORMALIZED-LONG-FLOAT LEAST-NEGATIVE-LONG-FLOAT)
  279.    CONSTANT-WARNING
  280.   )
  281. #Y(#:TOP-LEVEL-FORM-37
  282.    #32Y(00 00 00 00 00 00 00 00 00 01 D8 8C 62 0B D9 D8 70 52 8D 04 04 D8 DA 2F
  283.         03 D8 D9 31 85 C3 19 01
  284.        )
  285.    CHAR-CODE-LIMIT 256. (DEFCONSTANT CHAR-CODE-LIMIT 256.) CONSTANT-WARNING
  286.   )
  287. #Y(#:TOP-LEVEL-FORM-38
  288.    #32Y(00 00 00 00 00 00 00 00 00 01 D8 8C 62 0B D9 D8 70 52 8D 04 04 D8 DA 2F
  289.         03 D8 D9 31 85 C3 19 01
  290.        )
  291.    CHAR-FONT-LIMIT 16. (DEFCONSTANT CHAR-FONT-LIMIT 16.) CONSTANT-WARNING
  292.   )
  293. #Y(#:TOP-LEVEL-FORM-39
  294.    #32Y(00 00 00 00 00 00 00 00 00 01 D8 8C 62 0B D9 D8 70 52 8D 04 04 D8 DA 2F
  295.         03 D8 D9 31 85 C3 19 01
  296.        )
  297.    CHAR-BITS-LIMIT 16. (DEFCONSTANT CHAR-BITS-LIMIT 16.) CONSTANT-WARNING
  298.   )
  299. #Y(#:TOP-LEVEL-FORM-40
  300.    #32Y(00 00 00 00 00 00 00 00 00 01 D8 8C 62 0B D9 D8 70 52 8D 04 04 D8 DA 2F
  301.         03 D8 D9 31 85 C3 19 01
  302.        )
  303.    CHAR-CONTROL-BIT 1. (DEFCONSTANT CHAR-CONTROL-BIT 1.) CONSTANT-WARNING
  304.   )
  305. #Y(#:TOP-LEVEL-FORM-41
  306.    #32Y(00 00 00 00 00 00 00 00 00 01 D8 8C 62 0B D9 D8 70 52 8D 04 04 D8 DA 2F
  307.         03 D8 D9 31 85 C3 19 01
  308.        )
  309.    CHAR-META-BIT 2. (DEFCONSTANT CHAR-META-BIT 2.) CONSTANT-WARNING
  310.   )
  311. #Y(#:TOP-LEVEL-FORM-42
  312.    #32Y(00 00 00 00 00 00 00 00 00 01 D8 8C 62 0B D9 D8 70 52 8D 04 04 D8 DA 2F
  313.         03 D8 D9 31 85 C3 19 01
  314.        )
  315.    CHAR-SUPER-BIT 4. (DEFCONSTANT CHAR-SUPER-BIT 4.) CONSTANT-WARNING
  316.   )
  317. #Y(#:TOP-LEVEL-FORM-43
  318.    #32Y(00 00 00 00 00 00 00 00 00 01 D8 8C 62 0B D9 D8 70 52 8D 04 04 D8 DA 2F
  319.         03 D8 D9 31 85 C3 19 01
  320.        )
  321.    CHAR-HYPER-BIT 8. (DEFCONSTANT CHAR-HYPER-BIT 8.) CONSTANT-WARNING
  322.   )
  323. #Y(#:TOP-LEVEL-FORM-44
  324.    #22Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 84 C3 19 01)
  325.    DOSEQ REMOVE-OLD-DEFINITIONS MACRO
  326.    #Y(DOSEQ
  327.       #122Y(00 00 00 00 01 00 01 00 00 08 3C 01 AC 71 4A D8 8F 01 2F 80 59 9D
  328.             5B 5A 77 9E 5B 5A 5B 77 9F 5B 5A 5B 5B 77 A0 5B 78 AA 62 B1 30 63
  329.             41 02 37 01 71 92 DA 62 DB AD B3 7A 02 7A 01 DB B5 C7 79 7A 01 DD
  330.             DE B8 7A 02 A4 7B 02 DF 62 E0 E1 BB 7A 01 91 0D 20 00 14 E2 04 10
  331.             79 7A 01 32 02 23 7B 02 7A 02 B4 7A 04 B6 7A 05 7A 03 60 03 19 0A
  332.             AC 2E 01 19 03 DD A9 79 60 01 1A 5A
  333.            )
  334.       2. MACRO-CALL-ERROR BLOCK LET (NIL) DECLARE IGNORABLE MAP FUNCTION LAMBDA
  335.       TAGBODY
  336.   )  )
  337. #Y(#:TOP-LEVEL-FORM-45
  338.    #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) MEMBER1
  339.    REMOVE-OLD-DEFINITIONS
  340.    #Y(MEMBER1
  341.       #39Y(00 00 00 00 02 00 00 00 81 00 03 00 00 00 3A 01 07 7C 01 92 01 05 1A
  342.            05 91 01 02 C6 F7 DC AC B2 75 01 B1 A2 9A 02 07
  343.           )
  344.       :TEST :TEST-NOT :KEY #.#'IDENTITY #.#'MEMBER
  345.   )  )
  346. #Y(#:TOP-LEVEL-FORM-46
  347.    #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) UNION
  348.    REMOVE-OLD-DEFINITIONS
  349.    #Y(UNION
  350.       #53Y(00 00 00 00 02 00 00 00 81 00 03 00 00 00 B0 8B 97 17 98 03 93 07 B1
  351.            A2 36 02 1B 10 93 06 98 04 94 08 B2 A3 36 02 5C 19 07 A0 19 07 98 04
  352.            94 07 B1 A2 9A 02 07
  353.           )
  354.       :TEST :TEST-NOT :KEY MEMBER1 UNION
  355.   )  )
  356. #Y(#:TOP-LEVEL-FORM-47
  357.    #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) NUNION
  358.    REMOVE-OLD-DEFINITIONS
  359.    #Y(NUNION
  360.       #53Y(00 00 00 00 02 00 00 00 81 00 03 00 00 00 B0 8B 97 17 98 03 93 07 B1
  361.            A2 36 02 1B 10 B0 98 04 94 08 B2 A3 76 02 30 AE 19 07 A0 19 07 98 04
  362.            94 07 B1 A2 9A 02 07
  363.           )
  364.       :TEST :TEST-NOT :KEY MEMBER1 NUNION
  365.   )  )
  366. #Y(#:TOP-LEVEL-FORM-48
  367.    #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01)
  368.    INTERSECTION REMOVE-OLD-DEFINITIONS
  369.    #Y(INTERSECTION
  370.       #53Y(00 00 00 00 02 00 00 00 81 00 03 00 00 00 B0 8B 97 13 98 03 93 07 B1
  371.            A2 36 02 1B 0C 98 04 94 07 B1 A2 9A 02 07 00 19 07 93 06 98 04 94 08
  372.            B2 A3 36 02 5C 19 07
  373.           )
  374.       :TEST :TEST-NOT :KEY MEMBER1 INTERSECTION
  375.   )  )
  376. #Y(#:TOP-LEVEL-FORM-49
  377.    #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01)
  378.    NINTERSECTION REMOVE-OLD-DEFINITIONS
  379.    #Y(NINTERSECTION
  380.       #53Y(00 00 00 00 02 00 00 00 81 00 03 00 00 00 B0 8B 97 13 98 03 93 07 B1
  381.            A2 36 02 1B 0C 98 04 94 07 B1 A2 9A 02 07 00 19 07 B0 98 04 94 08 B2
  382.            A3 76 02 30 AE 19 07
  383.           )
  384.       :TEST :TEST-NOT :KEY MEMBER1 NINTERSECTION
  385.   )  )
  386. #Y(#:TOP-LEVEL-FORM-50
  387.    #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01)
  388.    SET-DIFFERENCE REMOVE-OLD-DEFINITIONS
  389.    #Y(SET-DIFFERENCE
  390.       #53Y(00 00 00 00 02 00 00 00 81 00 03 00 00 00 B0 8B 97 13 98 03 93 07 B1
  391.            A2 36 02 1C 0C 98 04 94 07 B1 A2 9A 02 07 00 19 07 93 06 98 04 94 08
  392.            B2 A3 36 02 5C 19 07
  393.           )
  394.       :TEST :TEST-NOT :KEY MEMBER1 SET-DIFFERENCE
  395.   )  )
  396. #Y(#:TOP-LEVEL-FORM-51
  397.    #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01)
  398.    NSET-DIFFERENCE REMOVE-OLD-DEFINITIONS
  399.    #Y(NSET-DIFFERENCE
  400.       #53Y(00 00 00 00 02 00 00 00 81 00 03 00 00 00 B0 8B 97 13 98 03 93 07 B1
  401.            A2 36 02 1C 0C 98 04 94 07 B1 A2 9A 02 07 00 19 07 B0 98 04 94 08 B2
  402.            A3 76 02 30 AE 19 07
  403.           )
  404.       :TEST :TEST-NOT :KEY MEMBER1 NSET-DIFFERENCE
  405.   )  )
  406. #Y(#:TOP-LEVEL-FORM-52
  407.    #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01)
  408.    SET-EXCLUSIVE-OR REMOVE-OLD-DEFINITIONS
  409.    #Y(SET-EXCLUSIVE-OR
  410.       #33Y(00 00 00 00 02 00 00 00 81 00 03 00 00 00 98 03 B1 B1 A2 76 02 98 03
  411.            B1 B3 A3 76 02 32 02 23 19 07
  412.           )
  413.       :TEST :TEST-NOT :KEY SET-DIFFERENCE
  414.   )  )
  415. #Y(#:TOP-LEVEL-FORM-53
  416.    #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01)
  417.    NSET-EXCLUSIVE-OR REMOVE-OLD-DEFINITIONS
  418.    #Y(NSET-EXCLUSIVE-OR
  419.       #33Y(00 00 00 00 02 00 00 00 81 00 03 00 00 00 98 03 B1 B1 A2 76 02 98 04
  420.            B1 B3 A3 76 02 32 02 24 19 07
  421.           )
  422.       :TEST :TEST-NOT :KEY SET-DIFFERENCE NSET-DIFFERENCE
  423.   )  )
  424. #Y(#:TOP-LEVEL-FORM-54
  425.    #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) SUBSETP
  426.    REMOVE-OLD-DEFINITIONS
  427.    #Y(SUBSETP
  428.       #39Y(00 00 00 00 02 00 00 00 81 00 03 00 00 00 B0 1A 0F 00 19 08 98 03 93
  429.            01 B2 A3 36 02 1C 73 82 00 AA 8C 97 70 02 19 08
  430.           )
  431.       :TEST :TEST-NOT :KEY MEMBER1
  432.   )  )
  433. #Y(#:TOP-LEVEL-FORM-55
  434.    #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01)
  435.    SUBST-IF-THEN REMOVE-OLD-DEFINITIONS
  436.    #Y(SUBST-IF-THEN
  437.       #41Y(00 00 00 00 03 00 00 00 80 1E 01 00 00 00 00 2A 03 7E 05 00 00 7E 04
  438.            00 01 3A 02 01 C4 0B 00 02 AA 6C 02 01 AE 9C 33 19 07
  439.           )
  440.       :KEY #.#'IDENTITY
  441.       #Y(SUBST-IF-THEN-SUBST
  442.          #63Y(00 00 00 00 01 00 00 00 00 02 68 00 02 68 00 03 AD 75 01 35 01 1B
  443.               06 9C 20 0E 9C 19 02 68 00 01 AC 35 01 19 02 A0 19 06 93 01 94 02
  444.               AB 6B 5B AB 6B 58 AD 9D 22 04 AC 9C 21 6B AB 9C 5C 19 06
  445.              )
  446.          NIL
  447.   )  )  )
  448. #Y(#:TOP-LEVEL-FORM-56
  449.    #22Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 84 C3 19 01)
  450.    DOHASH REMOVE-OLD-DEFINITIONS MACRO
  451.    #Y(DOHASH
  452.       #133Y(00 00 00 00 01 00 01 00 00 08 3C 01 AC 71 4A D8 8F 01 2F 80 64 9D
  453.             5B 5A 77 9E 5B 5A 5B 77 9F 5B 5A 5B 5B 77 A0 5B 5A 5B 5B 5B 77 A1
  454.             5B 78 AA 62 B2 30 63 41 02 37 01 71 92 DA 62 DB AD B3 7A 02 7A 01
  455.             DB B6 C7 79 B6 C8 79 7A 02 DE DF B9 B9 7A 03 A4 7B 02 E0 E1 E2 BB
  456.             BB 7A 02 91 0C 20 00 14 E3 04 0F 79 7A 01 32 02 23 7B 02 7A 02 B3
  457.             7A 03 B6 7A 05 7A 03 60 03 19 0B AC 2E 01 19 03 DE A8 79 60 01 1A
  458.             5A
  459.            )
  460.       2. MACRO-CALL-ERROR BLOCK LET (NIL) (NIL) DECLARE IGNORABLE MAPHASH
  461.       FUNCTION LAMBDA TAGBODY
  462.   )  )
  463. #Y(#:TOP-LEVEL-FORM-57
  464.    #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01)
  465.    STRING-TRIM REMOVE-OLD-DEFINITIONS
  466.    #Y(STRING-TRIM #17Y(00 00 00 00 02 00 00 00 00 03 AC AD AD 30 48 19 03))
  467.   )
  468. #Y(#:TOP-LEVEL-FORM-58
  469.    #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01)
  470.    STRING-LEFT-TRIM REMOVE-OLD-DEFINITIONS
  471.    #Y(STRING-LEFT-TRIM #17Y(00 00 00 00 02 00 00 00 00 03 AC 62 AD 30 48 19 03)
  472.   )  )
  473. #Y(#:TOP-LEVEL-FORM-59
  474.    #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01)
  475.    STRING-RIGHT-TRIM REMOVE-OLD-DEFINITIONS
  476.    #Y(STRING-RIGHT-TRIM
  477.       #17Y(00 00 00 00 02 00 00 00 00 03 62 AD AD 30 48 19 03)
  478.   )  )
  479. #Y(#:TOP-LEVEL-FORM-60-1
  480.    #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 3D 19 01)
  481.    LOGICAL-PATHNAME-TRANSLATIONS REMOVE-OLD-DEFINITIONS
  482.    #Y(LOGICAL-PATHNAME-TRANSLATIONS
  483.       #38Y(00 00 00 00 01 00 00 00 00 02 AB 37 02 7F 4A 01 14 6A 00 37 01 30 68
  484.            1D 0B D9 DA DB 6D 03 04 DD AD 32 02 1E 19 02
  485.           )
  486.       *LOGICAL-PATHNAME-TRANSLATIONS* "~S: ~S does not name a logical host"
  487.       "~S: ~S benennt keinen Logical Host."
  488.       "~S : ~S n'est pas le nom d'un ½host logique╗." LANGUAGE
  489.       LOGICAL-PATHNAME-TRANSLATIONS
  490.   )  )
  491. #Y(#:TOP-LEVEL-FORM-60-2
  492.    #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 3D 19 01)
  493.    SET-LOGICAL-PATHNAME-TRANSLATIONS REMOVE-OLD-DEFINITIONS
  494.    #Y(SET-LOGICAL-PATHNAME-TRANSLATIONS
  495.       #63Y(00 00 00 00 02 00 00 00 00 03 AC 37 02 7F 4A 02 14 6A 00 D9 AF 6F 02
  496.            62 AF 1A 15 93 00 93 00 6E 03 AE 62 37 01 70 F4 9C 5B 79 83 02 16 01
  497.            82 00 9B 20 68 16 01 AA 30 A8 16 01 F6 30 69 19 03
  498.           )
  499.       *LOGICAL-PATHNAME-TRANSLATIONS* :HOST MAKE-LOGICAL-PATHNAME
  500.       LOGICAL-PATHNAME
  501.   )  )
  502. #Y(#:TOP-LEVEL-FORM-60-3
  503.    #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 3D 19 01)
  504.    LOAD-LOGICAL-PATHNAME-TRANSLATIONS REMOVE-OLD-DEFINITIONS
  505.    #Y(LOAD-LOGICAL-PATHNAME-TRANSLATIONS
  506.       #78Y(00 00 00 00 01 00 00 00 00 02 AB 37 02 7F 4A 01 14 6A 00 37 01 8B 68
  507.            1D AB D9 8C 54 12 DA AD DB 72 03 13 88 01 09 DC AD DD 72 03 13 87 01
  508.            09 00 14 2F 0A 19 02 00 19 02 DE AD DF 72 03 13 6E 01 E0 AE E1 72 03
  509.            13 6E 01 7A 02 60 01 1A 62
  510.           )
  511.       *LOGICAL-PATHNAME-TRANSLATIONS* GETENV "LOGICAL_HOST_" "_FROM"
  512.       "LOGICAL_HOST_" "_TO" "LOGICAL_HOST_" "_FROM" "LOGICAL_HOST_" "_TO"
  513.       SET-LOGICAL-PATHNAME-TRANSLATIONS
  514.   )  )
  515. #Y(#:TOP-LEVEL-FORM-60-4 #16Y(00 00 00 00 00 00 00 00 00 01 D8 D9 2F 02 19 01)
  516.    "SYS"
  517.    (("**;*.LISP" "/**/*.lsp") (";**;*.LISP" "**/*.lsp") ("**;*.*" "/**/*.*")
  518.      (";**;*.*" "**/*.*")
  519.    )
  520.    SET-LOGICAL-PATHNAME-TRANSLATIONS
  521.   )
  522. #Y(#:TOP-LEVEL-FORM-61
  523.    #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) %TIME
  524.    REMOVE-OLD-DEFINITIONS
  525.    #Y(%TIME
  526.       #220Y(00 00 00 00 12 00 00 00 00 00 BC D8 72 02 37 BC 72 02 35 B4 D8 72
  527.             02 37 B4 72 02 35 72 01 36 BB D8 72 02 37 BB 72 02 35 B3 D8 72 02
  528.             37 B3 72 02 35 72 01 36 BA D8 72 02 37 BA 72 02 35 B2 D8 72 02 37
  529.             B2 72 02 35 72 01 36 B9 D9 D9 71 D7 BA 71 DD B1 D9 D9 71 D7 B2 71
  530.             DD 72 01 36 B8 B0 72 01 36 37 01 30 90 DA 37 03 30 8E AE D8 72 01
  531.             38 37 01 71 B1 37 0D 30 85 DB 37 03 30 8E 37 01 30 90 DC 37 03 30
  532.             8E AD D8 72 01 38 37 01 71 B1 37 0D 30 85 DD 37 03 30 8E 37 01 30
  533.             90 DE 37 03 30 8E AB 37 0D 30 85 DF 37 03 30 8E AA 8D 95 07 AC 8D
  534.             95 03 00 19 18 37 01 30 90 E0 37 03 30 8E AA 37 0D 30 85 E1 37 03
  535.             30 8E AC D8 72 01 38 37 01 71 B1 37 0D 30 85 E2 37 03 30 8E 19 18
  536.            )
  537.       #.INTERNAL-TIME-UNITS-PER-SECOND 24. "Real time: " " sec." "Run time: "
  538.       " sec." "Space: " " Bytes" "GC: " ", GC time: " " sec."
  539.   )  )
  540. #Y(#:TOP-LEVEL-FORM-62
  541.    #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) SLEEP
  542.    REMOVE-OLD-DEFINITIONS
  543.    #Y(SLEEP
  544.       #67Y(00 00 00 00 01 00 00 00 00 02 AB 8E 17 25 AB 8D 96 21 AB D8 8F 01 30
  545.            15 AB 37 01 31 B6 41 02 AB AB DB 72 02 37 37 01 71 B9 30 CD 19 04 D9
  546.            DA 30 CD 1A 7A DC DD AD DE DF E0 E1 E2 6D 03 0B E4 B2 32 06 1F
  547.           )
  548.       16700000. 86400. 0. 1000000. TYPE-ERROR :DATUM :EXPECTED-TYPE (REAL 0. *)
  549.       "~S: argument ~S should be a nonnegative number"
  550.       "~S: Argument mu▀ eine Zahl >=0 sein, nicht ~S"
  551.       "~S : L'argument doit Ωtre un nombre positif ou zΘro et non ~S" LANGUAGE
  552.       SLEEP
  553.   )  )
  554. #Y(#:TOP-LEVEL-FORM-63
  555.    #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) UTAG
  556.    REMOVE-OLD-DEFINITIONS
  557.    #Y(UTAG
  558.       #36Y(00 00 00 00 01 00 00 00 00 02 D8 D9 AD 72 02 37 AD DA 71 B6 AE DB 71
  559.            B6 72 00 36 AF DC 71 B6 32 05 35 19 02
  560.           )
  561.       -693901. 365. 4. 100. 400.
  562.   )  )
  563. #Y(#:TOP-LEVEL-FORM-64
  564.    #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) JAHR&TAG
  565.    REMOVE-OLD-DEFINITIONS
  566.    #Y(JAHR&TAG
  567.       #47Y(00 00 00 00 01 00 00 00 00 02 D8 D9 AD 72 02 35 DA 71 B6 72 02 35 AA
  568.            6E 03 AD AB 90 01 2F 06 85 01 14 2E 03 F6 AB AE AC 72 01 36 3F 02 19
  569.            04
  570.           )
  571.       1900. -58. #10r146097/400 UTAG
  572.   )  )
  573. #Y(#:TOP-LEVEL-FORM-65-1
  574.    #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 3D 19 01)
  575.    ENCODE-UNIVERSAL-TIME REMOVE-OLD-DEFINITIONS
  576.    #Y(ENCODE-UNIVERSAL-TIME
  577.       #279Y(00 00 00 00 06 00 01 00 00 00 3C 01 01 04 B0 8E 0F 80 F3 D8 B1 D9
  578.             90 02 31 18 2D 02 41 06 B6 DB AC DC BA 72 02 36 DB 71 B7 72 02 37
  579.             81 02 35 0C 16 06 DD B1 90 01 31 80 CD B1 8E 0F 80 C8 DE B2 DF 90
  580.             02 31 80 C0 B1 E0 8F 01 2F 80 A8 A1 F8 CD 14 B2 81 02 35 03 B2 8E
  581.             0F 80 AB DE B3 90 01 31 80 A4 96 08 E3 A0 5E 14 81 02 35 01 14 AD
  582.             6E 0C 81 02 35 00 AD 24 0D 80 84 AA 95 03 2E 0C 14 90 01 2F 80 82
  583.             B3 8E 0F 80 7D D8 B4 E6 90 02 31 80 75 B4 8E 0F 80 70 D8 B5 E7 90
  584.             02 31 80 68 B5 8E 0F 80 63 D8 B6 E7 90 02 31 80 5B 91 05 0C E8 AB
  585.             72 02 37 B4 72 02 35 2E 11 FB AF 8E 12 04 AF 80 B2 05 AF 8D 0F 0C
  586.             AF 8E 11 3C EA B0 72 02 37 8E 0F 34 EB B0 DF 90 02 31 2D B5 F1 B6
  587.             F1 B7 B4 E8 B1 72 02 37 72 03 35 72 02 37 72 02 35 72 02 37 32 02
  588.             35 19 0C B0 80 9A 02 CC 1A FF 53 AB E3 AF 31 99 5E 1A FF 78 EC ED
  589.             EE EF 6D 03 18 B4 B4 B4 B8 BA BC B7 32 07 1F
  590.            )
  591.       0. 99. GET-DECODED-TIME 100. 50. 1900. 1. 12. 3. 9. -3.
  592.       #(0. 31. 61. 92. 122. 153. 184. 214. 245. 275. 306. 337.) UTAG 11. 23.
  593.       59. 24. DEFAULT-TIME-ZONE 3600. -13. ERROR
  594.       "incorrect date: ~S.~S.~S, ~Sh~Sm~Ss, time zone ~S"
  595.       "Inkorrektes Datum: ~S.~S.~S, ~Sh~Sm~Ss, Zeitzone ~S"
  596.       "Date incorrecte : ~S/~S/~S, ~Sh~Sm~Ss, heure ~S" LANGUAGE 60.
  597.   )  )
  598. #Y(#:TOP-LEVEL-FORM-65-2
  599.    #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01)
  600.    DECODE-UNIVERSAL-TIME REMOVE-OLD-DEFINITIONS
  601.    #Y(DECODE-UNIVERSAL-TIME
  602.       #148Y(00 00 00 00 01 00 01 00 00 08 3C 01 01 02 91 03 80 6F AE D8 71 B6
  603.             2E 01 41 02 69 02 69 00 14 91 02 80 65 C6 14 81 02 35 03 AE D8 AC
  604.             72 02 37 37 01 71 B9 72 01 36 AA DC 31 B6 41 02 AB DC 31 B6 41 02
  605.             AB DD 31 B6 41 02 AB 2E 06 41 02 DF E0 AC 72 02 37 72 02 35 E1 71
  606.             B6 AB E2 9D 5E 14 72 01 36 71 99 AB E3 8F 01 2F 23 E5 AC 81 02 35
  607.             01 84 03 B2 B1 B0 AD AF B2 B5 E6 71 BA BD C0 3F 09 19 10 7C 01 9E
  608.             F6 1A FF A1 C5 1A FF 98 E4 AC 81 02 35 01 1A 5D
  609.            )
  610.       3600. DEFAULT-TIME-ZONE 1. 0. 60. 24. JAHR&TAG 2. 5. 153.
  611.       #(0. 31. 61. 92. 122. 153. 184. 214. 245. 275. 306. 337.) 10. 3. -9. 7.
  612.   )  )
  613. #Y(#:TOP-LEVEL-FORM-66
  614.    #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01)
  615.    GET-DECODED-TIME REMOVE-OLD-DEFINITIONS
  616.    #Y(GET-DECODED-TIME #16Y(00 00 00 00 00 00 00 00 00 01 70 CA 2E 00 19 01)
  617.       DECODE-UNIVERSAL-TIME
  618.   )  )
  619. #Y(#:TOP-LEVEL-FORM-67
  620.    #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01)
  621.    CONCAT-PNAMES REMOVE-OLD-DEFINITIONS
  622.    #Y(CONCAT-PNAMES
  623.       #49Y(00 00 00 00 02 00 00 00 00 03 AC 70 4F AC 70 4F 72 02 13 AA 71 4A 8E
  624.            95 07 AA D8 70 35 23 01 07 AA 37 01 30 D8 19 04 AA DA 37 01 71 48 6A
  625.            03 1A 72
  626.           )
  627.       0. #\: 1. *KEYWORD-PACKAGE*
  628.   )  )
  629. #Y(#:TOP-LEVEL-FORM-68
  630.    #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01)
  631.    DEFAULT-DIRECTORY REMOVE-OLD-DEFINITIONS
  632.    #Y(DEFAULT-DIRECTORY #16Y(00 00 00 00 00 00 00 00 00 01 37 01 30 FE 19 01))
  633.   )
  634. #Y(#:TOP-LEVEL-FORM-69
  635.    #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01)
  636.    DATE-FORMAT REMOVE-OLD-DEFINITIONS
  637.    #Y(DATE-FORMAT #18Y(00 00 00 00 00 00 00 00 00 01 D8 D9 DA 2C 03 03 19 01)
  638.       #Y(DATE-FORMAT-1
  639.          #93Y(00 00 00 00 02 00 00 00 01 18 9D 39 06 00 B4 01 06 B2 2C 08 00 D9
  640.               B5 30 8D B4 01 06 B3 2C 08 00 D9 B5 30 8D B4 01 06 B4 2C 08 00 DA
  641.               B5 30 8D B4 01 02 DB DC 01 02 B5 2C 08 00 DD B5 30 8D B4 01 02 DB
  642.               DC 01 02 B6 2C 08 00 DD B5 30 8D B4 01 02 DB DC 01 02 B7 2C 08 00
  643.               16 07 9C 19 04
  644.              )
  645.          DO-FORMAT-DECIMAL #\/ #\Space 2. #\0 #\.
  646.         )
  647.       #Y(DATE-FORMAT-2
  648.          #93Y(00 00 00 00 02 00 00 00 01 18 9D 39 06 00 B4 01 06 B4 2C 08 00 D9
  649.               B5 30 8D B4 01 06 B3 2C 08 00 D9 B5 30 8D B4 01 06 B2 2C 08 00 DA
  650.               B5 30 8D B4 01 02 DB DC 01 02 B5 2C 08 00 DD B5 30 8D B4 01 02 DB
  651.               DC 01 02 B6 2C 08 00 DD B5 30 8D B4 01 02 DB DC 01 02 B7 2C 08 00
  652.               16 07 9C 19 04
  653.              )
  654.          DO-FORMAT-DECIMAL #\. #\Space 2. #\0 #\:
  655.         )
  656.       #Y(DATE-FORMAT-3
  657.          #93Y(00 00 00 00 02 00 00 00 01 18 9D 39 06 00 B4 01 06 B4 2C 08 00 D9
  658.               B5 30 8D B4 01 06 B3 2C 08 00 D9 B5 30 8D B4 01 06 B2 2C 08 00 DA
  659.               B5 30 8D B4 01 02 DB DC 01 02 B5 2C 08 00 DD B5 30 8D B4 01 02 DB
  660.               DC 01 02 B6 2C 08 00 DD B5 30 8D B4 01 02 DB DC 01 02 B7 2C 08 00
  661.               16 07 9C 19 04
  662.              )
  663.          DO-FORMAT-DECIMAL #\/ #\Space 2. #\0 #\:
  664.         )
  665.       LANGUAGE
  666.   )  )
  667. #Y(#:TOP-LEVEL-FORM-70
  668.    #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) DIR
  669.    REMOVE-OLD-DEFINITIONS
  670.    #Y(DIR
  671.       #32Y(00 00 00 00 00 00 01 00 00 07 3A 01 02 C3 F7 AB 8D 0E 06 AB C4 33 3D
  672.            19 02 D9 AC 32 00 19 1A 76
  673.           )
  674.       ("*/" "*")
  675.       #Y(LISP::DIR-ONEDIR
  676.          #77Y(00 00 00 00 01 00 00 00 00 02 AB 63 63 70 FD D8 AB 8F 00 28 0D 2D
  677.               05 14 AB DA DE 37 02 71 6A 62 1A 24 63 D9 AC DA DB 37 02 71 6A 2C
  678.               03 04 19 03 86 01 00 63 DF 93 02 9E 5B 5B 5B 77 B0 A0 5B 5B 77 2C
  679.               06 04 82 01 AB 8C 97 66 00 19 06
  680.              )
  681.          #.#'ATOM
  682.          #Y(LISP::DIR-ONEDIR-1
  683.             #32Y(00 00 00 00 02 00 00 00 01 18 AC 1A 0A AE 30 90 93 00 82 01 AF
  684.                  30 89 AA 8C 97 72 16 01 9C 19 04
  685.            )    )
  686.          #.#'STRING< #.#'NAMESTRING FORMAT DATE-FORMAT
  687.          #Y(LISP::DIR-ONEDIR-2
  688.             #18Y(00 00 00 00 01 00 00 00 00 02 93 01 37 01 30 F7 19 02)
  689.            )
  690.          #Y(LISP::DIR-ONEDIR-3
  691.             #79Y(00 00 00 00 04 00 00 00 01 1A AF 30 90 AE B0 30 89 AF 01 02 D8
  692.                  62 2C 05 01 AF 01 02 DA 01 03 B4 2C 08 03 AF 01 02 DC 62 2C 05
  693.                  01 AF 70 95 AA 71 78 B1 01 02 DD 01 03 B2 01 04 B6 BB BB 2C 03
  694.                  06 09 0F B6 71 79 7A 01 2C 0D 07 16 02 9C 19 06
  695.                 )
  696.             40. FORMAT-TABULATE 7. DO-FORMAT-DECIMAL 52. 21.
  697.             DO-FORMAT-INDIRECTION DO-FORMAT-JUSTIFICATION
  698.   )  )  )  )
  699.