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