home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga MA Magazine 1998 #6
/
amigamamagazinepolishissue1998.iso
/
coders
/
jËzyki_programowania
/
clisp
/
src
/
archive
/
clisp.faslsp.lha
/
user2.fas
< prev
next >
Wrap
Text File
|
1996-07-05
|
28KB
|
488 lines
(SYSTEM::VERSION '(SYSTEM::CLISP2 13. LISP:T 130695.))
#Y(#:TOP-LEVEL-FORM-1 #13Y(00 00 00 00 00 01 D8 37 02 30 E3 19 01) "LISP")
#Y(#:TOP-LEVEL-FORM-2 #13Y(00 00 00 00 00 01 D8 37 01 30 DA 19 01)
(*EDITOR* EDITOR-NAME EDITOR-TEMPFILE EDIT-FILE UNCOMPILE SAVEINITMEM)
)
#Y(#:TOP-LEVEL-FORM-3 #13Y(00 00 00 00 00 01 D8 37 02 30 E3 19 01) "SYSTEM")
#Y(#:TOP-LEVEL-FORM-4 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
APROPOS-LIST REMOVE-OLD-DEFINITIONS
#Y(APROPOS-LIST
#56Y(00 01 00 01 00 08 00 2A 01 7E 03 00 00 3C 02 9B 2A 01 00 0B 00 00 AA
6C 00 01 91 04 15 AA 30 E7 67 01 00 63 37 05 C4 F7 71 56 DA DB 37 02
31 69 19 06 AA AF 30 E5 1A 68
)
#Y(LISP::APROPOS-LIST-1
#28Y(00 01 00 00 00 02 68 01 01 AC 37 04 8B 45 03 00 19 02 AB 07 00 01
5C 0C 00 01 19 02
)
NIL
)
#.#'EQ #.#'STRING< #.#'SYMBOL-NAME
) )
#Y(#:TOP-LEVEL-FORM-5 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
FBOUND-STRING REMOVE-OLD-DEFINITIONS
#Y(FBOUND-STRING
#35Y(00 01 00 00 00 02 AB 8B 54 0F 9C 5D 14 8D 1F 0E DF E0 CC 14 2C 03 03
19 02 D8 D9 C5 1A 75 DC DD C9 1A 70
)
"special form" "Spezialform" "forme spéciale" LANGUAGE "function"
"Funktion" "fonction" "macro" "Macro" "macro"
) )
#Y(#:TOP-LEVEL-FORM-6 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
APROPOS REMOVE-OLD-DEFINITIONS
#Y(APROPOS
#79Y(00 01 00 01 00 08 3C 01 AC AC 6F 00 62 AB 8B 96 39 86 01 00 14 37 01
30 86 AA 8C 53 0C D9 37 03 30 8D AA 6E 02 37 03 30 8D AA 8C 52 14 DB
37 03 30 8D AA 8B 61 0F E0 E1 CD 14 6D 03 07 37 03 30 8D 82 01 1A 48
DC DD C9 1A 6F 16 02 3D 19 03
)
APROPOS-LIST " " FBOUND-STRING " " "constant" "Konstante" "constante"
LANGUAGE "variable" "Variable" "variable"
) )
#Y(#:TOP-LEVEL-FORM-7 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
DESCRIBE REMOVE-OLD-DEFINITIONS
#Y(DESCRIBE
#1883Y(00 01 00 01 00 08 3C 01 62 92 02 80 DA AC 02 22 03 0E 01 F8 AC DA
DB DC 6D 03 05 2F 06 AC DF AF 6A 08 6F 09 2C 03 06 AC E2 E3 E4 6D
03 05 2F 06 AD 71 2A 9B 1F 80 B6 AE 70 05 AF 70 04 AF 64 80 FF 64
81 00 64 81 01 6D 03 05 B2 71 23 AE 2C 04 06 AB 24 12 0F AF 64 81
02 64 81 03 64 81 04 6D 03 05 2F 06 AA 02 21 11 AF 64 81 05 64 81
06 64 81 07 6D 03 05 AC 2C 03 06 B0 8C 09 0F AF 64 81 08 64 81 09
64 81 0A 6D 03 05 2F 06 AB 8E 93 2A AF 64 81 0B 64 81 0C 64 81 0D
6D 03 05 B2 70 07 2C 03 06 B0 8C 15 13 AF 64 81 0E 64 81 0F 64 81
10 6D 03 05 B2 70 16 2C 03 06 AF 64 81 11 64 81 12 03 81 13 14 6D
03 05 2F 06 16 02 16 01 92 00 13 AC 64 81 14 64 81 15 64 81 16 6D
03 05 AC 71 4A 2C 03 06 3D 19 04 0E 00 F8 1A FF 27 9B 25 0D 86 0D
AE E7 E8 D4 1A 16 AE D1 73 92 00 1F 14 B0 8C 9F 6F AA EA 90 01 30
0D AE EB EC 03 15 14 6D 03 05 9D 1A 86 1C AE EE EF 03 18 1A 05 AE
F1 F2 03 1B 14 6D 03 05 2F 06 16 01 1A FF 9F AD 64 25 64 26 03 27
1A 80 9D AD 64 28 64 29 03 2A 1A 80 93 AD 64 38 64 39 64 3A 6D 03
05 2F 06 AE 8C 5A 80 DA AD 64 3B 64 3C 03 3D 1A 80 CA AD 64 3E 64
3F 64 40 6D 03 05 2F 06 64 41 AF 7A 02 83 01 64 42 64 33 B0 7A 02
7A 02 83 01 1A 80 AF AE 64 50 64 51 64 52 6D 03 05 AC 2C 03 06 1A
81 03 10 58 1A 81 0C 91 04 0A AD F4 F5 64 1E 6D 03 05 2F 06 AD 64
1F 64 20 64 21 6D 03 05 B0 2C 03 06 AE 8E 8D 0C AD 64 22 64 23 64
24 6D 03 05 2F 06 AE 8C 52 80 40 AE 8B 61 FF 65 AE 8D 8F FF 6A AD
64 2B 64 2C 03 2D 14 6D 03 05 2F 06 AE 88 2E 17 AD 64 2F 64 30 64
31 6D 03 05 2F 06 64 32 64 33 B0 7A 02 7A 02 83 01 AE 83 01 64 34
64 33 B0 7A 02 7A 02 83 01 AE 8C 53 25 AD 64 35 64 36 64 37 6D 03
05 2F 06 AE 8B 54 FF 29 9F 5D 14 8D 1F FF 3D AD 64 43 64 44 03 45
14 6D 03 05 2F 06 AE 8E 8B 36 62 AF 71 8B 92 00 0B 93 00 83 01 9B
5B 5B F6 91 00 75 AB 31 4A 16 01 F6 AE 64 46 64 47 64 48 6D 03 05
AC 71 48 AD 2C 04 06 16 01 64 49 64 33 B0 7A 02 7A 02 83 01 AD 64
4A 64 4B 64 4C 6D 03 05 2F 06 AD 64 4D 64 4E 64 4F 6D 03 05 2F 06
AE 71 8A 91 00 FE F8 AE 64 53 64 54 64 55 6D 03 05 2F 06 62 02 10
56 00 10 57 91 07 FE F2 00 10 59 B9 30 8A 11 14 70 D6 62 1A 15 86
01 00 10 58 BC 30 8A 11 14 AD 37 04 8C 38 03 AA 83 09 82 01 AB 8C
96 67 16 03 12 02 92 00 1B AF 64 5A 64 5B 64 5C 6D 03 05 94 02 64
5D AE 72 00 17 64 5E 37 03 71 68 2C 04 06 16 02 AD 64 5F 64 60 03
61 1A 84 06 AD 64 62 64 63 64 64 6D 03 05 B0 31 D4 1A 19 AD 64 65
64 66 03 67 1A 83 ED AD 64 68 64 69 64 6A 6D 03 05 B0 37 01 31 C2
14 9E 1A 83 7A AF 64 6E 64 6F 64 70 6D 03 05 2F 06 1A 80 51 AB 8D
92 6D AF 64 71 64 72 64 73 6D 03 05 9E 1A 25 AD 64 6B 64 6C 64 6D
6D 03 05 2F 06 AE 71 C6 AF 71 C7 AA 8D 92 59 AB 8E 92 13 AF 64 74
64 75 64 76 6D 03 05 9D 14 71 94 2C 03 06 1A 13 AF 64 77 64 78 64
79 6D 03 05 AD 71 94 AD 71 94 2C 04 06 16 02 AD 64 7A 64 7B 03 7C
1A 83 6D AD 64 7D 64 7E 64 7F 6D 03 05 2F 06 AE 70 27 8D 92 0F AD
64 80 80 64 80 81 64 80 82 6D 03 05 2F 06 AE 70 28 8D 92 13 AD 64
80 83 64 80 84 64 80 85 6D 03 05 B0 70 28 2C 03 06 AD 64 80 86 64
80 87 64 80 88 6D 03 05 2F 06 AD 64 80 89 64 80 8A 64 80 8B 6D 03
05 B0 70 1E 2C 03 06 AE 8B 1D FC E2 AD 64 80 8C 64 80 8D 03 80 8E
1A 82 FF AF 2E 80 92 41 06 B4 B0 B0 B0 B0 B0 B0 2C 07 80 93 64 80
94 64 41 B7 71 36 7A 02 7A 02 83 08 64 80 94 64 33 B7 7A 02 7A 02
83 08 16 07 1A FC A5 AF 64 80 99 64 80 9A 64 80 9B 6D 03 05 AC 2C
03 06 16 02 1A FC 8F AE 71 0B AE 64 80 8F 64 80 90 64 80 91 6D 03
05 AC 2C 03 06 91 00 FF A2 AE 64 80 95 64 80 96 64 80 97 6D 03 05
B1 EA 31 2E 77 2C 03 06 AF 64 80 98 71 2E 91 00 FF B3 16 02 1A FC
53 B3 AF AF AF AF B0 B0 2C 07 80 93 16 06 1A FC 43 AD 64 80 9C 64
80 9D 64 80 9E 6D 03 05 2F 06 AE 30 01 41 06 91 05 59 16 06 1A FC
27 AE 8D 1F 60 AD 64 80 9F 64 80 A0 03 80 A1 1A 82 40 AD 64 80 A2
64 80 A3 03 80 A4 1A 82 33 AD 64 80 A5 64 80 A6 03 80 A7 1A 82 26
AD 64 80 A8 64 80 A9 64 80 AA 6D 03 05 B0 64 80 AB 71 2E 2E 80 AC
1A 81 D9 AD 64 80 AD 64 80 AE 03 80 AF 1A 82 00 AD 64 80 B0 64 80
B1 64 80 B2 6D 03 05 B0 71 7A B1 31 7B 1A 81 8B AD 64 80 B3 64 80
B4 64 80 B5 6D 03 05 B0 70 D0 2C 03 06 AE 70 D1 92 00 11 AE 64 80
B6 64 80 B7 64 80 B8 6D 03 05 AC 2C 03 06 16 01 AD 64 80 B9 64 80
BA 64 80 BB 6D 03 05 2F 06 AE 70 D3 AF 70 D4 AF 64 80 BC 64 80 BD
64 80 BE 6D 03 05 2F 06 92 01 18 AF 64 80 BF 64 80 C0 64 80 C1 6D
03 05 94 03 64 5D AF 72 00 17 2C 04 06 AF 64 80 C2 64 80 C3 64 80
C4 6D 03 05 00 2A 01 00 0B 00 00 AA 6C 80 C5 01 B4 30 E6 67 00 00
64 5E 64 80 C6 37 02 80 68 00 2C 03 06 92 00 18 AF 64 80 C7 64 80
C8 64 80 C9 6D 03 05 94 02 64 5D AE 72 00 17 2C 04 06 AF 64 80 CA
64 80 CB 03 80 CC 1A FA F9 AE 8B D0 FF 3C AD 64 80 CD 64 80 CE 03
80 CF 1A 81 19 AD 64 80 D0 64 80 D1 64 80 D2 6D 03 05 B0 30 6C 1A
80 D2 AD 64 80 D3 64 80 D4 64 80 D5 6D 03 05 B0 37 02 70 71 31 05
1A 80 BB AD 64 80 D6 64 80 D7 64 80 D8 6D 03 05 B0 71 1D 62 64 80
D9 B3 37 01 70 EA B4 37 01 70 EB B5 37 01 70 EC B6 37 01 70 ED B7
37 01 70 EE B8 70 EF 7A 06 1A 2D 62 64 80 DA AD 71 8C AE AE 6F 80
DB 6D 04 06 60 01 1A 0F 16 03 1A 1B 93 01 9C 1F 77 93 01 91 00 5F
00 14 AF 7F A6 04 16 02 82 01 82 00 9C 20 67 16 02 AA 7F A7 00 2C
04 06 1A FA 55 AD 64 80 DC 64 80 DD 03 80 DE 1A 80 72 AD 64 80 DF
64 80 E0 64 80 E1 6D 03 05 B0 71 D6 B1 31 D7 14 2C 04 06 1A FA 2E
AD 64 80 E2 64 80 E3 03 80 E4 1A 80 4B AD 64 80 E5 64 80 E6 64 80
E7 6D 03 05 B0 6E 80 E8 64 80 E9 32 02 3D 14 2C 03 06 1A FA 03 AD
64 80 EA 64 80 EB 64 80 EC 6D 03 05 2F 06 AD AF 2F 80 ED 1A F9 EC
AD 64 80 EE 64 80 EF 03 80 F0 1A 0A AD 64 80 F1 64 80 F2 03 80 F3
14 6D 03 05 2F 06 1A F9 CD AA 8E 08 3D AA AF 8E 35 38 AD 64 80 F4
64 80 F5 64 80 F6 6D 03 05 AC 2C 03 06 AE 64 80 F7 71 2E 9B 5B 1C
18 AE 64 80 F8 64 80 F9 64 80 FA 6D 03 05 9D 5B 14 2C 03 06 16 01
1A F9 91 16 01 1A F9 8C AD 64 80 FB 64 80 FC 64 80 FD 6D 03 05 B0
71 2B 2C 03 06 AE AE 2F 80 FE 1A F9 71
)
*STANDARD-OUTPUT* *TERMINAL-IO* "~%Description of~%"
"~%Beschreibung von~%" "~%Description de~%" LANGUAGE FORMAT
#Y(LISP::DESCRIBE-1 #13Y(00 02 00 00 01 18 AC AE 30 88 9C 19 04))
*PRIN-LINELENGTH* WRITE-TO-SHORT-STRING "~%This is " "~%Das ist "
"~%Ceci est "
#S(HASH-TABLE EQ (ADDRESS . 1532.) (SYSTEM-INTERNAL . 1520.)
(FRAME-POINTER . 1497.) (READ-LABEL . 1467.) (LOAD-TIME-EVAL . 1454.)
(BYTE . 1428.) (RANDOM-STATE . 1415.) (LOGICAL-PATHNAME . 1303.)
(PATHNAME . 1303.) (READTABLE . 1280.) (HASH-TABLE . 1261.)
(PACKAGE . 1243.) (STRING-STREAM . 1030.) (ECHO-STREAM . 1030.)
(TWO-WAY-STREAM . 1030.) (CONCATENATED-STREAM . 1030.)
(BROADCAST-STREAM . 1030.) (SYNONYM-STREAM . 1030.)
(FILE-STREAM . 1030.) (STREAM . 1030.) (FOREIGN-FUNCTION . 1017.)
(FOREIGN-VARIABLE . 992.) (FOREIGN-ADDRESS . 979.)
(FOREIGN-POINTER . 966.) (COMPILED-FUNCTION . 949.) (FUNCTION . 845.)
(CHARACTER . 665.) (COMPLEX . 589.) (LONG-FLOAT . 537.)
(DOUBLE-FLOAT . 537.) (SINGLE-FLOAT . 537.) (SHORT-FLOAT . 537.)
(RATIO . 527.) (BIGNUM . 512.) (FIXNUM . 512.) (NULL . 163.)
(SYMBOL . 163.) (CONS . 8.)
)
#Y(LISP::DESCRIBE-LIST-LENGTH
#47Y(00 01 00 00 00 02 D8 AC AD 9C 1F 18 9C 5B 1F 17 94 01 9C 21 17 9C
5B 78 82 01 69 01 D9 AD 81 02 35 02 1A 65 9D 19 05 AC 31 97 19 05
00 19 05
)
0. 2.
)
"a list of length ~S." "eine Liste der Länge ~S."
"une liste de longueur ~S." 1. "a dotted list of length ~S."
"eine punktierte Liste der Länge ~S." "une liste pointée de longueur ~S."
"a cons." "ein Cons." "un «cons»." "a cyclic list."
"eine zyklische Liste." "une liste circulaire." "the empty list, "
"die leere Liste, " "la liste vide, " "the symbol ~S" "das Symbol ~S"
"le symbole ~S" ", a keyword" ", ein Keyword" ", un mot-clé"
", a constant" ", eine Konstante" ", une constante"
", a variable declared SPECIAL" ", eine SPECIAL-deklarierte Variable"
", une variable declarée SPECIAL" ", a variable" ", eine Variable"
", une variable" SYMBOL-MACRO-EXPAND " (macro)" " (Macro)" " (macro)"
MACROEXPAND-1 QUOTE SYMBOL-VALUE ", names " ", benennt " ", le nom "
"a special form" "eine Special-Form" "d'une forme spéciale"
" with macro definition" " mit Macro-Definition" ", aussi d'un macro"
"a function" "eine Funktion" "d'une fonction" FUNCTION SYMBOL-FUNCTION
"a macro" "einen Macro" "d'un macro" ", has the propert~@P ~{~S~^, ~}"
", hat die Propert~@P ~{~S~^, ~}"
", a ~[~;la propriété~:;les propriétés~] ~{~S~^, ~}" SYMBOL-PLIST "." "."
"." "~%The symbol " "~%Das Symbol " "~%Le symbole " "lies in ~S"
"liegt in ~S" "est situé dans ~S" "is uninterned" "ist uninterniert"
"n'appartient à aucun paquetage" *PRINT-ESCAPE* *PRINT-READABLY*
*PACKAGE* *PRINT-GENSYM*
" and is accessible in the package~:[~;s~] ~{~A~^, ~}"
" und ist in ~:[der Package~;den Packages~] ~{~A~^, ~} accessible"
" et est visible dans le~:[ paquetage~;s paquetages~] ~{~A~^, ~}"
#.#'PACKAGE-NAME #.#'STRING< "." "." "."
"an integer, uses ~S bits, is represented as a ~(~A~)."
"eine ganze Zahl, belegt ~S Bits, ist als ~:(~A~) repräsentiert."
"un nombre entier, occupant ~S bits, est représenté comme ~(~A~)."
"a rational, not integral number." "eine rationale, nicht ganze Zahl."
"un nombre rationnel mais pas entier."
"a float with ~S bits of mantissa (~(~A~))."
"eine Fließkommazahl mit ~S Mantissenbits (~:(~A~))."
"un nombre à virgule flottante avec une précision de ~S bits (un ~(~A~))."
"a complex number " "eine komplexe Zahl " "un nombre complexe "
"at the origin" "im Ursprung" "à l'origine"
"on the ~:[posi~;nega~]tive real axis"
"auf der ~:[posi~;nega~]tiven reellen Achse"
"sur la partie ~:[posi~;nega~]tive de l'axe réelle"
"on the ~:[posi~;nega~]tive imaginary axis"
"auf der ~:[posi~;nega~]tiven imaginären Achse"
"sur la partie ~:[posi~;nega~]tive de l'axe imaginaire"
"in ~:[~:[first~;fourth~]~;~:[second~;third~]~] the quadrant"
"im ~:[~:[ers~;vier~]~;~:[zwei~;drit~]~]ten Quadranten"
"dans le ~:[~:[premier~;quatrième~]~;~:[deuxième~;troisième~]~] quartier"
" of the Gaussian number plane." " der Gaußschen Zahlenebene."
" du plan Gaussien." "a character" "ein Zeichen" "un caractère"
" with additional bits" " mit Zusatzbits"
" avec des bits supplémentaires" " from font ~S" " aus Zeichensatz ~S"
" de la police («font») ~S" "." "." "."
"~%It is a ~:[non-~;~]printable character."
"~%Es ist ein ~:[nicht ~;~]druckbares Zeichen."
"~%C'est un caractère ~:[non ~;~]imprimable."
"~%Its use is non-portable." "~%Seine Verwendung ist nicht portabel."
"~%Il n'est pas portable de l'utiliser."
"a~:[n interpret~; compil~]ed function."
"eine ~:[interpret~;compil~]ierte Funktion."
"une fonction ~:[interprét~;compil~]ée." SIGNATURE DESCRIBE-SIGNATURE
DISASSEMBLE "~%argument list: ~S" "~%Argumentliste: ~S"
"~%Liste des arguments: ~S" 2. "~%documentation: ~A"
"~%Dokumentation: ~A" "~%Documentation: ~A" "a built-in system function."
"eine eingebaute System-Funktion." "une fonction prédéfinie du système."
"a special form handler." "ein Special-Form-Handler."
"un interpréteur de forme spéciale." "a foreign pointer"
"ein Foreign-Pointer." "un pointeur étranger." "a foreign address"
"eine Foreign-Adresse." "une addresse étrangère."
"a foreign variable of foreign type ~S."
"eine Foreign-Variable vom Foreign-Typ ~S."
"une variable étrangère de type étranger ~S." 3. DEPARSE-C-TYPE
"a foreign function." "eine Foreign-Funktion." "une fonction étrangère."
"a~:[~:[ closed ~;n output-~]~;~:[n input-~;n input/output-~]~]stream."
"ein ~:[~:[geschlossener ~;Output-~]~;~:[Input-~;bidirektionaler ~]~]Stream."
"un «stream» ~:[~:[fermé~;de sortie~]~;~:[d'entrée~;d'entrée/sortie~]~]."
"the package named ~A" "die Package mit Namen ~A"
"le paquetage de nom ~A" ". It has the nicknames ~{~A~^, ~}"
" und zusätzlichen Namen ~{~A~^, ~}"
". Il porte aussi les noms ~{~A~^, ~}" "." "." "." "~%It " "~%Sie "
"~%Il "
"imports the external symbols of the package~:[~;s~] ~{~A~^, ~} and "
"importiert die externen Symbole der Package~:[~;s~] ~{~A~^, ~} und "
"importe les symboles externes d~:[u paquetage~;es paquetages~] ~{~A~^, ~} et "
"exports ~:[no symbols~;the symbols~:*~{~<~%~:; ~S~>~^~}~]"
"exportiert ~:[keine Symbole~;die Symbole~:*~{~<~%~:; ~S~>~^~}~]"
"~:[n'exporte pas de symboles~;exporte les symboles~:*~{~<~%~:; ~S~>~^~}~]"
#Y(LISP::DESCRIBE-2 #16Y(00 01 00 00 00 02 AB 07 00 01 5C 0C 00 01 19 02)
NIL
)
#.#'SYMBOL-NAME " to the package~:[~;s~] ~{~A~^, ~}"
" an die Package~:[~;s~] ~{~A~^, ~}"
" vers le~:[ paquetage~;s paquetages~] ~{~A~^, ~}" "." "." "."
"a deleted package." "eine gelöschte Package." "un paquetage éliminé."
"a hash table with ~S entr~:@P."
"eine Hash-Tabelle mit ~S Eintr~:*~[ägen~;ag~:;ägen~]."
"un tableau de hachage avec ~S entrée~:*~[s~;~:;s~]."
"~:[a~;the Common Lisp~] readtable."
"~:[eine ~;die Common-Lisp-~]Readtable."
"~:[un~;le~] tableau de lecture~:*~:[~; de Common Lisp~]."
"a ~:[~;portable ~]pathname~:[.~;~:*, with the following components:~{~A~}~]"
"ein ~:[~;portabler ~]Pathname~:[.~;~:*, aufgebaut aus:~{~A~}~]"
"un «pathname»~:[~; portable~]~:[.~;~:*, composé de:~{~A~}~]"
(:HOST :DEVICE :DIRECTORY :NAME :TYPE :VERSION)
#Y(LISP::DESCRIBE-3
#26Y(00 03 00 00 01 19 AE 30 8F AD AF 30 88 D8 AF 37 02 30 8D AC AF 30
88 9C 19 05
)
" = "
)
MAKE-PATHNAME "a random-state." "ein Random-State." "un «random-state»."
"a byte specifier, denoting the ~S bits starting at bit position ~S of an integer."
"ein Byte-Specifier, bezeichnet die ~S Bits ab Bitposition ~S eines Integers."
"un intervalle de bits, comportant ~S bits à partir de la position ~S d'un entier."
"a load-time evaluation promise."
"eine Absicht der Evaluierung zur Ladezeit."
"une promesse d'évaluation au moment du chargement."
"a label used for resolving #~D# references during READ."
"eine Markierung zur Auflösung von #~D#-Verweisen bei READ."
"une marque destinée à résoudre #~D# au cours de READ." ADDRESS-OF
#.(ASH MOST-POSITIVE-FIXNUM -1.)
"a pointer into the stack. It points to:"
"ein Pointer in den Stack. Er zeigt auf:"
"un pointeur dans la pile. Il pointe vers :" DESCRIBE-FRAME
"a special-purpose object." "ein Objekt mit besonderen Eigenschaften."
"un objet distingué." "a machine address." "eine Maschinen-Adresse."
"une addresse au niveau de la machine." "a structure of type ~S."
"eine Structure vom Typ ~S." "une structure de type ~S." 0.
"~%As such, it is also a structure of type ~{~S~^, ~}."
"~%Als solche ist sie auch eine Structure vom Typ ~{~S~^, ~}."
"~%En tant que telle, c'est aussi une structure de type ~{~S~^, ~}."
"an instance of the CLOS class ~S." "eine Instanz der CLOS-Klasse ~S."
"un objet appartenant à la classe ~S de CLOS." CLOS:DESCRIBE-OBJECT
"a~:[~; simple~] ~A dimensional array"
"ein~:[~; einfacher~] ~A-dimensionaler Array"
"une matrice~:[~; simple~] à ~A dimension~:P" " (vector)" " (Vektor)"
" (vecteur)" " of ~(~A~)s" " von ~:(~A~)s" " de ~(~A~)s" ", adjustable"
", adjustierbar" ", ajustable" ", of size ~{~S~^ x ~}"
", der Größe ~{~S~^ x ~}" ", de grandeur ~{~S~^ x ~}"
" and current length (fill-pointer) ~S"
" und der momentanen Länge (Fill-Pointer) ~S"
" et longueur courante (fill-pointer) ~S" "." "." "."
"~%For more information, evaluate ~{~S~^ or ~}."
"~%Mehr Information durch Auswerten von ~{~S~^ oder ~}."
"~%Pour obtenir davantage d'information, évaluez ~{~S~^ ou ~}."
) )
#Y(#:TOP-LEVEL-FORM-8 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
FUNCTION-SIGNATURE REMOVE-OLD-DEFINITIONS
#Y(FUNCTION-SIGNATURE
#113Y(00 01 00 00 00 02 AB 8D 0C 2B AB 71 2A 23 06 80 4B AB 30 01 41 06
92 05 80 4C AE AE AE 9F 14 AF AF 3F 06 19 08 AB 2E 00 41 06 AF AF
AF A0 1A 6E AE 30 A2 1A 1E AB 8D 0B 6C AB D9 71 2E AC DA 71 2E AD
DB 71 2E AE DC 71 2E AD 31 0A 58 14 AE 8E 0A 5E 00 14 B1 DD 71 2E
3F 06 19 03 AB 6E 07 E0 01 04 3F 06 19 02 E1 E2 E3 6D 03 0C E5 B3
32 02 1E
)
SIGNATURE 16. 12. 13. 19. 18. FOREIGN-FUNCTION FOREIGN-FUNCTION-SIGNATURE
0. "~S: ~S is not a function." "~S: ~S ist keine Funktion."
"~S : ~S n'est pas une fonction." LANGUAGE FUNCTION-SIGNATURE
) )
#Y(#:TOP-LEVEL-FORM-9 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
DESCRIBE-SIGNATURE REMOVE-OLD-DEFINITIONS
#Y(DESCRIBE-SIGNATURE
#132Y(00 07 00 00 00 00 B1 D8 D9 DA 6D 03 03 2F 04 B1 DD 62 DE DE 1A 34
E0 83 01 DE 1A 0C 84 01 62 E1 AD 6D 03 04 83 02 84 00 AA B5 90 01
32 6E 16 01 92 08 26 E2 83 01 E3 83 01 92 07 3D 1A 1E 84 01 62 DF
AD 6D 03 04 83 02 84 00 AA B6 90 01 32 6E 16 01 B3 8D 93 40 91 08
5A 92 07 1D E4 83 01 B0 62 1A 0A 86 01 00 14 70 8A 83 03 82 01 AB
8C 96 72 16 02 92 05 03 E5 83 01 AB 31 4A 16 01 F6 2C 03 04 19 08
)
"~%argument list: " "~%Argumentliste: " "~%Liste des arguments : "
LANGUAGE FORMAT
#Y(DESCRIBE-SIGNATURE-1
#45Y(00 02 00 00 01 18 D8 AE 30 8C AC 1A 13 16 01 1A 15 93 00 82 01 AF
30 88 AA 8B 96 71 D9 AF 30 8C AA 8C 96 6D 16 01 DA AE 30 8C 9C 19
04
)
#\( #\Space #\)
)
0.
#Y(DESCRIBE-SIGNATURE-2
#22Y(00 02 00 00 01 18 D8 AE 37 02 30 8D AD 01 06 B3 2C 08 01 9C 19 04
)
"ARG" DO-FORMAT-DECIMAL
)
&OPTIONAL
#Y(DESCRIBE-SIGNATURE-3
#22Y(00 02 00 00 01 18 D8 AE 37 02 30 8D AD 01 06 B3 2C 08 01 9C 19 04
)
"ARG" DO-FORMAT-DECIMAL
)
&REST "OTHER-ARGS" &KEY &ALLOW-OTHER-KEYS
) )
#Y(#:TOP-LEVEL-FORM-10 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
WRITE-TO-SHORT-STRING REMOVE-OLD-DEFINITIONS
#Y(WRITE-TO-SHORT-STRING
#144Y(00 02 00 00 00 03 AC 8D 0A 08 AC 8D 08 04 D8 D9 1A 29 AC 37 0C 30
89 19 03 9B F8 16 01 1A 1C AB AB 72 02 35 DB 71 B4 AF 37 0C A8 09
0A FF 70 89 71 48 AF 8F 01 31 62 9B F7 16 01 AA AC 72 01 36 DA 90
01 2D 5A 9C 16 01 F6 AA DB 95 02 72 02 37 1A 24 9B F8 16 01 1A 1E
AB AB 72 02 35 DB 71 B4 B0 37 0C 04 10 09 0A A8 FF 70 89 71 48 B0
8F 01 31 60 9B F7 16 01 AA AC 72 01 36 DA 90 01 2D 58 9C 16 01 F6
AE 37 0C A9 09 0A A8 FF 30 89 19 05
)
0. 16. 1. 2.
) )
#Y(#:TOP-LEVEL-FORM-11
#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
04 0B 00 05 0B 00 06 D8 2E 01 D8 AB 6C 02 01 31 82 C3 19 02
)
DRIBBLE REMOVE-OLD-DEFINITIONS
#Y(DRIBBLE
#297Y(00 00 00 01 00 07 3A 01 23 7C 01 91 01 21 07 00 01 1B 80 D1 E6 E7
E8 6D 03 04 2E 05 19 02 D9 DA DB 6D 03 04 68 00 01 2F 05 1A 80 9D
92 01 5F 07 00 01 1B 6A AB DE 37 03 30 FB 0C 00 01 0E 07 0C 00 02
0E 08 0C 00 03 00 0C 00 04 0C 00 05 0C 00 06 0C 00 07 6A 07 68 00
01 31 72 0F 07 6A 08 68 00 01 32 02 2B 0F 08 6A 09 CD 33 1C 0E 0E
09 0C 00 04 14 68 00 01 32 02 2B 0F 09 6A 0B CD 33 1C 0E 0E 0B 0C
00 05 14 68 00 01 32 02 2B 0F 0B 6A 0C CD 33 1C 17 0E 0C 0C 00 06
14 68 00 01 71 72 6A 0C 68 00 01 72 02 2B 31 70 0F 0C 6A 0D CD 33
1C 17 0E 0D 0C 00 07 14 68 00 01 71 72 6A 0D 68 00 01 72 02 2B 31
70 0F 0D 07 00 01 19 02 0F 09 07 00 05 1C 24 0F 0B 07 00 06 1C 22
0F 0C 07 00 07 1C 22 1A 1E 07 00 02 0F 07 07 00 03 0F 08 07 00 04
1B 5A 07 00 05 1B 5C 07 00 06 1B 5E 07 00 07 1C 02 0F 0C 00 0C 00
02 0C 00 03 0C 00 04 0C 00 05 0C 00 06 0C 00 07 68 00 01 68 00 01
37 01 31 7D 00 0C 00 01 15 19 02
)
NIL "Already dribbling to ~S" "Es wird bereits auf ~S protokolliert."
"Le protocole est déjà écrit sur ~S." LANGUAGE WARN :OUTPUT
*STANDARD-INPUT* *STANDARD-OUTPUT* *ERROR-OUTPUT*
#Y(LISP::DRIBBLE-GOES-TO-TERMINAL
#20Y(00 01 00 00 00 02 AB 31 6D 1E 07 AB 6E 00 C4 59 19 02 19 02)
SYNONYM-STREAM-SYMBOL *TERMINAL-IO*
)
*TRACE-OUTPUT* *QUERY-IO* *DEBUG-IO* "Currently not dribbling."
"Es wird zur Zeit nicht protokolliert."
"Aucun protocole n'est couramment écrit."
) )
#Y(#:TOP-LEVEL-FORM-12 #16Y(00 00 00 00 00 01 D8 30 5D D9 62 30 55 C4 19 01)
(SPECIAL *EDITOR*) *EDITOR*
)
#Y(#:TOP-LEVEL-FORM-13 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
EDITOR-NAME REMOVE-OLD-DEFINITIONS
#Y(EDITOR-NAME #10Y(00 00 00 00 00 01 0E 00 19 01) *EDITOR*)
)
#Y(#:TOP-LEVEL-FORM-14 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
EDITOR-TEMPFILE REMOVE-OLD-DEFINITIONS
#Y(EDITOR-TEMPFILE #9Y(00 00 00 00 00 01 C3 19 01) "T:lisptemp.lsp")
)
#Y(#:TOP-LEVEL-FORM-15 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
EDIT-FILE REMOVE-OLD-DEFINITIONS
#Y(EDIT-FILE
#49Y(00 01 00 00 00 02 2D 00 1C 1D AB 8B F8 0A AB DE 37 03 70 FB 37 01 31
7D 62 DF 2D 00 14 AE 70 F7 6D 04 08 2E 09 19 02 D9 DA DB DC 6D 03 05
32 00 1F
)
EDITOR-NAME ERROR "No external editor installed."
"Kein externer Editor installiert."
"Un éditeur externe n'est pas installé." LANGUAGE :OUTPUT
#Y(LISP::EDIT-FILE-1
#27Y(00 03 00 00 01 19 AD AF 30 88 D8 AF 37 02 30 8D AC AF 30 88 D9 AF
30 8C 9C 19 05
)
" \"" #\"
)
FORMAT SHELL
) )
#Y(#:TOP-LEVEL-FORM-16 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01) ED
REMOVE-OLD-DEFINITIONS
#Y(ED
#258Y(00 00 00 01 00 07 3C 01 01 04 92 05 0F AF 8D 1C 05 AF 8E 09 80 B0
A0 14 2E 01 19 06 C3 1A 78 AF 8E 1F 80 D3 AF DB 80 2E 03 14 88 02
80 C9 1A 80 9C 2D 06 14 AA DF 37 03 70 FB 52 1C 93 04 AD 30 87 AC
30 8F AC 30 8F 92 02 05 14 37 01 31 7D 3D 53 05 00 00 1C 0B 1A 05
05 00 00 1C 04 14 63 31 7D 54 16 01 AA 71 00 AB 2E 01 AB 71 00 AB
90 01 30 80 4E AB E0 37 03 70 FB 52 33 0E 09 10 09 1A 0D AA 01 02
94 0C 70 5F 37 01 30 86 16 01 AF 62 E2 37 01 70 78 AA E2 8E 03 67
16 01 11 92 02 05 14 37 01 31 7D 3D 53 05 00 00 1C 0B 1A 05 05 00
00 1C 04 14 63 31 7D 54 16 01 AD 8E 0B 03 AF 2E 0B 16 01 9F 19 07
AF 88 02 FF 54 A0 F9 AD 2E 04 F8 14 8C 53 22 AC 7F 5A 01 1B 05 9D
5D F7 1C 17 AB 8E 1F 13 AF 87 02 05 AB B0 8E 03 0A AC DD 37 01 80
84 00 1B FF 3A E4 E5 E6 E7 6D 03 10 B1 32 01 1F
)
"" EDIT-FILE FUNCTION-NAME-P 0. GET-FUNNAME-SYMBOL DEFINITION
EDITOR-TEMPFILE :OUTPUT :INPUT *PACKAGE* "EOF" COMPILE ERROR
"~S cannot be edited." "~S ist nicht editierbar."
"~S ne peut pas être édité." LANGUAGE
) )
#Y(#:TOP-LEVEL-FORM-17 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
UNCOMPILE REMOVE-OLD-DEFINITIONS
#Y(UNCOMPILE
#90Y(00 01 00 00 00 02 01 04 AF 88 00 35 A0 F9 AD 2E 02 F8 14 8C 53 38 AC
7F 5A 01 1B 05 9D 5D F7 1C 2D AB 8E 1F 29 AF 87 00 05 AB B0 8E 03 20
AC DB 37 01 80 84 00 1C 17 93 00 01 02 94 03 30 5F 19 06 AF 8E 1F 09
AF D9 80 2E 03 14 87 00 40 DC DD DE DF 6D 03 08 E1 B0 32 02 1F
)
FUNCTION-NAME-P 0. GET-FUNNAME-SYMBOL DEFINITION ERROR
"~S: source code for ~S not available."
"~S: Quellcode zu ~S nicht verfügbar."
"~S : Les sources de ~S ne sont pas présentes." LANGUAGE UNCOMPILE
) )
#Y(#:TOP-LEVEL-FORM-18 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
%SAVEINITMEM REMOVE-OLD-DEFINITIONS
#Y(%SAVEINITMEM
#44Y(00 00 00 00 00 01 D8 30 E7 D9 8C 53 03 DA 30 E7 00 0F 03 0F 04 0F 05
0F 06 0F 07 0F 08 0F 09 0F 0A 0F 0B 0F 0C E5 31 02 30 64 19 01
)
#Y(%SAVEINITMEM-1 #12Y(00 01 00 00 00 02 AB D8 31 89 19 02) DEFINITION)
CLOS::INSTALL-DISPATCH
#Y(%SAVEINITMEM-2
#34Y(00 01 00 00 00 02 AB 8C 53 06 9C 5D 14 8D 20 08 00 19 02 AA 2E 01
19 03 9C 5D 14 AA 87 00 74 00 19 03
)
CLOS::GF-NEVER-CALLED-P CLOS::INSTALL-DISPATCH
)
- + ++ +++ * ** *** / // /// "lispimag.mem"
) )
#Y(#:TOP-LEVEL-FORM-19 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
SAVEINITMEM REMOVE-OLD-DEFINITIONS
#Y(SAVEINITMEM
#89Y(00 00 00 01 80 20 00 02 00 00 00 2A 01 3A 04 02 C5 FA 3A 03 01 00 10
03 3A 05 01 00 0B 03 00 00 0F 04 0F 05 0F 06 0F 07 0F 08 0F 09 0F 0A
0F 0B 0F 0C 0F 0D 06 03 00 1B 08 B1 31 02 30 64 11 19 05 9E 2A 01 0E
0E 0B 00 00 AA 2B 0F 01 10 0E B5 31 02 11 16 01 30 64 1A 65
)
:QUIET :INIT-FUNCTION "lispinit.mem" *QUIET* - + ++ +++ * ** *** / // ///
*DRIVER*
#Y(LISP::SAVEINITMEM-1
#22Y(00 00 00 00 00 01 07 00 01 0F 01 68 01 01 35 00 6A 01 35 00 19 01
)
NIL *DRIVER*
) ) )