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