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 / user2.fas < prev    next >
Encoding:
CLISP byte-compiled Lisp program  |  1996-07-22  |  34.6 KB  |  637 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.    (*EDITOR* EDITOR-NAME EDITOR-TEMPFILE EDIT-FILE UNCOMPILE SAVEINITMEM)
  7.   )
  8. #Y(#:TOP-LEVEL-FORM-3 #17Y(00 00 00 00 00 00 00 00 00 01 D8 37 01 30 DB 19 01)
  9.    (RUN-SHELL-COMMAND RUN-PROGRAM)
  10.   )
  11. #Y(#:TOP-LEVEL-FORM-4 #17Y(00 00 00 00 00 00 00 00 00 01 D8 37 02 30 E4 19 01)
  12.    "SYSTEM"
  13.   )
  14. #Y(#:TOP-LEVEL-FORM-5
  15.    #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01)
  16.    APROPOS-LIST REMOVE-OLD-DEFINITIONS
  17.    #Y(APROPOS-LIST
  18.       #60Y(00 00 00 00 01 00 01 00 00 08 00 2A 01 7E 03 00 00 3C 02 9B 2A 01 00
  19.            0B 00 00 AA 6C 00 01 91 04 15 AA 30 E8 67 01 00 63 37 05 C4 F7 71 58
  20.            DA DB 37 02 31 6B 19 06 AA AF 30 E6 1A 68
  21.           )
  22.       #Y(LISP::APROPOS-LIST-1
  23.          #32Y(00 00 00 00 01 00 00 00 00 02 68 01 01 AC 37 04 8B 46 03 00 19 02
  24.               AB 07 00 01 5C 0C 00 01 19 02
  25.              )
  26.          NIL
  27.         )
  28.       #.#'EQ #.#'STRING< #.#'SYMBOL-NAME
  29.   )  )
  30. #Y(#:TOP-LEVEL-FORM-6
  31.    #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01)
  32.    FBOUND-STRING REMOVE-OLD-DEFINITIONS
  33.    #Y(FBOUND-STRING
  34.       #39Y(00 00 00 00 01 00 00 00 00 02 AB 8B 55 0F 9C 5D 14 8D 20 0E DF E0 CC
  35.            14 2C 03 03 19 02 D8 D9 C5 1A 75 DC DD C9 1A 70
  36.           )
  37.       "special form" "Spezialform" "forme spΘciale" LANGUAGE "function"
  38.       "Funktion" "fonction" "macro" "Macro" "macro"
  39.   )  )
  40. #Y(#:TOP-LEVEL-FORM-7
  41.    #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) APROPOS
  42.    REMOVE-OLD-DEFINITIONS
  43.    #Y(APROPOS
  44.       #138Y(00 00 00 00 01 00 01 00 00 08 3C 01 AC AC 6F 00 62 AB 8B 97 80 6F
  45.             86 01 00 14 37 01 30 87 AA 8C 54 0C D9 37 03 30 8E AA 6E 02 37 03
  46.             30 8E AA 8C 53 15 DB 37 03 30 8E AA 8B 62 80 43 E0 E1 CD 14 6D 03
  47.             07 37 03 30 8E AA E3 37 01 8D 86 07 AA E4 37 01 8E 86 0F E5 37 03
  48.             30 8E E6 E7 E8 6D 03 07 37 03 30 8E AA E9 37 01 8E 86 0F EA 37 03
  49.             30 8E EB EC ED 6D 03 07 37 03 30 8E 82 01 1A FF 92 DC DD C9 1A FF
  50.             BA 16 02 3D 19 03
  51.            )
  52.       APROPOS-LIST "   " FBOUND-STRING "   " "constant" "Konstante" "constante"
  53.       LANGUAGE "variable" "Variable" "variable" TYPE-SYMBOL
  54.       DEFSTRUCT-DESCRIPTION "   " "type" "Typ" "type" CLOS::CLASS "   " "class"
  55.       "Klasse" "classe"
  56.   )  )
  57. #Y(#:TOP-LEVEL-FORM-8
  58.    #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) DESCRIBE
  59.    REMOVE-OLD-DEFINITIONS
  60.    #Y(DESCRIBE
  61.       #1931Y(00 00 00 00 01 00 01 00 00 08 3C 01 62 92 02 80 DA AC 02 22 03 0E
  62.              01 F8 AC DA DB DC 6D 03 05 2F 06 AC DF AF 6A 08 6F 09 2C 03 06 AC
  63.              E2 E3 E4 6D 03 05 2F 06 AD 71 2B 9B 1F 80 B6 AE 70 06 AF 70 05 AF
  64.              64 81 05 64 81 06 64 81 07 6D 03 05 B2 71 24 AE 2C 04 06 AB 24 12
  65.              0F AF 64 81 08 64 81 09 64 81 0A 6D 03 05 2F 06 AA 02 21 11 AF 64
  66.              81 0B 64 81 0C 64 81 0D 6D 03 05 AC 2C 03 06 B0 8C 0A 0F AF 64 81
  67.              0E 64 81 0F 64 81 10 6D 03 05 2F 06 AB 8E 95 2A AF 64 81 11 64 81
  68.              12 64 81 13 6D 03 05 B2 70 08 2C 03 06 B0 8C 16 13 AF 64 81 14 64
  69.              81 15 64 81 16 6D 03 05 B2 70 17 2C 03 06 AF 64 81 17 64 81 18 03
  70.              81 19 14 6D 03 05 2F 06 16 02 16 01 92 00 13 AC 64 81 1A 64 81 1B
  71.              64 81 1C 6D 03 05 AC 71 4C 2C 03 06 3D 19 04 0E 00 F8 1A FF 27 9B
  72.              25 0D 86 39 AE E7 E8 D4 1A 16 AE D1 73 92 00 1F 14 B0 8C A0 6F AA
  73.              EA 90 01 30 0D AE EB EC 03 15 14 6D 03 05 9D 1A 86 48 AE EE EF 03
  74.              18 1A 05 AE F1 F2 03 1B 14 6D 03 05 2F 06 16 01 1A FF 9F AD 64 25
  75.              64 26 03 27 1A 80 9D AD 64 28 64 29 03 2A 1A 80 93 AD 64 38 64 39
  76.              64 3A 6D 03 05 2F 06 AE 8C 5B 80 DA AD 64 3B 64 3C 03 3D 1A 80 CA
  77.              AD 64 3E 64 3F 64 40 6D 03 05 2F 06 64 41 AF 7A 02 83 01 64 42 64
  78.              33 B0 7A 02 7A 02 83 01 1A 80 AF AE 64 59 64 5A 64 5B 6D 03 05 AC
  79.              2C 03 06 1A 81 33 10 61 1A 81 3C 91 04 0A AD F4 F5 64 1E 6D 03 05
  80.              2F 06 AD 64 1F 64 20 64 21 6D 03 05 B0 2C 03 06 AE 8E 8F 0C AD 64
  81.              22 64 23 64 24 6D 03 05 2F 06 AE 8C 53 80 40 AE 8B 62 FF 65 AE 8D
  82.              91 FF 6A AD 64 2B 64 2C 03 2D 14 6D 03 05 2F 06 AE 88 2E 17 AD 64
  83.              2F 64 30 64 31 6D 03 05 2F 06 64 32 64 33 B0 7A 02 7A 02 83 01 AE
  84.              83 01 64 34 64 33 B0 7A 02 7A 02 83 01 AE 8C 54 25 AD 64 35 64 36
  85.              64 37 6D 03 05 2F 06 AE 8B 55 FF 29 9F 5D 14 8D 20 FF 3D AD 64 43
  86.              64 44 03 45 14 6D 03 05 2F 06 AE 64 46 37 01 8D 86 08 AE 64 47 37
  87.              01 8E 86 0C AD 64 48 64 49 64 4A 6D 03 05 2F 06 AE 64 4B 37 01 8E
  88.              86 0C AD 64 4C 64 4D 64 4E 6D 03 05 2F 06 AE 8E 8D 36 62 AF 71 8D
  89.              92 00 0B 93 00 83 01 9B 5B 5B F6 91 00 75 AB 31 4C 16 01 F6 AE 64
  90.              4F 64 50 64 51 6D 03 05 AC 71 4A AD 2C 04 06 16 01 64 52 64 33 B0
  91.              7A 02 7A 02 83 01 AD 64 53 64 54 64 55 6D 03 05 2F 06 AD 64 56 64
  92.              57 64 58 6D 03 05 2F 06 AE 71 8C 91 00 FE C8 AE 64 5C 64 5D 64 5E
  93.              6D 03 05 2F 06 62 02 10 5F 00 10 60 91 07 FE C2 00 10 62 B9 30 8B
  94.              11 14 70 D7 62 1A 15 86 01 00 10 61 BC 30 8B 11 14 AD 37 04 8C 39
  95.              03 AA 83 09 82 01 AB 8C 97 67 16 03 12 02 92 00 1B AF 64 63 64 64
  96.              64 65 6D 03 05 94 02 64 66 AE 72 00 17 64 67 37 03 71 6A 2C 04 06
  97.              16 02 AD 64 68 64 69 03 6A 1A 84 02 AD 64 6B 64 6C 64 6D 6D 03 05
  98.              B0 31 D6 1A 19 AD 64 6E 64 6F 03 70 1A 83 E9 AD 64 71 64 72 64 73
  99.              6D 03 05 B0 37 01 31 C4 14 9E 1A 83 76 AF 64 77 64 78 64 79 6D 03
  100.              05 2F 06 1A 80 54 AB 8D 94 6D AF 64 7A 64 7B 64 7C 6D 03 05 9E 1A
  101.              25 AD 64 74 64 75 64 76 6D 03 05 2F 06 AE 71 C8 AF 71 C9 AA 8D 94
  102.              59 AB 8E 94 13 AF 64 7D 64 7E 64 7F 6D 03 05 9D 14 71 96 2C 03 06
  103.              1A 16 AF 64 80 80 64 80 81 64 80 82 6D 03 05 AD 71 96 AD 71 96 2C
  104.              04 06 16 02 AD 64 80 83 64 80 84 03 80 85 1A 83 63 AD 64 80 86 64
  105.              80 87 64 80 88 6D 03 05 2F 06 AE 70 28 8D 94 0F AD 64 80 89 64 80
  106.              8A 64 80 8B 6D 03 05 2F 06 AE 70 29 8D 94 13 AD 64 80 8C 64 80 8D
  107.              64 80 8E 6D 03 05 B0 70 29 2C 03 06 AD 64 80 8F 64 80 90 64 80 91
  108.              6D 03 05 2F 06 AD 64 80 92 64 80 93 64 80 94 6D 03 05 B0 70 1F 2C
  109.              03 06 AE 8B 1E FC A9 AD 64 80 95 64 80 96 03 80 97 1A 82 F2 AF 2E
  110.              80 9B 41 06 B4 B0 B0 B0 B0 B0 B0 2C 07 80 9C 64 80 9D 64 41 B7 71
  111.              37 7A 02 7A 02 83 08 64 80 9D 64 33 B7 7A 02 7A 02 83 08 16 07 1A
  112.              FC 6C AF 64 80 A2 64 80 A3 64 80 A4 6D 03 05 AC 2C 03 06 16 02 1A
  113.              FC 56 AE 71 0C AE 64 80 98 64 80 99 64 80 9A 6D 03 05 AC 2C 03 06
  114.              91 00 FF A2 AE 64 80 9E 64 80 9F 64 80 A0 6D 03 05 B1 EA 31 2F 77
  115.              2C 03 06 AF 64 80 A1 71 2F 91 00 FF B3 16 02 1A FC 1A B3 AF AF AF
  116.              AF B0 B0 2C 07 80 9C 16 06 1A FC 0A AD 64 80 A5 64 80 A6 64 80 A7
  117.              6D 03 05 2F 06 AE 30 01 41 06 91 05 59 16 06 1A FB EE AE 8D 20 60
  118.              AD 64 80 A8 64 80 A9 03 80 AA 1A 82 33 AD 64 80 AB 64 80 AC 03 80
  119.              AD 1A 82 26 AD 64 80 AE 64 80 AF 64 80 B0 6D 03 05 B0 64 80 B1 71
  120.              2F 2E 80 B2 1A 81 D9 AD 64 80 B3 64 80 B4 03 80 B5 1A 82 00 AD 64
  121.              80 B6 64 80 B7 64 80 B8 6D 03 05 B0 71 7C B1 31 7D 1A 81 8B AD 64
  122.              80 B9 64 80 BA 64 80 BB 6D 03 05 B0 70 D1 2C 03 06 AE 70 D2 92 00
  123.              11 AE 64 80 BC 64 80 BD 64 80 BE 6D 03 05 AC 2C 03 06 16 01 AD 64
  124.              80 BF 64 80 C0 64 80 C1 6D 03 05 2F 06 AE 70 D4 AF 70 D5 AF 64 80
  125.              C2 64 80 C3 64 80 C4 6D 03 05 2F 06 92 01 18 AF 64 80 C5 64 80 C6
  126.              64 80 C7 6D 03 05 94 03 64 66 AF 72 00 17 2C 04 06 AF 64 80 C8 64
  127.              80 C9 64 80 CA 6D 03 05 00 2A 01 00 0B 00 00 AA 6C 80 CB 01 B4 30
  128.              E7 67 00 00 64 67 64 80 CC 37 02 80 6A 00 2C 03 06 92 00 18 AF 64
  129.              80 CD 64 80 CE 64 80 CF 6D 03 05 94 02 64 66 AE 72 00 17 2C 04 06
  130.              AF 64 80 D0 64 80 D1 03 80 D2 1A FA CD AE 8B D1 FF 3C AD 64 80 D3
  131.              64 80 D4 03 80 D5 1A 81 19 AD 64 80 D6 64 80 D7 64 80 D8 6D 03 05
  132.              B0 30 6D 1A 80 D2 AD 64 80 D9 64 80 DA 64 80 DB 6D 03 05 B0 37 02
  133.              70 72 31 06 1A 80 BB AD 64 80 DC 64 80 DD 64 80 DE 6D 03 05 B0 71
  134.              1E 62 64 80 DF B3 37 01 70 EB B4 37 01 70 EC B5 37 01 70 ED B6 37
  135.              01 70 EE B7 37 01 70 EF B8 70 F0 7A 06 1A 2D 62 64 80 E0 AD 71 8E
  136.              AE AE 6F 80 E1 6D 04 06 60 01 1A 0F 16 03 1A 1B 93 01 9C 1F 77 93
  137.              01 91 00 5F 00 14 AF 7F A7 04 16 02 82 01 82 00 9C 20 67 16 02 AA
  138.              7F A8 00 2C 04 06 1A FA 29 AD 64 80 E2 64 80 E3 03 80 E4 1A 80 72
  139.              AD 64 80 E5 64 80 E6 64 80 E7 6D 03 05 B0 71 D8 B1 31 D9 14 2C 04
  140.              06 1A FA 02 AD 64 80 E8 64 80 E9 03 80 EA 1A 80 4B AD 64 80 EB 64
  141.              80 EC 64 80 ED 6D 03 05 B0 6E 80 EE 64 80 EF 32 02 3D 14 2C 03 06
  142.              1A F9 D7 AD 64 80 F0 64 80 F1 64 80 F2 6D 03 05 2F 06 AD AF 2F 80
  143.              F3 1A F9 C0 AD 64 80 F4 64 80 F5 03 80 F6 1A 0A AD 64 80 F7 64 80
  144.              F8 03 80 F9 14 6D 03 05 2F 06 1A F9 A1 AA 8E 09 3D AA AF 8E 36 38
  145.              AD 64 80 FA 64 80 FB 64 80 FC 6D 03 05 AC 2C 03 06 AE 64 80 FD 71
  146.              2F 9B 5B 1C 18 AE 64 80 FE 64 80 FF 64 81 00 6D 03 05 9D 5B 14 2C
  147.              03 06 16 01 1A F9 65 16 01 1A F9 60 AD 64 81 01 64 81 02 64 81 03
  148.              6D 03 05 B0 71 2C 2C 03 06 AE AE 2F 81 04 1A F9 45
  149.             )
  150.       *STANDARD-OUTPUT* *TERMINAL-IO* "~%Description of~%"
  151.       "~%Beschreibung von~%" "~%Description de~%" LANGUAGE FORMAT
  152.       #Y(LISP::DESCRIBE-1
  153.          #17Y(00 00 00 00 02 00 00 00 01 18 AC AE 30 89 9C 19 04)
  154.         )
  155.       *PRIN-LINELENGTH* WRITE-TO-SHORT-STRING "~%This is " "~%Das ist "
  156.       "~%Ceci est "
  157.       #S(HASH-TABLE EQ (ADDRESS . 1576.) (SYSTEM-INTERNAL . 1564.)
  158.          (FRAME-POINTER . 1541.) (READ-LABEL . 1511.) (LOAD-TIME-EVAL . 1498.)
  159.          (BYTE . 1472.) (RANDOM-STATE . 1459.) (LOGICAL-PATHNAME . 1347.)
  160.          (PATHNAME . 1347.) (READTABLE . 1324.) (HASH-TABLE . 1305.)
  161.          (PACKAGE . 1287.) (STRING-STREAM . 1074.) (ECHO-STREAM . 1074.)
  162.          (TWO-WAY-STREAM . 1074.) (CONCATENATED-STREAM . 1074.)
  163.          (BROADCAST-STREAM . 1074.) (SYNONYM-STREAM . 1074.)
  164.          (FILE-STREAM . 1074.) (STREAM . 1074.) (FOREIGN-FUNCTION . 1061.)
  165.          (FOREIGN-VARIABLE . 1036.) (FOREIGN-ADDRESS . 1023.)
  166.          (COMPILED-FUNCTION . 1006.) (FUNCTION . 902.) (CHARACTER . 719.)
  167.          (COMPLEX . 637.) (LONG-FLOAT . 585.) (DOUBLE-FLOAT . 585.)
  168.          (SINGLE-FLOAT . 585.) (SHORT-FLOAT . 585.) (RATIO . 575.)
  169.          (BIGNUM . 560.) (FIXNUM . 560.) (NULL . 163.) (SYMBOL . 163.)
  170.          (CONS . 8.)
  171.         )
  172.       #Y(LISP::DESCRIBE-LIST-LENGTH
  173.          #51Y(00 00 00 00 01 00 00 00 00 02 D8 AC AD 9C 1F 18 9C 5B 1F 17 94 01
  174.               9C 21 17 9C 5B 78 82 01 69 01 D9 AD 81 02 35 02 1A 65 9D 19 05 AC
  175.               31 99 19 05 00 19 05
  176.              )
  177.          0. 2.
  178.         )
  179.       "a list of length ~S." "eine Liste der LΣnge ~S."
  180.       "une liste de longueur ~S." 1. "a dotted list of length ~S."
  181.       "eine punktierte Liste der LΣnge ~S." "une liste pointΘe de longueur ~S."
  182.       "a cons." "ein Cons." "un ½cons╗." "a cyclic list."
  183.       "eine zyklische Liste." "une liste circulaire." "the empty list, "
  184.       "die leere Liste, " "la liste vide, " "the symbol ~S" "das Symbol ~S"
  185.       "le symbole ~S" ", a keyword" ", ein Keyword" ", un mot-clΘ"
  186.       ", a constant" ", eine Konstante" ", une constante"
  187.       ", a variable declared SPECIAL" ", eine SPECIAL-deklarierte Variable"
  188.       ", une variable declarΘe SPECIAL" ", a variable" ", eine Variable"
  189.       ", une variable" SYMBOL-MACRO-EXPAND " (macro)" " (Macro)" " (macro)"
  190.       MACROEXPAND-1 QUOTE SYMBOL-VALUE ", names " ", benennt " ", le nom "
  191.       "a special form" "eine Special-Form" "d'une forme spΘciale"
  192.       " with macro definition" " mit Macro-Definition" ", aussi d'un macro"
  193.       "a function" "eine Funktion" "d'une fonction" FUNCTION SYMBOL-FUNCTION
  194.       "a macro" "einen Macro" "d'un macro" TYPE-SYMBOL DEFSTRUCT-DESCRIPTION
  195.       ", names a type" ", benennt einen Typ" ", le nom d'un type" CLOS::CLASS
  196.       ", names a class" ", benennt eine Klasse" ", le nom d'une classe"
  197.       ", has the propert~@P ~{~S~^, ~}" ", hat die Propert~@P ~{~S~^, ~}"
  198.       ", a ~[~;la propriΘtΘ~:;les propriΘtΘs~] ~{~S~^, ~}" SYMBOL-PLIST "." "."
  199.       "." "~%The symbol " "~%Das Symbol " "~%Le symbole " "lies in ~S"
  200.       "liegt in ~S" "est situΘ dans ~S" "is uninterned" "ist uninterniert"
  201.       "n'appartient α aucun paquetage" *PRINT-ESCAPE* *PRINT-READABLY*
  202.       *PACKAGE* *PRINT-GENSYM*
  203.       " and is accessible in the package~:[~;s~] ~{~A~^, ~}"
  204.       " und ist in ~:[der Package~;den Packages~] ~{~A~^, ~} accessible"
  205.       " et est visible dans le~:[ paquetage~;s paquetages~] ~{~A~^, ~}"
  206.       #.#'PACKAGE-NAME #.#'STRING< "." "." "."
  207.       "an integer, uses ~S bits, is represented as a ~(~A~)."
  208.       "eine ganze Zahl, belegt ~S Bits, ist als ~:(~A~) reprΣsentiert."
  209.       "un nombre entier, occupant ~S bits, est reprΘsentΘ comme ~(~A~)."
  210.       "a rational, not integral number." "eine rationale, nicht ganze Zahl."
  211.       "un nombre rationnel mais pas entier."
  212.       "a float with ~S bits of mantissa (~(~A~))."
  213.       "eine Flie▀kommazahl mit ~S Mantissenbits (~:(~A~))."
  214.       "un nombre α virgule flottante avec une prΘcision de ~S bits (un ~(~A~))."
  215.       "a complex number " "eine komplexe Zahl " "un nombre complexe "
  216.       "at the origin" "im Ursprung" "α l'origine"
  217.       "on the ~:[posi~;nega~]tive real axis"
  218.       "auf der ~:[posi~;nega~]tiven reellen Achse"
  219.       "sur la partie ~:[posi~;nega~]tive de l'axe rΘelle"
  220.       "on the ~:[posi~;nega~]tive imaginary axis"
  221.       "auf der ~:[posi~;nega~]tiven imaginΣren Achse"
  222.       "sur la partie ~:[posi~;nega~]tive de l'axe imaginaire"
  223.       "in ~:[~:[first~;fourth~]~;~:[second~;third~]~] the quadrant"
  224.       "im ~:[~:[ers~;vier~]~;~:[zwei~;drit~]~]ten Quadranten"
  225.       "dans le ~:[~:[premier~;quatriΦme~]~;~:[deuxiΦme~;troisiΦme~]~] quartier"
  226.       " of the Gaussian number plane." " der Gau▀schen Zahlenebene."
  227.       " du plan Gaussien." "a character" "ein Zeichen" "un caractΦre"
  228.       " with additional bits" " mit Zusatzbits"
  229.       " avec des bits supplΘmentaires" " from font ~S" " aus Zeichensatz ~S"
  230.       " de la police (½font╗) ~S" "." "." "."
  231.       "~%It is a ~:[non-~;~]printable character."
  232.       "~%Es ist ein ~:[nicht ~;~]druckbares Zeichen."
  233.       "~%C'est un caractΦre ~:[non ~;~]imprimable."
  234.       "~%Its use is non-portable." "~%Seine Verwendung ist nicht portabel."
  235.       "~%Il n'est pas portable de l'utiliser."
  236.       "a~:[n interpret~; compil~]ed function."
  237.       "eine ~:[interpret~;compil~]ierte Funktion."
  238.       "une fonction ~:[interprΘt~;compil~]Θe." SIGNATURE DESCRIBE-SIGNATURE
  239.       DISASSEMBLE "~%argument list: ~S" "~%Argumentliste: ~S"
  240.       "~%Liste des arguments: ~S" 2. "~%documentation: ~A"
  241.       "~%Dokumentation: ~A" "~%Documentation: ~A" "a built-in system function."
  242.       "eine eingebaute System-Funktion." "une fonction prΘdΘfinie du systΦme."
  243.       "a special form handler." "ein Special-Form-Handler."
  244.       "un interprΘteur de forme spΘciale." "a foreign address"
  245.       "eine Foreign-Adresse." "une addresse ΘtrangΦre."
  246.       "a foreign variable of foreign type ~S."
  247.       "eine Foreign-Variable vom Foreign-Typ ~S."
  248.       "une variable ΘtrangΦre de type Θtranger ~S." 3. DEPARSE-C-TYPE
  249.       "a foreign function." "eine Foreign-Funktion." "une fonction ΘtrangΦre."
  250.       "a~:[~:[ closed ~;n output-~]~;~:[n input-~;n input/output-~]~]stream."
  251.       "ein ~:[~:[geschlossener ~;Output-~]~;~:[Input-~;bidirektionaler ~]~]Stream."
  252.       "un ½stream╗ ~:[~:[fermΘ~;de sortie~]~;~:[d'entrΘe~;d'entrΘe/sortie~]~]."
  253.       "the package named ~A" "die Package mit Namen ~A"
  254.       "le paquetage de nom ~A" ". It has the nicknames ~{~A~^, ~}"
  255.       " und zusΣtzlichen Namen ~{~A~^, ~}"
  256.       ". Il porte aussi les noms ~{~A~^, ~}" "." "." "." "~%It " "~%Sie "
  257.       "~%Il "
  258.       "imports the external symbols of the package~:[~;s~] ~{~A~^, ~} and "
  259.       "importiert die externen Symbole der Package~:[~;s~] ~{~A~^, ~} und "
  260.       "importe les symboles externes d~:[u paquetage~;es paquetages~] ~{~A~^, ~} et "
  261.       "exports ~:[no symbols~;the symbols~:*~{~<~%~:; ~S~>~^~}~]"
  262.       "exportiert ~:[keine Symbole~;die Symbole~:*~{~<~%~:; ~S~>~^~}~]"
  263.       "~:[n'exporte pas de symboles~;exporte les symboles~:*~{~<~%~:; ~S~>~^~}~]"
  264.       #Y(LISP::DESCRIBE-2
  265.          #20Y(00 00 00 00 01 00 00 00 00 02 AB 07 00 01 5C 0C 00 01 19 02) NIL
  266.         )
  267.       #.#'SYMBOL-NAME " to the package~:[~;s~] ~{~A~^, ~}"
  268.       " an die Package~:[~;s~] ~{~A~^, ~}"
  269.       " vers le~:[ paquetage~;s paquetages~] ~{~A~^, ~}" "." "." "."
  270.       "a deleted package." "eine gel÷schte Package." "un paquetage ΘliminΘ."
  271.       "a hash table with ~S entr~:@P."
  272.       "eine Hash-Tabelle mit ~S Eintr~:*~[Σgen~;ag~:;Σgen~]."
  273.       "un tableau de hachage avec ~S entrΘe~:*~[s~;~:;s~]."
  274.       "~:[a~;the Common Lisp~] readtable."
  275.       "~:[eine ~;die Common-Lisp-~]Readtable."
  276.       "~:[un~;le~] tableau de lecture~:*~:[~; de Common Lisp~]."
  277.       "a ~:[~;portable ~]pathname~:[.~;~:*, with the following components:~{~A~}~]"
  278.       "ein ~:[~;portabler ~]Pathname~:[.~;~:*, aufgebaut aus:~{~A~}~]"
  279.       "un ½pathname╗~:[~; portable~]~:[.~;~:*, composΘ de:~{~A~}~]"
  280.       (:HOST :DEVICE :DIRECTORY :NAME :TYPE :VERSION)
  281.       #Y(LISP::DESCRIBE-3
  282.          #30Y(00 00 00 00 03 00 00 00 01 19 AE 30 90 AD AF 30 89 D8 AF 37 02 30
  283.               8E AC AF 30 89 9C 19 05
  284.              )
  285.          " = "
  286.         )
  287.       MAKE-PATHNAME "a random-state." "ein Random-State." "un ½random-state╗."
  288.       "a byte specifier, denoting the ~S bits starting at bit position ~S of an integer."
  289.       "ein Byte-Specifier, bezeichnet die ~S Bits ab Bitposition ~S eines Integers."
  290.       "un intervalle de bits, comportant ~S bits α partir de la position ~S d'un entier."
  291.       "a load-time evaluation promise."
  292.       "eine Absicht der Evaluierung zur Ladezeit."
  293.       "une promesse d'Θvaluation au moment du chargement."
  294.       "a label used for resolving #~D# references during READ."
  295.       "eine Markierung zur Aufl÷sung von #~D#-Verweisen bei READ."
  296.       "une marque destinΘe α rΘsoudre #~D# au cours de READ." ADDRESS-OF
  297.       #.(ASH MOST-POSITIVE-FIXNUM -1.)
  298.       "a pointer into the stack. It points to:"
  299.       "ein Pointer in den Stack. Er zeigt auf:"
  300.       "un pointeur dans la pile. Il pointe vers :" DESCRIBE-FRAME
  301.       "a special-purpose object." "ein Objekt mit besonderen Eigenschaften."
  302.       "un objet distinguΘ." "a machine address." "eine Maschinen-Adresse."
  303.       "une addresse au niveau de la machine." "a structure of type ~S."
  304.       "eine Structure vom Typ ~S." "une structure de type ~S." 0.
  305.       "~%As such, it is also a structure of type ~{~S~^, ~}."
  306.       "~%Als solche ist sie auch eine Structure vom Typ ~{~S~^, ~}."
  307.       "~%En tant que telle, c'est aussi une structure de type ~{~S~^, ~}."
  308.       "an instance of the CLOS class ~S." "eine Instanz der CLOS-Klasse ~S."
  309.       "un objet appartenant α la classe ~S de CLOS." CLOS:DESCRIBE-OBJECT
  310.       "a~:[~; simple~] ~A dimensional array"
  311.       "ein~:[~; einfacher~] ~A-dimensionaler Array"
  312.       "une matrice~:[~; simple~] α ~A dimension~:P" " (vector)" " (Vektor)"
  313.       " (vecteur)" " of ~(~A~)s" " von ~:(~A~)s" " de ~(~A~)s" ", adjustable"
  314.       ", adjustierbar" ", ajustable" ", of size ~{~S~^ x ~}"
  315.       ", der Gr÷▀e ~{~S~^ x ~}" ", de grandeur ~{~S~^ x ~}"
  316.       " and current length (fill-pointer) ~S"
  317.       " und der momentanen LΣnge (Fill-Pointer) ~S"
  318.       " et longueur courante (fill-pointer) ~S" "." "." "."
  319.       "~%For more information, evaluate ~{~S~^ or ~}."
  320.       "~%Mehr Information durch Auswerten von ~{~S~^ oder ~}."
  321.       "~%Pour obtenir davantage d'information, Θvaluez ~{~S~^ ou ~}."
  322.   )  )
  323. #Y(#:TOP-LEVEL-FORM-9
  324.    #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01)
  325.    FUNCTION-SIGNATURE REMOVE-OLD-DEFINITIONS
  326.    #Y(FUNCTION-SIGNATURE
  327.       #117Y(00 00 00 00 01 00 00 00 00 02 AB 8D 0D 2B AB 71 2B 23 06 80 4B AB
  328.             30 01 41 06 92 05 80 4C AE AE AE 9F 14 AF AF 3F 06 19 08 AB 2E 00
  329.             41 06 AF AF AF A0 1A 6E AE 30 A3 1A 1E AB 8D 0C 6C AB D9 71 2F AC
  330.             DA 71 2F AD DB 71 2F AE DC 71 2F AD 31 0B 58 14 AE 8E 0B 5E 00 14
  331.             B1 DD 71 2F 3F 06 19 03 AB 6E 07 E0 01 04 3F 06 19 02 E1 E2 E3 6D
  332.             03 0C E5 B3 32 02 1E
  333.            )
  334.       SIGNATURE 16. 12. 13. 19. 18. FOREIGN-FUNCTION FOREIGN-FUNCTION-SIGNATURE
  335.       0. "~S: ~S is not a function." "~S: ~S ist keine Funktion."
  336.       "~S : ~S n'est pas une fonction." LANGUAGE FUNCTION-SIGNATURE
  337.   )  )
  338. #Y(#:TOP-LEVEL-FORM-10
  339.    #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01)
  340.    DESCRIBE-SIGNATURE REMOVE-OLD-DEFINITIONS
  341.    #Y(DESCRIBE-SIGNATURE
  342.       #136Y(00 00 00 00 07 00 00 00 00 00 B1 D8 D9 DA 6D 03 03 2F 04 B1 DD 62
  343.             DE DE 1A 34 E0 83 01 DE 1A 0C 84 01 62 E1 AD 6D 03 04 83 02 84 00
  344.             AA B5 90 01 32 6E 16 01 92 08 26 E2 83 01 E3 83 01 92 07 3D 1A 1E
  345.             84 01 62 DF AD 6D 03 04 83 02 84 00 AA B6 90 01 32 6E 16 01 B3 8D
  346.             95 40 91 08 5A 92 07 1D E4 83 01 B0 62 1A 0A 86 01 00 14 70 8B 83
  347.             03 82 01 AB 8C 97 72 16 02 92 05 03 E5 83 01 AB 31 4C 16 01 F6 2C
  348.             03 04 19 08
  349.            )
  350.       "~%argument list: " "~%Argumentliste: " "~%Liste des arguments : "
  351.       LANGUAGE FORMAT
  352.       #Y(DESCRIBE-SIGNATURE-1
  353.          #49Y(00 00 00 00 02 00 00 00 01 18 D8 AE 30 8D AC 1A 13 16 01 1A 15 93
  354.               00 82 01 AF 30 89 AA 8B 97 71 D9 AF 30 8D AA 8C 97 6D 16 01 DA AE
  355.               30 8D 9C 19 04
  356.              )
  357.          #\( #\Space #\)
  358.         )
  359.       0.
  360.       #Y(DESCRIBE-SIGNATURE-2
  361.          #26Y(00 00 00 00 02 00 00 00 01 18 D8 AE 37 02 30 8E AD 01 06 B3 2C 08
  362.               01 9C 19 04
  363.              )
  364.          "ARG" DO-FORMAT-DECIMAL
  365.         )
  366.       &OPTIONAL
  367.       #Y(DESCRIBE-SIGNATURE-3
  368.          #26Y(00 00 00 00 02 00 00 00 01 18 D8 AE 37 02 30 8E AD 01 06 B3 2C 08
  369.               01 9C 19 04
  370.              )
  371.          "ARG" DO-FORMAT-DECIMAL
  372.         )
  373.       &REST "OTHER-ARGS" &KEY &ALLOW-OTHER-KEYS
  374.   )  )
  375. #Y(#:TOP-LEVEL-FORM-11
  376.    #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01)
  377.    WRITE-TO-SHORT-STRING REMOVE-OLD-DEFINITIONS
  378.    #Y(WRITE-TO-SHORT-STRING
  379.       #148Y(00 00 00 00 02 00 00 00 00 03 AC 8D 0B 08 AC 8D 09 04 D8 D9 1A 29
  380.             AC 37 0C 30 8A 19 03 9B F8 16 01 1A 1C AB AB 72 02 35 DB 71 B6 AF
  381.             37 0C A8 09 0A FF 70 8A 71 4A AF 8F 01 31 62 9B F7 16 01 AA AC 72
  382.             01 36 DA 90 01 2D 5A 9C 16 01 F6 AA DB 95 02 72 02 37 1A 24 9B F8
  383.             16 01 1A 1E AB AB 72 02 35 DB 71 B6 B0 37 0C 04 10 09 0A A8 FF 70
  384.             8A 71 4A B0 8F 01 31 60 9B F7 16 01 AA AC 72 01 36 DA 90 01 2D 58
  385.             9C 16 01 F6 AE 37 0C A9 09 0A A8 FF 30 8A 19 05
  386.            )
  387.       0. 16. 1. 2.
  388.   )  )
  389. #Y(#:TOP-LEVEL-FORM-12
  390.    #48Y(00 00 00 00 00 00 00 00 00 01 00 2A 07 00 0B 00 00 0B 00 01 0B 00 02 0B
  391.         00 03 0B 00 04 0B 00 05 0B 00 06 D8 2E 01 D8 AB 6C 02 01 31 84 C3 19 02
  392.        )
  393.    DRIBBLE REMOVE-OLD-DEFINITIONS
  394.    #Y(DRIBBLE
  395.       #301Y(00 00 00 00 00 00 01 00 00 07 3A 01 23 7C 01 91 01 21 07 00 01 1B
  396.             80 D1 E6 E7 E8 6D 03 04 2E 05 19 02 D9 DA DB 6D 03 04 68 00 01 2F
  397.             05 1A 80 9D 92 01 5F 07 00 01 1B 6A AB DE 37 03 30 FC 0C 00 01 0E
  398.             07 0C 00 02 0E 08 0C 00 03 00 0C 00 04 0C 00 05 0C 00 06 0C 00 07
  399.             6A 07 68 00 01 31 74 0F 07 6A 08 68 00 01 32 02 2B 0F 08 6A 09 CD
  400.             33 1C 0E 0E 09 0C 00 04 14 68 00 01 32 02 2B 0F 09 6A 0B CD 33 1C
  401.             0E 0E 0B 0C 00 05 14 68 00 01 32 02 2B 0F 0B 6A 0C CD 33 1C 17 0E
  402.             0C 0C 00 06 14 68 00 01 71 74 6A 0C 68 00 01 72 02 2B 31 72 0F 0C
  403.             6A 0D CD 33 1C 17 0E 0D 0C 00 07 14 68 00 01 71 74 6A 0D 68 00 01
  404.             72 02 2B 31 72 0F 0D 07 00 01 19 02 0F 09 07 00 05 1C 24 0F 0B 07
  405.             00 06 1C 22 0F 0C 07 00 07 1C 22 1A 1E 07 00 02 0F 07 07 00 03 0F
  406.             08 07 00 04 1B 5A 07 00 05 1B 5C 07 00 06 1B 5E 07 00 07 1C 02 0F
  407.             0C 00 0C 00 02 0C 00 03 0C 00 04 0C 00 05 0C 00 06 0C 00 07 68 00
  408.             01 68 00 01 37 01 31 7F 00 0C 00 01 15 19 02
  409.            )
  410.       NIL "Already dribbling to ~S" "Es wird bereits auf ~S protokolliert."
  411.       "Le protocole est dΘjα Θcrit sur ~S." LANGUAGE WARN :OUTPUT
  412.       *STANDARD-INPUT* *STANDARD-OUTPUT* *ERROR-OUTPUT*
  413.       #Y(LISP::DRIBBLE-GOES-TO-TERMINAL
  414.          #24Y(00 00 00 00 01 00 00 00 00 02 AB 31 6F 1E 07 AB 6E 00 C4 59 19 02
  415.               19 02
  416.              )
  417.          SYNONYM-STREAM-SYMBOL *TERMINAL-IO*
  418.         )
  419.       *TRACE-OUTPUT* *QUERY-IO* *DEBUG-IO* "Currently not dribbling."
  420.       "Es wird zur Zeit nicht protokolliert."
  421.       "Aucun protocole n'est couramment Θcrit."
  422.   )  )
  423. #Y(#:TOP-LEVEL-FORM-13
  424.    #20Y(00 00 00 00 00 00 00 00 00 01 D8 30 5E D9 62 30 56 C4 19 01)
  425.    (SPECIAL *EDITOR*) *EDITOR*
  426.   )
  427. #Y(#:TOP-LEVEL-FORM-14
  428.    #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01)
  429.    EDITOR-NAME REMOVE-OLD-DEFINITIONS
  430.    #Y(EDITOR-NAME #14Y(00 00 00 00 00 00 00 00 00 01 0E 00 19 01) *EDITOR*)
  431.   )
  432. #Y(#:TOP-LEVEL-FORM-15
  433.    #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01)
  434.    EDITOR-TEMPFILE REMOVE-OLD-DEFINITIONS
  435.    #Y(EDITOR-TEMPFILE
  436.       #20Y(00 00 00 00 00 00 00 00 00 01 D8 2D 01 14 37 02 30 F4 19 01)
  437.       "lisptemp.lsp" USER-HOMEDIR-PATHNAME
  438.   )  )
  439. #Y(#:TOP-LEVEL-FORM-16
  440.    #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) EDIT-FILE
  441.    REMOVE-OLD-DEFINITIONS
  442.    #Y(EDIT-FILE
  443.       #53Y(00 00 00 00 01 00 00 00 00 02 2D 00 1C 1D AB 8B F9 0A AB DE 37 03 70
  444.            FC 37 01 31 7F 62 DF 2D 00 14 AE 70 F8 6D 04 08 2E 09 19 02 D9 DA DB
  445.            DC 6D 03 05 32 00 1F
  446.           )
  447.       EDITOR-NAME ERROR "No external editor installed."
  448.       "Kein externer Editor installiert."
  449.       "Un Θditeur externe n'est pas installΘ." LANGUAGE :OUTPUT
  450.       #Y(LISP::EDIT-FILE-1
  451.          #25Y(00 00 00 00 03 00 00 00 01 19 AD AF 30 89 D8 AF 30 8D AC AF 30 89
  452.               9C 19 05
  453.              )
  454.          #\Space
  455.         )
  456.       FORMAT SHELL
  457.   )  )
  458. #Y(#:TOP-LEVEL-FORM-17
  459.    #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) ED
  460.    REMOVE-OLD-DEFINITIONS
  461.    #Y(ED
  462.       #266Y(03 00 01 00 00 00 01 00 00 07 3C 01 01 04 92 05 0F AF 8D 1D 05 AF
  463.             8E 0A 80 B4 A0 14 2E 01 19 06 C3 1A 78 AF 8E 20 80 D7 AF DB 80 2F
  464.             03 14 88 02 80 CD 1A 80 A0 2D 06 14 AA DF 37 03 70 FC 52 1D 93 04
  465.             AD 30 88 AC 30 90 AC 30 90 92 02 05 14 37 01 31 7F 3D 53 05 00 00
  466.             00 1C 0C 1A 06 05 00 00 00 1C 04 14 63 31 7F 54 16 01 AA 71 01 AB
  467.             2E 01 AB 71 01 AB 90 01 30 80 50 AB E0 37 03 70 FC 52 34 0E 09 10
  468.             09 1A 0D AA 01 02 94 0C 70 60 37 01 30 87 16 01 AF 62 E2 37 01 70
  469.             79 AA E2 8E 04 67 16 01 11 92 02 05 14 37 01 31 7F 3D 53 05 00 00
  470.             00 1C 0C 1A 06 05 00 00 00 1C 04 14 63 31 7F 54 16 01 AD 8E 0C 03
  471.             AF 2E 0B 16 01 9F 19 07 AF 88 02 FF 50 A0 F9 AD 2E 04 F8 14 8C 54
  472.             22 AC 7F 5B 01 1B 05 9D 5D F7 1C 17 AB 8E 20 13 AF 87 02 05 AB B0
  473.             8E 04 0A AC DD 37 01 80 86 00 1B FF 36 E4 E5 E6 E7 6D 03 10 B1 32
  474.             01 1F
  475.            )
  476.       "" EDIT-FILE FUNCTION-NAME-P 0. GET-FUNNAME-SYMBOL DEFINITION
  477.       EDITOR-TEMPFILE :OUTPUT :INPUT *PACKAGE* "EOF" COMPILE ERROR
  478.       "~S cannot be edited." "~S ist nicht editierbar."
  479.       "~S ne peut pas Ωtre ΘditΘ." LANGUAGE
  480.   )  )
  481. #Y(#:TOP-LEVEL-FORM-18
  482.    #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) UNCOMPILE
  483.    REMOVE-OLD-DEFINITIONS
  484.    #Y(UNCOMPILE
  485.       #94Y(00 00 00 00 01 00 00 00 00 02 01 04 AF 88 00 35 A0 F9 AD 2E 02 F8 14
  486.            8C 54 38 AC 7F 5B 01 1B 05 9D 5D F7 1C 2D AB 8E 20 29 AF 87 00 05 AB
  487.            B0 8E 04 20 AC DB 37 01 80 86 00 1C 17 93 00 01 02 94 03 30 60 19 06
  488.            AF 8E 20 09 AF D9 80 2F 03 14 87 00 40 DC DD DE DF 6D 03 08 E1 B0 32
  489.            02 1F
  490.           )
  491.       FUNCTION-NAME-P 0. GET-FUNNAME-SYMBOL DEFINITION ERROR
  492.       "~S: source code for ~S not available."
  493.       "~S: Quellcode zu ~S nicht verfⁿgbar."
  494.       "~S : Les sources de ~S ne sont pas prΘsentes." LANGUAGE UNCOMPILE
  495.   )  )
  496. #Y(#:TOP-LEVEL-FORM-19
  497.    #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01)
  498.    %SAVEINITMEM REMOVE-OLD-DEFINITIONS
  499.    #Y(%SAVEINITMEM
  500.       #48Y(00 00 00 00 00 00 00 00 00 01 D8 30 E8 D9 8C 54 03 DA 30 E8 00 0F 03
  501.            0F 04 0F 05 0F 06 0F 07 0F 08 0F 09 0F 0A 0F 0B 0F 0C E5 31 03 30 65
  502.            19 01
  503.           )
  504.       #Y(%SAVEINITMEM-1 #16Y(00 00 00 00 01 00 00 00 00 02 AB D8 31 8B 19 02)
  505.          DEFINITION
  506.         )
  507.       CLOS::INSTALL-DISPATCH
  508.       #Y(%SAVEINITMEM-2
  509.          #38Y(00 00 00 00 01 00 00 00 00 02 AB 8C 54 06 9C 5D 14 8D 21 08 00 19
  510.               02 AA 2E 01 19 03 9C 5D 14 AA 87 00 74 00 19 03
  511.              )
  512.          CLOS::GF-NEVER-CALLED-P CLOS::INSTALL-DISPATCH
  513.         )
  514.       - + ++ +++ * ** *** / // /// "lispimag.mem"
  515.   )  )
  516. #Y(#:TOP-LEVEL-FORM-20
  517.    #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01)
  518.    SAVEINITMEM REMOVE-OLD-DEFINITIONS
  519.    #Y(SAVEINITMEM
  520.       #93Y(00 00 00 00 00 00 01 00 80 20 02 00 00 00 00 2A 01 3A 04 02 C5 FA 3A
  521.            03 01 00 10 03 3A 05 01 00 0B 03 00 00 0F 04 0F 05 0F 06 0F 07 0F 08
  522.            0F 09 0F 0A 0F 0B 0F 0C 0F 0D 06 03 00 1B 08 B1 31 03 30 65 11 19 05
  523.            9E 2A 01 0E 0E 0B 00 00 AA 2B 0F 01 10 0E B5 31 03 11 16 01 30 65 1A
  524.            65
  525.           )
  526.       :QUIET :INIT-FUNCTION "lispinit.mem" *QUIET* - + ++ +++ * ** *** / // ///
  527.       *DRIVER*
  528.       #Y(LISP::SAVEINITMEM-1
  529.          #26Y(00 00 00 00 00 00 00 00 00 01 07 00 01 0F 01 68 01 01 35 00 6A 01
  530.               35 00 19 01
  531.              )
  532.          NIL *DRIVER*
  533.   )  )  )
  534. #Y(#:TOP-LEVEL-FORM-21
  535.    #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) COMPLETION
  536.    REMOVE-OLD-DEFINITIONS
  537.    #Y(COMPLETION
  538.       #439Y(00 00 00 00 03 00 00 00 00 04 AC 62 AE D8 90 01 32 0F AF 96 05 70
  539.             35 D9 37 03 8C B8 04 85 01 7D 00 00 2A 03 00 0B 00 00 0B 00 01 0B
  540.             00 02 AC D8 90 01 32 09 B0 96 03 AE 71 48 DA 31 05 14 AD DB 90 01
  541.             32 0C B1 DC AF 72 02 35 AF 71 48 DD 31 05 14 91 01 01 9B 14 91 00
  542.             80 7A AD 2B 07 01 14 6A 08 E1 62 91 08 12 E2 B8 37 06 04 14 FA 04
  543.             13 F9 71 62 91 00 80 6C 16 01 B7 B7 B7 31 48 0B 07 00 14 31 4A 0B
  544.             07 01 AB AE AE 35 02 06 07 02 1C 80 7E 92 06 1D 06 07 02 5B 1B 17
  545.             06 07 02 77 AD 70 D9 AA 8C 54 07 9B 5D 14 8D 20 80 6E 16 01 1B 80
  546.             83 91 08 0A E7 67 08 02 32 00 17 0B 07 02 67 07 02 E8 37 03 31 6A
  547.             0B 07 02 77 71 4A 06 08 02 78 62 1A 80 81 AD 2B 06 01 1A FF 83 00
  548.             19 0F 84 00 1A 1F B8 B8 AC 71 48 37 02 70 4A 7F D0 03 1C 6B 84 00
  549.             14 B7 90 01 2F 07 B8 AB 70 35 23 0A 5F CE F8 B8 B8 AC 80 48 01 9B
  550.             09 0D 16 01 1A FF 69 00 19 0E 15 16 04 1C 1D 1A FF 97 9B 5D 14 2E
  551.             0C 41 04 AD D0 59 1C 09 AC D0 59 1C 04 9C 58 1B 63 16 05 1C FF 7D
  552.             67 07 02 06 08 02 77 E6 72 02 13 30 AD 92 08 FF 6F 1A FF 76 86 01
  553.             00 AC AB 71 4A 81 01 34 02 82 01 AB 8C 97 6F 16 02 E5 AA AC 8D 04
  554.             27 06 09 02 77 AB 70 35 06 0A 02 78 62 1A 08 16 03 84 00 1A 67 82
  555.             01 AB 8B 97 74 86 01 00 14 AE 70 35 AD 8D 04 6F 16 03 06 09 02 77
  556.             E5 AC 71 48 06 0A 02 5C 0B 09 02 16 02 92 00 16 67 07 02 AA 1A 0B
  557.             AA AD 93 02 72 02 13 30 AD 82 00 9B 20 72 16 02 06 07 02 19 0E
  558.            )
  559.       1. (#\" #\|) "(" 2. -2. "#'"
  560.       #Y(COMPLETION-1
  561.          #56Y(00 00 00 00 01 00 00 00 00 02 AB 8B 54 0D 00 19 02 AA 07 00 03 5C
  562.               0C 00 03 19 03 AB 71 8E AA 71 4A 68 00 02 90 01 32 0D AA 68 00 01
  563.               37 04 07 00 02 F8 8B 3F 5C 00 19 03
  564.              )
  565.          NIL
  566.         )
  567.       #Y(COMPLETION-2
  568.          #49Y(00 00 00 00 01 00 00 00 00 02 AB 71 8E AA 71 4A 68 00 02 90 01 32
  569.               0D AA 68 00 01 37 04 07 00 02 F8 8B 3F 03 00 19 03 AA 07 00 03 5C
  570.               0C 00 03 19 03
  571.              )
  572.          NIL
  573.         )
  574.       *PACKAGE* #.#'MAP-SYMBOLS #\: #.#'MAP-EXTERNAL-SYMBOLS FUNCTION-SIGNATURE
  575.       0. ")" #.#'STRING-DOWNCASE #.#'STRING<
  576.   )  )
  577. #Y(#:TOP-LEVEL-FORM-22
  578.    #27Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 DB 2E 01 DB DC 31 84
  579.         C6 19 01
  580.        )
  581.    RUN-SHELL-COMMAND REMOVE-OLD-DEFINITIONS
  582.    #Y(RUN-SHELL-COMMAND
  583.       #197Y(00 00 00 00 01 00 00 00 80 1C 04 00 00 00 3A 04 02 C7 FA 3A 03 02
  584.             C7 F9 3A 02 02 C8 F8 3C 01 AE AA 23 04 14 AA 23 06 10 92 05 26 AF
  585.             CB 33 FB B0 E1 B1 CD 73 81 03 13 06 16 01 AD AA 23 04 80 6C AA 23
  586.             06 80 67 91 04 0D CE FA C8 F9 B0 9F 25 14 26 CA FB 1A 5A AE CB 33
  587.             FA AD 24 0C 6F AE 8C F9 6B AE 7F EA 04 E5 E6 B0 E7 E8 E9 6D 03 12
  588.             EB B3 32 04 1F 03 15 1A 2D EF F0 B0 F1 F2 F3 F4 F5 6D 03 12 64 1E
  589.             64 1F 64 20 6D 03 12 B5 32 06 1F AF 2E 22 19 06 AD 23 06 77 AF 2E
  590.             23 19 06 AF 2E 24 19 06 03 16 14 B0 CD 73 81 03 13 06 16 01 92 01
  591.             07 64 21 B0 81 02 13 05 AE 23 06 58 AD 23 06 5D AF 2E 25 19 06
  592.            )
  593.       :INPUT :OUTPUT :IF-OUTPUT-EXISTS :MAY-EXEC :TERMINAL :OVERWRITE :STREAM
  594.       "/dev/null"
  595.       #1=#Y(STRING
  596.             #25Y(00 00 00 00 01 00 00 00 00 02 AB 8D 1D 05 AB 30 4F 19 02 AB 63
  597.                  30 F7 19 02
  598.            )    )
  599.       " < "
  600.       #2=#Y(SHELL-QUOTE
  601.             #57Y(00 00 00 00 01 00 00 00 00 02 00 2A 02 00 0B 00 00 D8 63 37 06
  602.                  C4 FB C5 F8 30 1C 0B 00 01 62 AB 6C 03 01 AE 32 00 26 06 00 00
  603.                  1C 08 14 67 01 01 37 01 30 1B 06 00 01 19 03
  604.                 )
  605.             10. STRING-CHAR 0.
  606.             #Y(SHELL-QUOTE-1
  607.                #61Y(00 00 00 00 01 00 00 00 00 02 AB 23 01 2C C4 14 68 00 01 AB
  608.                     8D 04 19 07 00 01 1C 08 14 68 00 02 37 01 30 1B 9B 0C 00 01
  609.                     14 68 00 02 37 01 30 1B AC 68 00 02 37 01 30 1B 19 03 C5 1A
  610.                     52
  611.                    )
  612.                NIL #\' #\"
  613.            )  )
  614.       "/dev/null" :ERROR FILE-ERROR :PATHNAME "~S: File ~S already exists"
  615.       "~S: Eine Datei ~S existiert bereits." "~S : Le fichier ~S existe dΘjα."
  616.       LANGUAGE RUN-SHELL-COMMAND
  617.       #S(HASH-TABLE EQ (:APPEND . 82.) (:ERROR . 35.) (:OVERWRITE . 35.)) " > "
  618.       " >> " TYPE-ERROR :DATUM :EXPECTED-TYPE
  619.       (MEMBER :OVERWRITE :ERROR :APPEND) "~A~%The value is: ~S"
  620.       "~A~%Der Wert ist: ~S" "~A~%La valeur est : ~S"
  621.       "The value of IF-OUTPUT-EXISTS must be one of :OVERWRITE, :ERROR, :APPEND"
  622.       "Der Wert von IF-OUTPUT-EXISTS mu▀ einer der folgenden sein: :OVERWRITE, :ERROR, :APPEND"
  623.       "La valeur de IF-OUTPUT-EXISTS doit Ωtre l'une des suivantes : :OVERWRITE, :ERROR, :APPEND"
  624.       "exec " MAKE-PIPE-IO-STREAM MAKE-PIPE-OUTPUT-STREAM
  625.       MAKE-PIPE-INPUT-STREAM SHELL
  626.      )
  627.    RUN-PROGRAM
  628.    #Y(RUN-PROGRAM
  629.       #84Y(00 00 00 00 01 00 00 00 80 1C 04 00 00 00 3C 04 3A 03 02 C7 F9 3A 02
  630.            02 C7 F8 3A 01 02 C8 F7 DE B0 CA 73 CB 73 62 B1 1A 12 93 00 E1 AB CA
  631.            73 CB 73 7A 02 AD 7F A7 02 16 01 82 00 9B 20 6B 16 01 AA 30 A8 16 01
  632.            76 01 E2 63 D9 B1 DA B2 DB B3 2C 09 0B 19 06
  633.           )
  634.       :ARGUMENTS :INPUT :OUTPUT :IF-OUTPUT-EXISTS :TERMINAL :OVERWRITE
  635.       #.#'STRING-CONCAT #1# #2# " " :MAY-EXEC RUN-SHELL-COMMAND
  636.   )  )
  637.