home *** CD-ROM | disk | FTP | other *** search
/ Il CD di internet / CD.iso / SOURCE / D / CLISP / CLISPSRC.TAR / clisp-1995-01-01 / src / constobj.d < prev    next >
Encoding:
Text File  |  1994-12-30  |  45.0 KB  |  984 lines
  1. # Liste aller dem C-Programm bekannten Objekte ("Programmkonstanten")
  2. # Bruno Haible 30.12.1994
  3.  
  4. # Die Symbole sind bereits speziell abgehandelt.
  5. # Es wird eine Tabelle aller sonstigen dem C-Programm bekannten Objekte
  6. # gehalten.
  7.  
  8. # Der Macro LISPOBJ deklariert ein sonstiges LISP-Objekt.
  9. # LISPOBJ(name,initstring)
  10. # > name: Objekt ist als object_tab.name oder als O(name) ansprechbar
  11. # > initstring: Initialisierungsstring in LISP-Syntax
  12.  
  13. # Expander fⁿr die Deklaration der Objekt-Tabelle:
  14.   #define LISPOBJ_A(name,initstring)  \
  15.     object name;
  16.  
  17. # Expander fⁿr die Initialisierung der Objekt-Tabelle:
  18.   #define LISPOBJ_B(name,initstring)  \
  19.     NIL,
  20.   #define LISPOBJ_C(name,initstring)  \
  21.     initstring,
  22.  
  23. # Welcher Expander benutzt wird, mu▀ vom Hauptfile aus eingestellt werden.
  24.  
  25. # Der Macro LISPOBJ_L deklariert ein von language abhΣngiges LISP-Objekt.
  26. # LISPOBJ_L(name,deutsch_initstring,english_initstring,francais_initstring)
  27. # > name: Objekt ist als OL(name) ansprechbar
  28. # > deutsch_initstring: Initialisierungsstring fⁿr DEUTSCH
  29. # > english_initstring: Initialisierungsstring fⁿr ENGLISH
  30. # > francais_initstring: Initialisierungsstring fⁿr FRANCAIS
  31.   #ifdef LANGUAGE_STATIC
  32.     #define LISPOBJ_L(name,deutsch,english,francais)  \
  33.       LISPOBJ(name, DEUTSCH ? deutsch : ENGLISH ? english : FRANCAIS ? francais : "")
  34.   #else
  35.     #define LISPOBJ_L(name,deutsch,english,francais)  \
  36.       LISPOBJ(name,english) LISPOBJ(name##_l1,deutsch) LISPOBJ(name##_l2,francais)
  37.   #endif
  38.  
  39. # zu EVAL.D:
  40.   # Die 5 aktuellen Environments:
  41.   LISPOBJ(akt_var_env,"NIL")    # --+
  42.   LISPOBJ(akt_fun_env,"NIL")    #   | Reihenfolge
  43.   LISPOBJ(akt_block_env,"NIL")  #   | mit LISPBIBL.D
  44.   LISPOBJ(akt_go_env,"NIL")     #   | abgestimmt!
  45.   LISPOBJ(akt_decl_env,"NIL")   # --+
  46. # zu CHARSTRG.D:
  47.   # Bei ─nderung der Character-Namen au▀er CONSTOBJ.D auch
  48.   # CHARSTRG.D, FORMAT.LSP, IMPNOTES.TXT anpassen!
  49.   #ifdef ATARI_CHARNAMES
  50.     # Namen von Characters mit Codes 0,5,...,13,26,27,32,8,10:
  51.     LISPOBJ(charname_0,"\"Null\"")
  52.     LISPOBJ(charname_5,"\"Code5\"")
  53.     LISPOBJ(charname_6,"\"Code6\"")
  54.     LISPOBJ(charname_7,"\"Bell\"")
  55.     LISPOBJ(charname_8,"\"Backspace\"")
  56.     LISPOBJ(charname_9,"\"Tab\"")
  57.     LISPOBJ(charname_10,"\"Newline\"")
  58.     LISPOBJ(charname_11,"\"Code11\"")
  59.     LISPOBJ(charname_12,"\"Page\"")
  60.     LISPOBJ(charname_13,"\"Return\"")
  61.     LISPOBJ(charname_26,"\"Code26\"")
  62.     LISPOBJ(charname_27,"\"Escape\"")
  63.     LISPOBJ(charname_32,"\"Space\"")
  64.     LISPOBJ(charname_8bis,"\"Rubout\"")
  65.     LISPOBJ(charname_10bis,"\"Linefeed\"")
  66.     # Namen von Characters mit Hyper-Bit:
  67.     LISPOBJ(charname_hyper_13,"\"Enter\"") # #\Hyper-Return
  68.     LISPOBJ(charname_hyper_16,"\"Insert\"") # #\Hyper-Code16
  69.     LISPOBJ(charname_hyper_17,"\"End\"") # #\Hyper-Code17
  70.     LISPOBJ(charname_hyper_18,"\"Down\"") # #\Hyper-Code18
  71.     LISPOBJ(charname_hyper_19,"\"PgDn\"") # #\Hyper-Code19
  72.     LISPOBJ(charname_hyper_20,"\"Left\"") # #\Hyper-Code20
  73.     LISPOBJ(charname_hyper_22,"\"Right\"") # #\Hyper-Code22
  74.     LISPOBJ(charname_hyper_23,"\"Home\"") # #\Hyper-Code23
  75.     LISPOBJ(charname_hyper_24,"\"Up\"") # #\Hyper-Code24
  76.     LISPOBJ(charname_hyper_25,"\"PgUp\"") # #\Hyper-Code25
  77.     LISPOBJ(charname_hyper_28,"\"Help\"") # #\Hyper-Code28
  78.     LISPOBJ(charname_hyper_29,"\"Undo\"") # #\Hyper-Code29
  79.     LISPOBJ(charname_hyper_127,"\"Delete\"") # #\Hyper-Code127
  80.     LISPOBJ(charname_hyper_a,"\"F1\"") # #\Hyper-A
  81.     LISPOBJ(charname_hyper_b,"\"F2\"") # #\Hyper-B
  82.     LISPOBJ(charname_hyper_c,"\"F3\"") # #\Hyper-C
  83.     LISPOBJ(charname_hyper_d,"\"F4\"") # #\Hyper-D
  84.     LISPOBJ(charname_hyper_e,"\"F5\"") # #\Hyper-E
  85.     LISPOBJ(charname_hyper_f,"\"F6\"") # #\Hyper-F
  86.     LISPOBJ(charname_hyper_g,"\"F7\"") # #\Hyper-G
  87.     LISPOBJ(charname_hyper_h,"\"F8\"") # #\Hyper-H
  88.     LISPOBJ(charname_hyper_i,"\"F9\"") # #\Hyper-I
  89.     LISPOBJ(charname_hyper_j,"\"F10\"") # #\Hyper-J
  90.     LISPOBJ(charname_hyper_k,"\"F11\"") # #\Hyper-K
  91.     LISPOBJ(charname_hyper_l,"\"F12\"") # #\Hyper-L
  92.   #endif
  93.   #ifdef AMIGA_CHARNAMES
  94.     LISPOBJ(charname_0,"\"Null\"")
  95.     LISPOBJ(charname_1,"\"Code1\"")
  96.     LISPOBJ(charname_2,"\"Code2\"")
  97.     LISPOBJ(charname_3,"\"Code3\"")
  98.     LISPOBJ(charname_4,"\"Code4\"")
  99.     LISPOBJ(charname_5,"\"Code5\"")
  100.     LISPOBJ(charname_6,"\"Code6\"")
  101.     LISPOBJ(charname_7,"\"Bell\"")
  102.     LISPOBJ(charname_8,"\"Backspace\"")
  103.     LISPOBJ(charname_9,"\"Tab\"")
  104.     LISPOBJ(charname_10,"\"Newline\"")
  105.     LISPOBJ(charname_11,"\"Vt\"")
  106.     LISPOBJ(charname_12,"\"Page\"")
  107.     LISPOBJ(charname_13,"\"Return\"")
  108.     LISPOBJ(charname_14,"\"So\"")
  109.     LISPOBJ(charname_15,"\"Si\"")
  110.     LISPOBJ(charname_16,"\"Code16\"")
  111.     LISPOBJ(charname_17,"\"Code17\"")
  112.     LISPOBJ(charname_18,"\"Code18\"")
  113.     LISPOBJ(charname_19,"\"Code19\"")
  114.     LISPOBJ(charname_20,"\"Code20\"")
  115.     LISPOBJ(charname_21,"\"Code21\"")
  116.     LISPOBJ(charname_22,"\"Code22\"")
  117.     LISPOBJ(charname_23,"\"Code23\"")
  118.     LISPOBJ(charname_24,"\"Code24\"")
  119.     LISPOBJ(charname_25,"\"Code25\"")
  120.     LISPOBJ(charname_26,"\"Code26\"")
  121.     LISPOBJ(charname_27,"\"Escape\"")
  122.     LISPOBJ(charname_28,"\"Code28\"")
  123.     LISPOBJ(charname_29,"\"Code29\"")
  124.     LISPOBJ(charname_30,"\"Code30\"")
  125.     LISPOBJ(charname_31,"\"Code31\"")
  126.     LISPOBJ(charname_32,"\"Space\"")
  127.     LISPOBJ(charname_127,"\"Delete\"")
  128.     LISPOBJ(charname_7bis,"\"Bel\"")
  129.     LISPOBJ(charname_8bis,"\"Bs\"")
  130.     LISPOBJ(charname_9bis,"\"Ht\"")
  131.     LISPOBJ(charname_10bis,"\"Linefeed\"")
  132.     LISPOBJ(charname_10tris,"\"Lf\"")
  133.     LISPOBJ(charname_12bis,"\"Ff\"")
  134.     LISPOBJ(charname_13bis,"\"Cr\"")
  135.     LISPOBJ(charname_27bis,"\"Esc\"")
  136.     LISPOBJ(charname_127bis,"\"Del\"")
  137.     LISPOBJ(charname_127tris,"\"Rubout\"")
  138.     LISPOBJ(charname_155,"\"Csi\"")
  139.     # Namen von Characters mit Hyper-Bit:
  140.     LISPOBJ(charname_hyper_18,"\"Down\"") # #\Hyper-Code18
  141.     LISPOBJ(charname_hyper_20,"\"Left\"") # #\Hyper-Code20
  142.     LISPOBJ(charname_hyper_22,"\"Right\"") # #\Hyper-Code22
  143.     LISPOBJ(charname_hyper_24,"\"Up\"") # #\Hyper-Code24
  144.     LISPOBJ(charname_hyper_28,"\"Help\"") # #\Hyper-Code28
  145.     LISPOBJ(charname_hyper_a,"\"F1\"") # #\Hyper-A
  146.     LISPOBJ(charname_hyper_b,"\"F2\"") # #\Hyper-B
  147.     LISPOBJ(charname_hyper_c,"\"F3\"") # #\Hyper-C
  148.     LISPOBJ(charname_hyper_d,"\"F4\"") # #\Hyper-D
  149.     LISPOBJ(charname_hyper_e,"\"F5\"") # #\Hyper-E
  150.     LISPOBJ(charname_hyper_f,"\"F6\"") # #\Hyper-F
  151.     LISPOBJ(charname_hyper_g,"\"F7\"") # #\Hyper-G
  152.     LISPOBJ(charname_hyper_h,"\"F8\"") # #\Hyper-H
  153.     LISPOBJ(charname_hyper_i,"\"F9\"") # #\Hyper-I
  154.     LISPOBJ(charname_hyper_j,"\"F10\"") # #\Hyper-J
  155.   #endif
  156.   #ifdef MSDOS_CHARNAMES
  157.     # Namen von Characters mit Codes 0,7,...,13,26,27,32,8,10:
  158.     LISPOBJ(charname_0,"\"Null\"")
  159.     LISPOBJ(charname_7,"\"Bell\"")
  160.     LISPOBJ(charname_8,"\"Backspace\"")
  161.     LISPOBJ(charname_9,"\"Tab\"")
  162.     LISPOBJ(charname_10,"\"Newline\"")
  163.     LISPOBJ(charname_11,"\"Code11\"")
  164.     LISPOBJ(charname_12,"\"Page\"")
  165.     LISPOBJ(charname_13,"\"Return\"")
  166.     LISPOBJ(charname_26,"\"Code26\"")
  167.     LISPOBJ(charname_27,"\"Escape\"")
  168.     LISPOBJ(charname_32,"\"Space\"")
  169.     LISPOBJ(charname_8bis,"\"Rubout\"")
  170.     LISPOBJ(charname_10bis,"\"Linefeed\"")
  171.     # Namen von Characters mit Hyper-Bit:
  172.     LISPOBJ(charname_hyper_13,"\"Enter\"") # #\Hyper-Return
  173.     LISPOBJ(charname_hyper_16,"\"Insert\"") # #\Hyper-Code16
  174.     LISPOBJ(charname_hyper_17,"\"End\"") # #\Hyper-Code17
  175.     LISPOBJ(charname_hyper_18,"\"Down\"") # #\Hyper-Code18
  176.     LISPOBJ(charname_hyper_19,"\"PgDn\"") # #\Hyper-Code19
  177.     LISPOBJ(charname_hyper_20,"\"Left\"") # #\Hyper-Code20
  178.     LISPOBJ(charname_hyper_22,"\"Right\"") # #\Hyper-Code22
  179.     LISPOBJ(charname_hyper_23,"\"Home\"") # #\Hyper-Code23
  180.     LISPOBJ(charname_hyper_24,"\"Up\"") # #\Hyper-Code24
  181.     LISPOBJ(charname_hyper_25,"\"PgUp\"") # #\Hyper-Code25
  182.     LISPOBJ(charname_hyper_29,"\"Prtscr\"") # #\Hyper-Code29
  183.     LISPOBJ(charname_hyper_127,"\"Delete\"") # #\Hyper-Code127
  184.     LISPOBJ(charname_hyper_a,"\"F1\"") # #\Hyper-A
  185.     LISPOBJ(charname_hyper_b,"\"F2\"") # #\Hyper-B
  186.     LISPOBJ(charname_hyper_c,"\"F3\"") # #\Hyper-C
  187.     LISPOBJ(charname_hyper_d,"\"F4\"") # #\Hyper-D
  188.     LISPOBJ(charname_hyper_e,"\"F5\"") # #\Hyper-E
  189.     LISPOBJ(charname_hyper_f,"\"F6\"") # #\Hyper-F
  190.     LISPOBJ(charname_hyper_g,"\"F7\"") # #\Hyper-G
  191.     LISPOBJ(charname_hyper_h,"\"F8\"") # #\Hyper-H
  192.     LISPOBJ(charname_hyper_i,"\"F9\"") # #\Hyper-I
  193.     LISPOBJ(charname_hyper_j,"\"F10\"") # #\Hyper-J
  194.     LISPOBJ(charname_hyper_k,"\"F11\"") # #\Hyper-K
  195.     LISPOBJ(charname_hyper_l,"\"F12\"") # #\Hyper-L
  196.   #endif
  197.   #ifdef UNIX_CHARNAMES
  198.     LISPOBJ(charname_0bis,"\"Null\"")
  199.     LISPOBJ(charname_7bis,"\"Bell\"")
  200.     LISPOBJ(charname_8bis,"\"Backspace\"")
  201.     LISPOBJ(charname_9bis,"\"Tab\"")
  202.     LISPOBJ(charname_10bis,"\"Newline\"")
  203.     LISPOBJ(charname_10tris,"\"Linefeed\"")
  204.     LISPOBJ(charname_12bis,"\"Page\"")
  205.     LISPOBJ(charname_13bis,"\"Return\"")
  206.     LISPOBJ(charname_27bis,"\"Escape\"")
  207.     LISPOBJ(charname_32bis,"\"Space\"")
  208.     LISPOBJ(charname_127bis,"\"Rubout\"")
  209.     LISPOBJ(charname_127tris,"\"Delete\"")
  210.     LISPOBJ(charname_0,"\"Nul\"")
  211.     LISPOBJ(charname_1,"\"Soh\"")
  212.     LISPOBJ(charname_2,"\"Stx\"")
  213.     LISPOBJ(charname_3,"\"Etx\"")
  214.     LISPOBJ(charname_4,"\"Eot\"")
  215.     LISPOBJ(charname_5,"\"Enq\"")
  216.     LISPOBJ(charname_6,"\"Ack\"")
  217.     LISPOBJ(charname_7,"\"Bel\"")
  218.     LISPOBJ(charname_8,"\"Bs\"")
  219.     LISPOBJ(charname_9,"\"Ht\"")
  220.     LISPOBJ(charname_10,"\"Nl\"")
  221.     LISPOBJ(charname_11,"\"Vt\"")
  222.     LISPOBJ(charname_12,"\"Np\"")
  223.     LISPOBJ(charname_13,"\"Cr\"")
  224.     LISPOBJ(charname_14,"\"So\"")
  225.     LISPOBJ(charname_15,"\"Si\"")
  226.     LISPOBJ(charname_16,"\"Dle\"")
  227.     LISPOBJ(charname_17,"\"Dc1\"")
  228.     LISPOBJ(charname_18,"\"Dc2\"")
  229.     LISPOBJ(charname_19,"\"Dc3\"")
  230.     LISPOBJ(charname_20,"\"Dc4\"")
  231.     LISPOBJ(charname_21,"\"Nak\"")
  232.     LISPOBJ(charname_22,"\"Syn\"")
  233.     LISPOBJ(charname_23,"\"Etb\"")
  234.     LISPOBJ(charname_24,"\"Can\"")
  235.     LISPOBJ(charname_25,"\"Em\"")
  236.     LISPOBJ(charname_26,"\"Sub\"")
  237.     LISPOBJ(charname_27,"\"Esc\"")
  238.     LISPOBJ(charname_28,"\"Fs\"")
  239.     LISPOBJ(charname_29,"\"Gs\"")
  240.     LISPOBJ(charname_30,"\"Rs\"")
  241.     LISPOBJ(charname_31,"\"Us\"")
  242.     LISPOBJ(charname_32,"\"Sp\"")
  243.     LISPOBJ(charname_127,"\"Del\"")
  244.     # Namen von Characters mit Hyper-Bit:
  245.     LISPOBJ(charname_hyper_16,"\"Insert\"") # #\Hyper-Code16
  246.     LISPOBJ(charname_hyper_17,"\"End\"") # #\Hyper-Code17
  247.     LISPOBJ(charname_hyper_18,"\"Down\"") # #\Hyper-Code18
  248.     LISPOBJ(charname_hyper_19,"\"PgDn\"") # #\Hyper-Code19
  249.     LISPOBJ(charname_hyper_20,"\"Left\"") # #\Hyper-Code20
  250.     LISPOBJ(charname_hyper_21,"\"Center\"") # #\Hyper-Code21
  251.     LISPOBJ(charname_hyper_22,"\"Right\"") # #\Hyper-Code22
  252.     LISPOBJ(charname_hyper_23,"\"Home\"") # #\Hyper-Code23
  253.     LISPOBJ(charname_hyper_24,"\"Up\"") # #\Hyper-Code24
  254.     LISPOBJ(charname_hyper_25,"\"PgUp\"") # #\Hyper-Code25
  255.     LISPOBJ(charname_hyper_a,"\"F1\"") # #\Hyper-A
  256.     LISPOBJ(charname_hyper_b,"\"F2\"") # #\Hyper-B
  257.     LISPOBJ(charname_hyper_c,"\"F3\"") # #\Hyper-C
  258.     LISPOBJ(charname_hyper_d,"\"F4\"") # #\Hyper-D
  259.     LISPOBJ(charname_hyper_e,"\"F5\"") # #\Hyper-E
  260.     LISPOBJ(charname_hyper_f,"\"F6\"") # #\Hyper-F
  261.     LISPOBJ(charname_hyper_g,"\"F7\"") # #\Hyper-G
  262.     LISPOBJ(charname_hyper_h,"\"F8\"") # #\Hyper-H
  263.     LISPOBJ(charname_hyper_i,"\"F9\"") # #\Hyper-I
  264.     LISPOBJ(charname_hyper_j,"\"F10\"") # #\Hyper-J
  265.     LISPOBJ(charname_hyper_k,"\"F11\"") # #\Hyper-K
  266.     LISPOBJ(charname_hyper_l,"\"F12\"") # #\Hyper-L
  267.   #endif
  268.   # Tabelle der Bitnamen:
  269.   LISPOBJ(bitnamekw_0,":CONTROL")
  270.   LISPOBJ(bitnamekw_1,":META")
  271.   LISPOBJ(bitnamekw_2,":SUPER")
  272.   LISPOBJ(bitnamekw_3,":HYPER")
  273. # zu HASHTABL.D:
  274.  #ifdef GENERATIONAL_GC
  275.   LISPOBJ(gc_count,"0")
  276.  #endif
  277. # zu SEQUENCE.D:
  278.   # interne Liste aller definierten Sequence-Typen:
  279.   LISPOBJ(seq_types,"NIL")
  280.   # Keywordpaare fⁿr test_start_end (Paare nicht trennen!):
  281.   LISPOBJ(kwpair_start,":START")
  282.   LISPOBJ(kwpair_end,":END")
  283.   LISPOBJ(kwpair_start1,":START1")
  284.   LISPOBJ(kwpair_end1,":END1")
  285.   LISPOBJ(kwpair_start2,":START2")
  286.   LISPOBJ(kwpair_end2,":END2")
  287. # zu PREDTYPE.D:
  288.   # Erkennungszeichen fⁿr Klassen, wird von CLOS::%DEFCLOS gefⁿllt
  289.   LISPOBJ(class_structure_types,"(CLOS::CLASS)")
  290.   # einige Built-In-Klassen, werden von CLOS::%DEFCLOS gefⁿllt
  291.   LISPOBJ(class_array,"ARRAY")             # ---+
  292.   LISPOBJ(class_bit_vector,"BIT-VECTOR")   #    |   Reihenfolge
  293.   LISPOBJ(class_character,"CHARACTER")     #    |   mit clos.lsp
  294.   LISPOBJ(class_complex,"COMPLEX")         #    |   abgestimmt!
  295.   LISPOBJ(class_cons,"CONS")
  296.   LISPOBJ(class_float,"FLOAT")
  297.   LISPOBJ(class_function,"FUNCTION")
  298.   LISPOBJ(class_hash_table,"HASH-TABLE")
  299.   LISPOBJ(class_integer,"INTEGER")
  300.   LISPOBJ(class_null,"NULL")
  301.   LISPOBJ(class_package,"PACKAGE")
  302.   LISPOBJ(class_pathname,"PATHNAME")
  303.   #ifdef LOGICAL_PATHNAMES
  304.   LISPOBJ(class_logical_pathname,"LOGICAL-PATHNAME")
  305.   #endif
  306.   LISPOBJ(class_random_state,"RANDOM-STATE")
  307.   LISPOBJ(class_ratio,"RATIO")
  308.   LISPOBJ(class_readtable,"READTABLE")
  309.   LISPOBJ(class_standard_generic_function,"CLOS::STANDARD-GENERIC-FUNCTION")
  310.   LISPOBJ(class_stream,"STREAM")
  311.   LISPOBJ(class_string,"STRING")
  312.   LISPOBJ(class_symbol,"SYMBOL")           #    |
  313.   LISPOBJ(class_t,"T")                     #    |
  314.   LISPOBJ(class_vector,"VECTOR")           # ---+
  315. # zu PACKAGE.D:
  316.   # interne Liste aller Packages:
  317.   LISPOBJ(all_packages,".")
  318.   # die Keyword-Package:
  319.   LISPOBJ(keyword_package,".")
  320.   # die Default-Package fⁿr *PACKAGE*:
  321.   LISPOBJ(default_package,".")
  322.   # verschiedene Strings und Listen fⁿr interaktive Konfliktbehebung:
  323.   LISPOBJ_L(query_string1,
  324.     /* DEUTSCH */ "\"WΣhlen Sie bitte aus:\"",
  325.     /* ENGLISH */ "\"Please choose:\"",
  326.     /* FRANCAIS */ "\"Choisissez :\"")
  327.   LISPOBJ(query_string2,"\"          \"")
  328.   LISPOBJ(query_string3,"\"  --  \"")
  329.   LISPOBJ_L(query_string4,
  330.     /* DEUTSCH */ "\"WΣhlen Sie bitte eines von \"",
  331.     /* ENGLISH */ "\"Please choose one of \"",
  332.     /* FRANCAIS */ "\"Choisissez parmi \"")
  333.   LISPOBJ(query_string5,"\", \"")
  334.   LISPOBJ_L(query_string6,
  335.     /* DEUTSCH */ "\" aus.\"",
  336.     /* ENGLISH */ "\" .\"",
  337.     /* FRANCAIS */ "\", s.v.p.\"")
  338.   LISPOBJ(query_string7,"\"> \"")
  339.   LISPOBJ_L(unint_string1,
  340.     /* DEUTSCH */ "\"Symbol \"",
  341.     /* ENGLISH */ "\"symbol \"",
  342.     /* FRANCAIS */ "\"Le symbole \"")
  343.   LISPOBJ_L(unint_string2,
  344.     /* DEUTSCH */ "\" aus #<PACKAGE \"",
  345.     /* ENGLISH */ "\" from #<PACKAGE \"",
  346.     /* FRANCAIS */ "\" du paquetage #<PACKAGE \"")
  347.   LISPOBJ_L(unint_string3,
  348.     /* DEUTSCH */ "\"> wird als Shadowing deklariert\"",
  349.     /* ENGLISH */ "\"> will become a shadowing symbol\"",
  350.     /* FRANCAIS */ "\"> sera dΘclarΘ ½shadowing╗.\"")
  351.   LISPOBJ_L(unint_string4,
  352.     /* DEUTSCH */ "\"Sie dⁿrfen auswΣhlen, welches der gleichnamigen Symbole Vorrang bekommt, um den Konflikt aufzul÷sen.\"",
  353.     /* ENGLISH */ "\"You may choose the symbol in favour of which to resolve the conflict.\"",
  354.     /* FRANCAIS */ "\"Vous pouvez choisir, parmi les symboles homonymes, auquel donner prioritΘ pour Θviter le conflit de noms.\"")
  355.   LISPOBJ_L(unint_string5,
  356.     /* DEUTSCH */ "\"Durch Uninternieren von ~S aus ~S entsteht ein Namenskonflikt.\"",
  357.     /* ENGLISH */ "\"uninterning ~S from ~S uncovers a name conflict.\"",
  358.     /* FRANCAIS */ "\"Un conflit de noms apparaεt dΦs que ~S est retirΘ de ~S.\"")
  359.   LISPOBJ_L(import_string1,
  360.     /* DEUTSCH */ "\"Sie dⁿrfen ⁿber das weitere Vorgehen entscheiden.\"",
  361.     /* ENGLISH */ "\"You may choose how to proceed.\"",
  362.     /* FRANCAIS */ "\"Vous pouvez dΘcider de la dΘmarche α suivre.\"")
  363.   LISPOBJ_L(import_string2,
  364.     /* DEUTSCH */ "\"Durch Importieren von ~S in ~S entsteht ein Namenskonflikt mit ~S.\"",
  365.     /* ENGLISH */ "\"importing ~S into ~S produces a name conflict with ~S.\"",
  366.     /* FRANCAIS */ "\"Un conflit de noms apparaεt par l'importation de ~S dans ~S avec ~S.\"")
  367.   LISPOBJ_L(import_string3,
  368.     /* DEUTSCH */ "\"Durch Importieren von ~S in ~S entsteht ein Namenskonflikt mit ~S und weiteren Symbolen.\"",
  369.     /* ENGLISH */ "\"importing ~S into ~S produces a name conflict with ~S and other symbols.\"",
  370.     /* FRANCAIS */ "\"Un conflit de noms apparaεt par l'importation de ~S dans ~S avec ~S et d'autres symboles.\"")
  371.   LISPOBJ_L(import_list1,
  372.     /* DEUTSCH */ "((\"I\" \"Importieren und dabei das eine andere Symbol uninternieren\" T)"
  373.                   " (\"N\" \"Nicht importieren, alles beim alten lassen\" NIL))",
  374.     /* ENGLISH */ "((\"I\" \"import it and unintern the other symbol\" T)"
  375.                   " (\"N\" \"do not import it, leave undone\" NIL))",
  376.     /* FRANCAIS */ "((\"I\" \"Importer en retirant l'autre symbole\" T)"
  377.                    " (\"N\" \"Ne pas importer, ne rien faire\" NIL))")
  378.   LISPOBJ_L(import_list2,
  379.     /* DEUTSCH */ "((\"I\" \"Importieren, dabei das eine andere Symbol uninternieren und die anderen Symbole verdecken\" T)"
  380.                   " (\"N\" \"Nicht importieren, alles beim alten lassen\" NIL))",
  381.     /* ENGLISH */ "((\"I\" \"import it, unintern one other symbol and shadow the other symbols\" T)"
  382.                   " (\"N\" \"do not import it, leave undone\" NIL))",
  383.     /* FRANCAIS */ "((\"I\" \"Importer en retirant l'autre symbole et en cachant les autres\" T)"
  384.                    " (\"N\" \"Ne pas importer, ne rien faire\" NIL))")
  385.   LISPOBJ_L(import_list3,
  386.     /* DEUTSCH */ "((\"I\" \"Importieren und das andere Symbol shadowen\" T) (\"N\" \"Nichts tun\" NIL))",
  387.     /* ENGLISH */ "((\"I\" \"import it and shadow the other symbol\" T) (\"N\" \"do nothing\" NIL))",
  388.     /* FRANCAIS */ "((\"I\" \"Importer et cacher l'autre symbole\" T) (\"N\" \"Ne rien faire\"NIL))")
  389.   LISPOBJ_L(export_string1,
  390.     /* DEUTSCH */ "\"Sie dⁿrfen ⁿber das weitere Vorgehen entscheiden.\"",
  391.     /* ENGLISH */ "\"You may choose how to proceed.\"",
  392.     /* FRANCAIS */ "\"Vous pouvez dΘcider de la dΘmarche α suivre.\"")
  393.   LISPOBJ_L(export_string2,
  394.     /* DEUTSCH */ "\"Symbol ~S mⁿ▀te erst in ~S importiert werden, bevor es exportiert werden kann.\"",
  395.     /* ENGLISH */ "\"symbol ~S should be imported into ~S before being exported.\"",
  396.     /* FRANCAIS */ "\"Le symbole ~S devrait d'abord Ωtre importΘ avant de pouvoir Ωtre exportΘ.\"")
  397.   LISPOBJ_L(export_list1,
  398.     /* DEUTSCH */ "((\"I\" \"Symbol erst importieren\" T)"
  399.                   " (\"N\" \"Nichts tun, Symbol nicht exportieren\" NIL))",
  400.     /* ENGLISH */ "((\"I\" \"import the symbol first\" T)"
  401.                   " (\"N\" \"do nothing, don't export the symbol\" NIL))",
  402.     /* FRANCAIS */ "((\"I\" \"Tout d'abord importer le symbole\" NIL)"
  403.                    " (\"N\" \"Ne rien faire, ne pas exporter le symbole\" T))")
  404.   LISPOBJ_L(export_string3,
  405.     /* DEUTSCH */ "\"Sie dⁿrfen aussuchen, welches Symbol Vorrang hat.\"",
  406.     /* ENGLISH */ "\"You may choose in favour of which symbol to resolve the conflict.\"",
  407.     /* FRANCAIS */ "\"Vous pouvez choisir α quel symbole donner prioritΘ.\"")
  408.   LISPOBJ_L(export_string4,
  409.     /* DEUTSCH */ "\"Durch Exportieren von ~S aus ~S ergibt sich ein Namenskonflikt mit ~S in ~S.\"",
  410.     /* ENGLISH */ "\"exporting ~S from ~S produces a name conflict with ~S from ~S.\"",
  411.     /* FRANCAIS */ "\"Un conflit de noms apparaεt par l'exportation de ~S depuis ~S avec ~S de ~S.\"")
  412.   LISPOBJ_L(export_string5,
  413.     /* DEUTSCH */ "\"Welches Symbol soll in \"",
  414.     /* ENGLISH */ "\"Which symbol should be accessible in \"",
  415.     /* FRANCAIS */ "\"Quel symbole devrait obtenir la prioritΘ dans \"")
  416.   LISPOBJ_L(export_string6,
  417.     /* DEUTSCH */ "\" Vorrang haben?\"",
  418.     /* ENGLISH */ "\" ?\"",
  419.     /* FRANCAIS */ "\" ?\"")
  420.   LISPOBJ(export_string7,"\"1\"")
  421.   LISPOBJ(export_string8,"\"2\"")
  422.   LISPOBJ_L(export_string9,
  423.     /* DEUTSCH */ "\"Das zu exportierende Symbol \"",
  424.     /* ENGLISH */ "\"the symbol to export, \"",
  425.     /* FRANCAIS */ "\"Le symbole α exporter \"")
  426.   LISPOBJ_L(export_string10,
  427.     /* DEUTSCH */ "\"Das alte Symbol \"",
  428.     /* ENGLISH */ "\"the old symbol, \"",
  429.     /* FRANCAIS */ "\"Le symbole original \"")
  430.   LISPOBJ_L(usepack_string1,
  431.     /* DEUTSCH */ "\"Sie dⁿrfen bei jedem Konflikt angeben, welches Symbol Vorrang haben soll.\"",
  432.     /* ENGLISH */ "\"You may choose for every conflict in favour of which symbol to resolve it.\"",
  433.     /* FRANCAIS */ "\"Pour chaque conflit, vous pouvez choisir α quel symbole donner prioritΘ.\"")
  434.   LISPOBJ_L(usepack_string2,
  435.     /* DEUTSCH */ "\"~S Namenskonflikte bei USE-PACKAGE von ~S in die Package ~S.\"",
  436.     /* ENGLISH */ "\"~S name conflicts while executing USE-PACKAGE of ~S into package ~S.\"",
  437.     /* FRANCAIS */ "\"~S conflits de nom par USE-PACKAGE de ~S dans le paquetage ~S.\"")
  438.   LISPOBJ_L(usepack_string3,
  439.     /* DEUTSCH */ "\"Welches Symbol mit dem Namen \"",
  440.     /* ENGLISH */ "\"which symbol with name \"",
  441.     /* FRANCAIS */ "\"└ quel symbole de nom \"")
  442.   LISPOBJ_L(usepack_string4,
  443.     /* DEUTSCH */ "\" soll in \"",
  444.     /* ENGLISH */ "\" should be accessible in \"",
  445.     /* FRANCAIS */ "\" donner prioritΘ dans \"")
  446.   LISPOBJ_L(usepack_string5,
  447.     /* DEUTSCH */ "\" Vorrang haben?\"",
  448.     /* ENGLISH */ "\" ?\"",
  449.     /* FRANCAIS */ "\" ?\"")
  450.   LISPOBJ_L(makepack_string1,
  451.     /* DEUTSCH */ "\"Sie dⁿrfen einen neuen Namen eingeben.\"",
  452.     /* ENGLISH */ "\"You can input another name.\"",
  453.     /* FRANCAIS */ "\"Vous pouvez entrer un nouveau nom.\"")
  454.   LISPOBJ_L(makepack_string2,
  455.     /* DEUTSCH */ "\"Sie dⁿrfen einen neuen Nickname eingeben.\"",
  456.     /* ENGLISH */ "\"You can input another nickname.\"",
  457.     /* FRANCAIS */ "\"Vous pouvez entrer un nouveau nom supplΘmentaire.\"")
  458.   LISPOBJ_L(makepack_string3,
  459.     /* DEUTSCH */ "\"Eine Package mit dem Namen ~S gibt es schon.\"",
  460.     /* ENGLISH */ "\"a package with name ~S already exists.\"",
  461.     /* FRANCAIS */ "\"Il existe dΘjα un paquetage de nom ~S.\"")
  462.   LISPOBJ_L(makepack_string4,
  463.     /* DEUTSCH */ "\"Bitte neuen Packagenamen eingeben:\"",
  464.     /* ENGLISH */ "\"Please input new package name:\"",
  465.     /* FRANCAIS */ "\"PriΦre d'entrer un nouveau nom de paquetage :\"")
  466.   LISPOBJ_L(makepack_string5,
  467.     /* DEUTSCH */ "\"Bitte neuen Packagenickname eingeben:\"",
  468.     /* ENGLISH */ "\"Please input new package nickname:\"",
  469.     /* FRANCAIS */ "\"PriΦre d'entrer un nouveau nom supplΘmentaire du paquetage :\"")
  470.   # Default-Use-List:
  471.   LISPOBJ(use_default,"(\"LISP\")")
  472. # zu SYMBOL.D:
  473.   # Status von gensym:
  474.   LISPOBJ(gensym_prefix,"\"G\"") # PrΣfix fⁿr gensym, ein String
  475.   LISPOBJ(gensym_count,"0") # ZΣhler fⁿr gensym, ein Integer >=0
  476. # zu MISC.D:
  477.   # Eigenwissen:
  478.   LISPOBJ(lisp_implementation_type_string,"\"CLISP\"")
  479.   LISPOBJ_L(lisp_implementation_version_string,
  480.     "\"" VERSION " (Januar 1995)\"",  # DEUTSCH
  481.     "\"" VERSION " (January 1995)\"", # ENGLISH
  482.     "\"" VERSION " (Janvier 1995)\""  # FRANCAIS
  483.   # "\"" VERSION " (Februar 1995)\"",  # DEUTSCH
  484.   # "\"" VERSION " (February 1995)\"", # ENGLISH
  485.   # "\"" VERSION " (FΘvrier 1995)\""   # FRANCAIS
  486.   # "\"" VERSION " (MΣrz 1995)\"",  # DEUTSCH
  487.   # "\"" VERSION " (March 1995)\"", # ENGLISH
  488.   # "\"" VERSION " (Mars 1995)\""   # FRANCAIS
  489.   # "\"" VERSION " (April 1995)\"", # DEUTSCH
  490.   # "\"" VERSION " (April 1995)\"", # ENGLISH
  491.   # "\"" VERSION " (Avril 1995)\""  # FRANCAIS
  492.   # "\"" VERSION " (Mai 1995)\"", # DEUTSCH
  493.   # "\"" VERSION " (May 1995)\"", # ENGLISH
  494.   # "\"" VERSION " (Mai 1995)\""  # FRANCAIS
  495.   # "\"" VERSION " (Juni 1995)\"", # DEUTSCH
  496.   # "\"" VERSION " (June 1995)\"", # ENGLISH
  497.   # "\"" VERSION " (Juin 1995)\""  # FRANCAIS
  498.   # "\"" VERSION " (Juli 1995)\"",   # DEUTSCH
  499.   # "\"" VERSION " (July 1995)\"",   # ENGLISH
  500.   # "\"" VERSION " (Juillet 1995)\"" # FRANCAIS
  501.   # "\"" VERSION " (August 1995)\"", # DEUTSCH
  502.   # "\"" VERSION " (August 1995)\"", # ENGLISH
  503.   # "\"" VERSION " (Ao√t 1995)\""    # FRANCAIS
  504.   # "\"" VERSION " (September 1995)\"", # DEUTSCH
  505.   # "\"" VERSION " (September 1995)\"", # ENGLISH
  506.   # "\"" VERSION " (Septembre 1995)\""  # FRANCAIS
  507.   # "\"" VERSION " (Oktober 1995)\"", # DEUTSCH
  508.   # "\"" VERSION " (October 1995)\"", # ENGLISH
  509.   # "\"" VERSION " (Octobre 1995)\""  # FRANCAIS
  510.   # "\"" VERSION " (November 1995)\"", # DEUTSCH
  511.   # "\"" VERSION " (November 1995)\"", # ENGLISH
  512.   # "\"" VERSION " (Novembre 1995)\""  # FRANCAIS
  513.   # "\"" VERSION " (Dezember 1995)\"", # DEUTSCH
  514.   # "\"" VERSION " (December 1995)\"", # ENGLISH
  515.   # "\"" VERSION " (DΘcembre 1995)\""  # FRANCAIS
  516.   )
  517.   LISPOBJ(version,"( #.(fifth *features*)" # Symbol SYS::CLISP2 bzw. SYS::CLISP3
  518.                    " #.sys::*jmpbuf-size*" # Zahl *jmpbuf-size*
  519.                    " #.sys::*big-endian*"  # Flag *big-endian*
  520.                    " 161294" # Datum der letzten ─nderung des Bytecode-Interpreters
  521.                   ")"
  522.          )
  523.   #ifdef MACHINE_KNOWN
  524.     LISPOBJ(machine_type_string,"NIL")
  525.     LISPOBJ(machine_version_string,"NIL")
  526.     LISPOBJ(machine_instance_string,"NIL")
  527.   #endif
  528.   LISPOBJ_L(software_type_string,
  529.     /* DEUTSCH */ "\"ANSI-C-Programm\"",
  530.     /* ENGLISH */ "\"ANSI C program\"",
  531.     /* FRANCAIS */ "\"Programme en ANSI C\"")
  532.  #ifdef GNU
  533.   LISPOBJ_L(software_version_string,
  534.     /* DEUTSCH */ "\"GNU-C " __VERSION__ "\"",
  535.     /* ENGLISH */ "\"GNU C " __VERSION__ "\"",
  536.     /* FRANCAIS */ "\"GNU C " __VERSION__ "\"")
  537.  #else
  538.   LISPOBJ_L(software_version_string,
  539.     /* DEUTSCH */ "\"C-Compiler\"",
  540.     /* ENGLISH */ "\"C compiler\"",
  541.     /* FRANCAIS */ "\"Compilateur C\"")
  542.  #endif
  543.  #ifdef TIME_RELATIVE
  544.   # Start-Universal-Time:
  545.   LISPOBJ(start_UT,"NIL")
  546.  #endif
  547. # zu ERROR.D:
  548.   # Errormeldungs-Startstring:
  549.   LISPOBJ(error_string1,"\"*** - \"")
  550.   # Vektor mit Conditions und Simple-Conditions:
  551.   LISPOBJ(error_types,"#()")
  552.   # fⁿr Errors vom Typ TYPE-ERROR:
  553.   LISPOBJ(type_uint8,"(INTEGER 0 255)") # oder "(UNSIGNED-BYTE 8)"
  554.   LISPOBJ(type_sint8,"(INTEGER -128 127)") # oder "(SIGNED-BYTE 8)"
  555.   LISPOBJ(type_uint16,"(INTEGER 0 65535)") # oder "(UNSIGNED-BYTE 16)"
  556.   LISPOBJ(type_sint16,"(INTEGER -32768 32767)") # oder "(SIGNED-BYTE 16)"
  557.   LISPOBJ(type_uint32,"(INTEGER 0 4294967295)") # oder "(UNSIGNED-BYTE 32)"
  558.   LISPOBJ(type_sint32,"(INTEGER -2147483648 2147483647)") # oder "(SIGNED-BYTE 32)"
  559.   LISPOBJ(type_uint64,"(INTEGER 0 18446744073709551615)") # oder "(UNSIGNED-BYTE 64)"
  560.   LISPOBJ(type_sint64,"(INTEGER -9223372036854775808 9223372036854775807)") # oder "(SIGNED-BYTE 64)"
  561.   LISPOBJ(type_array_index,"(INTEGER 0 (#.ARRAY-DIMENSION-LIMIT))")
  562.   LISPOBJ(type_array_bit,"(ARRAY BIT)")
  563.   LISPOBJ(type_posfixnum,"(INTEGER 0 #.MOST-POSITIVE-FIXNUM)")
  564.   LISPOBJ(type_posfixnum1,"(INTEGER (0) #.MOST-POSITIVE-FIXNUM)")
  565.   LISPOBJ(type_array_rank,"(INTEGER 0 (#.ARRAY-RANK-LIMIT))")
  566.   LISPOBJ(type_radix,"(INTEGER 2 36)")
  567.   LISPOBJ(type_bitname,"(MEMBER :CONTROL :META :SUPER :HYPER)")
  568.   LISPOBJ(type_end_index,"(OR NULL INTEGER)")
  569.   LISPOBJ(type_posinteger,"(INTEGER 0 *)")
  570.   LISPOBJ(type_stringsymchar,"(OR STRING SYMBOL STRING-CHAR)")
  571.   LISPOBJ(type_svector2,"(SIMPLE-VECTOR 2)")
  572.   LISPOBJ(type_svector5,"(SIMPLE-VECTOR 5)")
  573.   LISPOBJ(type_climb_mode,"(INTEGER 1 5)")
  574.   LISPOBJ(type_hashtable_test,"(MEMBER EQ EQL EQUAL #.#'EQ #.#'EQL #.#'EQUAL)")
  575.   LISPOBJ(type_hashtable_size,"(INTEGER 0 #.(floor (- most-positive-fixnum 1) 2))")
  576.   LISPOBJ(type_hashtable_rehash_size,"(FLOAT (1.0) *)")
  577.   LISPOBJ(type_hashtable_rehash_threshold,"(FLOAT 0.0 1.0)")
  578.   LISPOBJ(type_boole,"(INTEGER 0 15)")
  579.   LISPOBJ(type_not_digit,"(AND CHARACTER (NOT (SATISFIES DIGIT-CHAR-P)))")
  580.   LISPOBJ(type_rtcase,"(MEMBER :UPCASE :DOWNCASE :PRESERVE)")
  581.   LISPOBJ(type_peektype,"(OR (MEMBER NIL T) CHARACTER)")
  582.   LISPOBJ(type_printcase,"(MEMBER :UPCASE :DOWNCASE :CAPITALIZE)")
  583.   LISPOBJ(type_random_arg,"(OR (INTEGER (0) *) (FLOAT (0.0) *))")
  584.   LISPOBJ(type_packname,"(OR PACKAGE STRING SYMBOL)")
  585.   LISPOBJ(type_stringsym,"(OR STRING SYMBOL)")
  586.   LISPOBJ(type_posint16,"(INTEGER (0) (65536))")
  587.   LISPOBJ(type_gensym_arg,"(OR STRING INTEGER)")
  588.   LISPOBJ(type_uint8_vector,"(ARRAY (UNSIGNED-BYTE 8) (*))")
  589.   LISPOBJ(type_position,"(OR (MEMBER :START :END) (INTEGER 0 #.MOST-POSITIVE-FIXNUM))")
  590.  #if HAS_HOST || defined(LOGICAL_PATHNAMES)
  591.   LISPOBJ(type_host,"(OR NULL STRING)")
  592.  #endif
  593.  #if HAS_VERSION || defined(LOGICAL_PATHNAMES)
  594.   LISPOBJ(type_version,"(OR (MEMBER NIL :WILD :NEWEST) (INTEGER (0) #.MOST-POSITIVE-FIXNUM) PATHNAME)")
  595.  #else
  596.   LISPOBJ(type_version,"(MEMBER NIL :WILD :NEWEST)")
  597.  #endif
  598.   LISPOBJ(type_direction,"(MEMBER :INPUT :INPUT-IMMUTABLE :OUTPUT :IO :PROBE)")
  599.   LISPOBJ(type_if_exists,"(MEMBER :ERROR :NEW-VERSION :RENAME :RENAME-AND-DELETE :OVERWRITE :APPEND :SUPERSEDE NIL)")
  600.   LISPOBJ(type_if_does_not_exist,"(MEMBER :ERROR :CREATE NIL)")
  601.   LISPOBJ(type_pathname_field_key,"(MEMBER :HOST :DEVICE :DIRECTORY :NAME :TYPE :VERSION NIL)")
  602.  #ifdef LOGICAL_PATHNAMES
  603.   LISPOBJ(type_logical_pathname,"(OR LOGICAL-PATHNAME STRING STREAM SYMBOL)")
  604.  #endif
  605. # zu PATHNAME.D:
  606.  #ifdef LOGICAL_PATHNAMES
  607.   LISPOBJ(empty_logical_pathname,".") # (schon initialisiert)
  608.   LISPOBJ(default_logical_pathname_host,"\"SYS\"")
  609.  #endif
  610.   LISPOBJ(leer_string,"\"\"")
  611.   LISPOBJ(wild_string,"\"*\"")
  612.   LISPOBJ(doppelpunkt_string,"\":\"")
  613.  #if defined(PATHNAME_ATARI) || defined(PATHNAME_MSDOS) || defined(PATHNAME_OS2)
  614.   LISPOBJ(backslash_string,"\"\\\\\"")
  615.  #endif
  616.  #if defined(PATHNAME_UNIX) || defined(PATHNAME_AMIGAOS)
  617.   LISPOBJ(slash_string,"\"/\"")
  618.  #endif
  619.   LISPOBJ(punkt_string,"\".\"")
  620.  #if defined(PATHNAME_ATARI) || defined(PATHNAME_MSDOS) || defined(PATHNAME_OS2) || defined(PATHNAME_UNIX) || defined(PATHNAME_AMIGAOS)
  621.   LISPOBJ(punktpunkt_string,"\"..\"")
  622.   LISPOBJ(punktpunktpunkt_string,"\"...\"")
  623.  #endif
  624.  #ifdef PATHNAME_RISCOS
  625.   LISPOBJ(parent_string,"\"^\"")
  626.   LISPOBJ(root_string,"\"$.\"")
  627.   LISPOBJ(home_string,"\"&.\"")
  628.   LISPOBJ(current_string,"\"@.\"")
  629.   LISPOBJ(library_string,"\"%.\"")
  630.   LISPOBJ(previous_string,"\"\\\\.\"")
  631.  #endif
  632.  #if defined(PATHNAME_ATARI) || defined(PATHNAME_MSDOS) || defined(PATHNAME_OS2)
  633.   LISPOBJ(wild_wild_string,"\"*.*\"")
  634.  #endif
  635.   LISPOBJ(null_string,"\"0\"") # String aus einem Nullbyte
  636.  #if defined(PATHNAME_ATARI) || defined(PATHNAME_MSDOS)
  637.   LISPOBJ(backuptype_string,"\"BAK\"") # Filetyp von Backupfiles
  638.  #endif
  639.  #ifdef PATHNAME_OS2
  640.   LISPOBJ(backuptype_string,"\"bak\"") # Filetyp von Backupfiles
  641.  #endif
  642.  #ifdef PATHNAME_AMIGAOS
  643.   LISPOBJ(backupextend_string,"\".bak\"") # Namenserweiterung von Backupfiles
  644.  #endif
  645.  #ifdef PATHNAME_UNIX
  646.   LISPOBJ(backupextend_string,"\"%\"") # Namenserweiterung von Backupfiles
  647.  #endif
  648.  #ifdef PATHNAME_RISCOS
  649.   LISPOBJ(backupprepend_string,"\"~\"") # Namenserweiterung von Backupfiles
  650.  #endif
  651.  #if defined(PATHNAME_ATARI) || defined(PATHNAME_MSDOS) || defined(PATHNAME_OS2)
  652.   # Default-Drive (als String der LΣnge 1):
  653.   LISPOBJ(default_drive,"NIL")
  654.  #endif
  655.  #ifdef PATHNAME_ATARI
  656.   # Aliste Drive -> Aliste der Default-Directories
  657.   LISPOBJ(drive_alist,"NIL")
  658.  #endif
  659.  #if defined(PATHNAME_UNIX) || defined(PATHNAME_AMIGAOS) || defined(PATHNAME_OS2)
  660.   LISPOBJ(wildwild_string,"\"**\"")
  661.   LISPOBJ(directory_absolute,"(:ABSOLUTE)") # Directory des leeren absoluten Pathname
  662.  #endif
  663.  #ifdef PATHNAME_RISCOS
  664.   LISPOBJ(directory_absolute,"(:ABSOLUTE :ROOT)") # Directory des leeren absoluten Pathname
  665.   LISPOBJ(directory_homedir,"(:ABSOLUTE :HOME)") # Directory des User-Homedir-Pathname
  666.  #endif
  667.  #ifdef USER_HOMEDIR
  668.   LISPOBJ(user_homedir,"#\".\"") # User-Homedir-Pathname
  669.  #endif
  670.  #ifdef HAVE_SHELL
  671.  #ifdef ATARI
  672.   LISPOBJ(shell_prompt,"\"$ \"") # Prompt der "Shell"
  673.   LISPOBJ(shell_exit,"\"exit\"") # Exit-Kommando der "Shell"
  674.   LISPOBJ(shell_help,"\"help\"") # Help-Kommando der "Shell"
  675.   LISPOBJ_L(shell_helpstring, # Hilfestring in der "Shell"
  676.     /* DEUTSCH */ "\"Mit EXIT zurⁿck zum Lisp.\"",
  677.     /* ENGLISH */ "\"Type EXIT to return to Lisp.\"",
  678.     /* FRANCAIS */ "\"Tapez EXIT pour retourner au Lisp.\"")
  679.  #endif
  680.  #ifdef UNIX
  681.   LISPOBJ(command_shell,"\""SHELL"\"") # Kommando-Shell als String
  682.   LISPOBJ(command_shell_option,"\"-c\"") # Kommando-Shell-Option fⁿr Kommando
  683.   LISPOBJ(user_shell,"\"/bin/csh\"") # User-Shell als String
  684.  #endif
  685.  #ifdef MSDOS
  686.   #if !defined(WINDOWS)
  687.   LISPOBJ(command_shell,"\"\\\\COMMAND.COM\"") # Kommandointerpreter als String
  688.   #else # defined(WINDOWS)
  689.   LISPOBJ(command_shell,"\"DOSPRMPT.PIF\"") # Kommandointerpreter als String
  690.   #endif
  691.   LISPOBJ(command_shell_option,"\"/C\"") # Kommandointerpreter-Option fⁿr Kommando
  692.  #endif
  693.  #ifdef RISCOS
  694.   LISPOBJ(command_shell,"\"gos\"")
  695.  #endif
  696.  #endif
  697.   # Liste aller offenen File-Streams, Handle-Streams, Terminal-Streams:
  698.   LISPOBJ(open_files,"NIL")
  699.  #ifdef GC_CLOSES_FILES
  700.   # WΣhrend der GC: die Liste der nach der GC zu schlie▀enden File-Streams:
  701.   LISPOBJ(files_to_close,"NIL")
  702.  #endif
  703.   # Argumentliste fⁿr WRITE-TO-STRING :
  704.   LISPOBJ(base10_radixnil,"(:BASE 10 :RADIX NIL)")
  705.   # Defaults-Warnungs-String:
  706.   LISPOBJ_L(defaults_warn_string,
  707.     /* DEUTSCH */ "\"Der Wert von ~S war kein Pathname. ~:*~S wird zurⁿckgesetzt.\"",
  708.     /* ENGLISH */ "\"The value of ~S was not a pathname. ~:*~S is being reset.\"",
  709.     /* FRANCAIS */ "\"La valeur de ~S n'Θtait pas de type PATHNAME. ~:*~S est rΘinitialisΘ.\"")
  710.  #if HAS_SERNR
  711.   # Cerror-String bei falscher Diskette:
  712.   LISPOBJ_L(otherdisk_string1,
  713.     /* DEUTSCH */ "\"Es geht weiter.\"",
  714.     /* ENGLISH */ "\"let's continue\"",
  715.     /* FRANCAIS */ "\"Continuons.\"")
  716.   LISPOBJ_L(otherdisk_string2,
  717.     /* DEUTSCH */ "\"Legen Sie bitte die Diskette mit der Nummer ~D in Laufwerk ~A.\"",
  718.     /* ENGLISH */ "\"Put disk with number ~D in Drive ~A\"",
  719.     /* FRANCAIS */ "\"PriΦre d'insΘrer la disquette numΘro ~D dans le ½drive╗ ~A.\"")
  720.  #endif
  721.   # Defaultwert fⁿr :DIRECTORY-Argument:
  722.   #if HAS_SERNR
  723.   LISPOBJ(directory_default,"(NIL :RELATIVE)")
  724.   #else
  725.   LISPOBJ(directory_default,"(:RELATIVE)")
  726.   #endif
  727.   # Defaults fⁿr COMPILE-FILE-Aufruf in SPVW:
  728.   LISPOBJ(source_file_type,"#\".lsp\"")
  729.   LISPOBJ(compiled_file_type,"#\".fas\"")
  730.   LISPOBJ(listing_file_type,"#\".lis\"")
  731. # zu STREAM.D:
  732.  #ifdef PRINTER_ATARI
  733.   # Warnungs-String:
  734.   LISPOBJ_L(printer_timeout_warnung_string,
  735.     /* DEUTSCH */ "\"Der Wert von ~S war keine ganze Zahl zwischen 0 und 12000. Er wird auf 1000 gesetzt.\"",
  736.     /* ENGLISH */ "\"The value of ~S was not an integer between 0 and 12000. It is being set to 1000.\"",
  737.     /* FRANCAIS */ "\"La valeur de ~S n'Θtait pas un nombre entier compris entre 0 et 12000. Elle fut fixΘe α 1000.\"")
  738.   # Cerror-String bei streikendem Drucker:
  739.   LISPOBJ_L(druckerstreik_string1,
  740.     /* DEUTSCH */ "\"Neuer Versuch.\"",
  741.     /* ENGLISH */ "\"Retry\"",
  742.     /* FRANCAIS */ "\"Nouvel essai.\"")
  743.   LISPOBJ_L(druckerstreik_string2,
  744.     /* DEUTSCH */ "\"Drucker nicht angeschlossen oder off-line.\"",
  745.     /* ENGLISH */ "\"Printer not connected or off-line\"",
  746.     /* FRANCAIS */ "\"Imprimante non connectΘe ou bien ½off-line╗.\"")
  747.  #endif
  748. # zu IO.D:
  749.   # 4 Bitnamen:
  750.   LISPOBJ(bitname_0,"\"CONTROL\"")
  751.   LISPOBJ(bitname_1,"\"META\"")
  752.   LISPOBJ(bitname_2,"\"SUPER\"")
  753.   LISPOBJ(bitname_3,"\"HYPER\"")
  754.   # 3 Readtable-Case-Werte:
  755.   LISPOBJ(rtcase_0,":UPCASE")
  756.   LISPOBJ(rtcase_1,":DOWNCASE")
  757.   LISPOBJ(rtcase_2,":PRESERVE")
  758.  # zum Reader:
  759.   # Standard-Readtable von Common Lisp
  760.   LISPOBJ(standard_readtable,".")
  761.   # PrΣfix fⁿr Character-Namen:
  762.   LISPOBJ(charname_prefix,"\"Code\"")
  763.   # interne Variablen des Readers:
  764.   LISPOBJ(token_buff_1,".")
  765.   LISPOBJ(token_buff_2,".")
  766.   LISPOBJ(displaced_string,".")
  767.  # zum Printer:
  768.   # beim Ausgeben von Objekten verwendete Teilstrings:
  769.   LISPOBJ(printstring_array,"\"ARRAY\"")
  770.   LISPOBJ(printstring_fill_pointer,"\"FILL-POINTER=\"")
  771.   LISPOBJ(printstring_address,"\"ADDRESS\"")
  772.   LISPOBJ(printstring_system,"\"SYSTEM-POINTER\"")
  773.   LISPOBJ(printstring_frame_pointer,"\"FRAME-POINTER\"")
  774.   LISPOBJ(printstring_read_label,"\"READ-LABEL\"")
  775.   LISPOBJ(printstring_unbound,"\"#<UNBOUND>\"")
  776.   LISPOBJ(printstring_special_reference,"\"#<SPECIAL REFERENCE>\"")
  777.   LISPOBJ(printstring_disabled_pointer,"\"#<DISABLED POINTER>\"")
  778.   LISPOBJ(printstring_dot,"\"#<DOT>\"")
  779.   LISPOBJ(printstring_eof,"\"#<END OF FILE>\"")
  780.   LISPOBJ(printstring_hash_table,"\"HASH-TABLE\"")
  781.   LISPOBJ(printstring_package,"\"PACKAGE\"")
  782.   LISPOBJ(printstring_readtable,"\"READTABLE\"")
  783.   LISPOBJ(pathname_slotlist,"#.(list (cons :HOST #'pathname-host) (cons :DEVICE #'pathname-device) (cons :DIRECTORY #'pathname-directory) (cons :NAME #'pathname-name) (cons :TYPE #'pathname-type) (cons :VERSION #'pathname-version))")
  784.   LISPOBJ(byte_slotlist,"#.(list (cons :SIZE #'byte-size) (cons :POSITION #'byte-position))")
  785.   LISPOBJ(printstring_symbolmacro,"\"SYMBOL-MACRO\"")
  786.   #ifdef ALIEN
  787.   LISPOBJ(printstring_alienfun,"\"ALIEN-FUNCTION\"")
  788.   LISPOBJ(printstring_alien,"\"ALIEN\"")
  789.   #endif
  790.   LISPOBJ(printstring_closure,"\"CLOSURE\"")
  791.   LISPOBJ(printstring_generic_function,"\"GENERIC-FUNCTION\"")
  792.   LISPOBJ(printstring_compiled_closure,"\"COMPILED-CLOSURE\"")
  793.   LISPOBJ(printstring_subr,"\"SYSTEM-FUNCTION\"")
  794.   LISPOBJ(printstring_foreign_subr,"\"FOREIGN-FUNCTION\"")
  795.   LISPOBJ(printstring_fsubr,"\"SPECIAL-FORM\"")
  796.   LISPOBJ(printstring_closed,"\"CLOSED \"")
  797.     # Namensstring zu jedem Streamtyp, adressiert durch Streamtyp:
  798.     LISPOBJ(printstring_strmtype_sch_file,"\"STRING-CHAR-FILE\"")
  799.     LISPOBJ(printstring_strmtype_ch_file,"\"CHAR-FILE\"")
  800.     LISPOBJ(printstring_strmtype_iu_file,"\"UNSIGNED-BYTE-FILE\"")
  801.     LISPOBJ(printstring_strmtype_is_file,"\"SIGNED-BYTE-FILE\"")
  802.     #ifdef HANDLES
  803.     LISPOBJ(printstring_strmtype_handle,"\"FILE-HANDLE\"")
  804.     #endif
  805.     #ifdef KEYBOARD
  806.     LISPOBJ(printstring_strmtype_keyboard,"\"KEYBOARD\"")
  807.     #endif
  808.     LISPOBJ(printstring_strmtype_terminal,"\"TERMINAL\"")
  809.     LISPOBJ(printstring_strmtype_synonym,"\"SYNONYM\"")
  810.     LISPOBJ(printstring_strmtype_broad,"\"BROADCAST\"")
  811.     LISPOBJ(printstring_strmtype_concat,"\"CONCATENATED\"")
  812.     LISPOBJ(printstring_strmtype_twoway,"\"TWO-WAY\"")
  813.     LISPOBJ(printstring_strmtype_echo,"\"ECHO\"")
  814.     LISPOBJ(printstring_strmtype_str_in,"\"STRING-INPUT\"")
  815.     LISPOBJ(printstring_strmtype_str_out,"\"STRING-OUTPUT\"")
  816.     LISPOBJ(printstring_strmtype_str_push,"\"STRING-PUSH\"")
  817.     LISPOBJ(printstring_strmtype_pphelp,"\"PRETTY-PRINTER-HELP\"")
  818.     LISPOBJ(printstring_strmtype_buff_in,"\"BUFFERED-INPUT\"")
  819.     LISPOBJ(printstring_strmtype_buff_out,"\"BUFFERED-OUTPUT\"")
  820.     #ifdef SCREEN
  821.     LISPOBJ(printstring_strmtype_window,"\"WINDOW\"")
  822.     #endif
  823.     #ifdef PRINTER
  824.     LISPOBJ(printstring_strmtype_printer,"\"PRINTER\"")
  825.     #endif
  826.     #ifdef PIPES
  827.     LISPOBJ(printstring_strmtype_pipe_in,"\"PIPE-INPUT\"")
  828.     LISPOBJ(printstring_strmtype_pipe_out,"\"PIPE-OUTPUT\"")
  829.     #endif
  830.     #ifdef SOCKETS
  831.     LISPOBJ(printstring_strmtype_socket,"\"SOCKET\"")
  832.     #endif
  833.     #ifdef GENERIC_STREAMS
  834.     LISPOBJ(printstring_strmtype_generic,"\"GENERIC\"")
  835.     #endif
  836.   LISPOBJ(printstring_stream,"\"-STREAM\"")
  837. # zu LISPARIT.D:
  838.   # verschiedene konstante Zahlen:
  839.   #ifndef WIDE
  840.   LISPOBJ(FF_zero,"0.0F0")
  841.   LISPOBJ(FF_one,"1.0F0")
  842.   LISPOBJ(FF_minusone,"-1.0F0")
  843.   #endif
  844.   LISPOBJ(DF_zero,"0.0D0")
  845.   LISPOBJ(DF_one,"1.0D0")
  846.   LISPOBJ(DF_minusone,"-1.0D0")
  847.   # DefaultlΣnge beim Einlesen von Long-Floats (Integer >=LF_minlen, <2^intCsize):
  848.   LISPOBJ(LF_digits,".") # (schon initialisiert)
  849.   # variable Long-Floats: (schon initialisiert)
  850.   LISPOBJ(SF_pi,".")   # Wert von pi als Short-Float
  851.   LISPOBJ(FF_pi,".")   # Wert von pi als Single-Float
  852.   LISPOBJ(DF_pi,".")   # Wert von pi als Double-Float
  853.   LISPOBJ(pi,".")      # Wert von pi, Long-Float der DefaultlΣnge
  854.   LISPOBJ(LF_pi,".")   # Wert von pi, so genau wie bekannt
  855.   LISPOBJ(LF_ln2,".")  # Wert von ln 2, so genau wie bekannt
  856.   LISPOBJ(LF_ln10,".") # Wert von ln 10, so genau wie bekannt
  857.   # Warnungs-String:
  858.   LISPOBJ_L(default_float_format_warnung_string,
  859.     /* DEUTSCH */ "\"In ~S wurde ein illegaler Wert vorgefunden," NLstring "~S wird auf ~S zurⁿckgesetzt.\"",
  860.     /* ENGLISH */ "\"The variable ~S had an illegal value." NLstring "~S has been reset to ~S.\"",
  861.     /* FRANCAIS */ "\"Une valeur invalide fut trouvΘe dans la variable ~S," NLstring "~S fut rΘinitialisΘ α ~S.\"")
  862. # zu EVAL.D:
  863.   # Toplevel-Deklarations-Environment:
  864.   LISPOBJ(top_decl_env,"(NIL)") # Liste aus O(declaration_types) (wird nachinitialisiert)
  865.   # Decl-Spec mit Liste der zu erkennenden Deklarations-Typen:
  866.   LISPOBJ(declaration_types,"(DECLARATION OPTIMIZE DECLARATION)")
  867. # zu DEBUG.D:
  868.   LISPOBJ(newline_string,"\"" NLstring "\"")
  869.   # Prompts:
  870.   LISPOBJ(prompt_string,"\"> \"")
  871.   LISPOBJ(breakprompt_string,"\". Break> \"")
  872.   # Abschieds-String:
  873.   LISPOBJ_L(bye_string,
  874.     /* DEUTSCH */ "\"Bis bald!\"",
  875.     /* ENGLISH */ "\"Bye.\"",
  876.     /* FRANCAIS */ "\"└ bient⌠t!\"")
  877.   # verschiedene Strings zur Beschreibung des Stacks:
  878.   LISPOBJ(showstack_string_lisp_obj,"\"" NLstring "- \"")
  879.   LISPOBJ(showstack_string_bindung,"\"" NLstring "  | \"")
  880.   LISPOBJ_L(showstack_string_next_env,
  881.     /* DEUTSCH */ "\"" NLstring "  Weiteres Environment: \"",
  882.     /* ENGLISH */ "\"" NLstring "  Next environment: \"",
  883.     /* FRANCAIS */ "\"" NLstring "  prochain environnement : \"")
  884.   LISPOBJ_L(showstack_string_TRAPPED_APPLY_frame,
  885.     /* DEUTSCH */ "\"" NLstring "APPLY-Frame mit Breakpoint fⁿr Aufruf \"",
  886.     /* ENGLISH */ "\"" NLstring "APPLY frame with breakpoint for call \"",
  887.     /* FRANCAIS */ "\"" NLstring "½frame╗ APPLY avec point d'interception pour l'application \"")
  888.   LISPOBJ_L(showstack_string_APPLY_frame,
  889.     /* DEUTSCH */ "\"" NLstring "APPLY-Frame fⁿr Aufruf \"",
  890.     /* ENGLISH */ "\"" NLstring "APPLY frame for call \"",
  891.     /* FRANCAIS */ "\"" NLstring "½frame╗ APPLY pour l'application \"")
  892.   LISPOBJ_L(showstack_string_TRAPPED_EVAL_frame,
  893.     /* DEUTSCH */ "\"" NLstring "EVAL-Frame mit Breakpoint fⁿr Form \"",
  894.     /* ENGLISH */ "\"" NLstring "EVAL frame with breakpoint for form \"",
  895.     /* FRANCAIS */ "\"" NLstring "½frame╗ EVAL avec point d'interception pour la forme \"")
  896.   LISPOBJ_L(showstack_string_EVAL_frame,
  897.     /* DEUTSCH */ "\"" NLstring "EVAL-Frame fⁿr Form \"",
  898.     /* ENGLISH */ "\"" NLstring "EVAL frame for form \"",
  899.     /* FRANCAIS */ "\"" NLstring "½frame╗ EVAL pour la forme \"")
  900.   LISPOBJ_L(showstack_string_DYNBIND_frame,
  901.     /* DEUTSCH */ "\"" NLstring "Variablenbindungs-Frame bindet (~ = dynamisch):\"",
  902.     /* ENGLISH */ "\"" NLstring "frame binding variables (~ = dynamically):\"",
  903.     /* FRANCAIS */ "\"" NLstring "Le ½frame╗ de liaison de variables (~ signifiant dynamique) lie :\"")
  904.   LISPOBJ_L(showstack_string_VAR_frame,
  905.     /* DEUTSCH */ "\"" NLstring "Variablenbindungs-Frame \"",
  906.     /* ENGLISH */ "\"" NLstring "frame binding variables \"",
  907.     /* FRANCAIS */ "\"" NLstring "½frame╗ de liaison de variables \"")
  908.   LISPOBJ_L(showstack_string_FUN_frame,
  909.     /* DEUTSCH */ "\"" NLstring "Funktionsbindungs-Frame \"",
  910.     /* ENGLISH */ "\"" NLstring "frame binding functions \"",
  911.     /* FRANCAIS */ "\"" NLstring "½frame╗ de liaison de fonctions \"")
  912.   LISPOBJ_L(showstack_string_binds,
  913.     /* DEUTSCH */ "\" bindet (~ = dynamisch):\"",
  914.     /* ENGLISH */ "\" binds (~ = dynamically):\"",
  915.     /* FRANCAIS */ "\" lie (~ signifiant dynamiquement) :\"")
  916.   LISPOBJ(showstack_string_zuord,"\" <--> \"")
  917.   LISPOBJ_L(showstack_string_IBLOCK_frame,
  918.     /* DEUTSCH */ "\"" NLstring "Block-Frame \"",
  919.     /* ENGLISH */ "\"" NLstring "block frame \"",
  920.     /* FRANCAIS */ "\"" NLstring "½frame╗ BLOCK \"")
  921.   LISPOBJ_L(showstack_string_NESTED_IBLOCK_frame,
  922.     /* DEUTSCH */ "\"" NLstring "Block-Frame (genestet) \"",
  923.     /* ENGLISH */ "\"" NLstring "nested block frame \"",
  924.     /* FRANCAIS */ "\"" NLstring "½frame╗ BLOCK dΘpilΘ \"")
  925.   LISPOBJ_L(showstack_string_for1,
  926.     /* DEUTSCH */ "\" fⁿr \"",
  927.     /* ENGLISH */ "\" for \"",
  928.     /* FRANCAIS */ "\" pour \"")
  929.   LISPOBJ_L(showstack_string_CBLOCK_frame,
  930.     /* DEUTSCH */ "\"" NLstring "Block-Frame (compiliert) fⁿr \"",
  931.     /* ENGLISH */ "\"" NLstring "compiled block frame for \"",
  932.     /* FRANCAIS */ "\"" NLstring "½frame╗ BLOCK compilΘ pour \"")
  933.   LISPOBJ_L(showstack_string_ITAGBODY_frame,
  934.     /* DEUTSCH */ "\"" NLstring "Tagbody-Frame \"",
  935.     /* ENGLISH */ "\"" NLstring "tagbody frame \"",
  936.     /* FRANCAIS */ "\"" NLstring "½frame╗ TAGBODY \"")
  937.   LISPOBJ_L(showstack_string_NESTED_ITAGBODY_frame,
  938.     /* DEUTSCH */ "\"" NLstring "Tagbody-Frame (genestet) \"",
  939.     /* ENGLISH */ "\"" NLstring "nested tagbody frame \"",
  940.     /* FRANCAIS */ "\"" NLstring "½frame╗ TAGBODY dΘpilΘ \"")
  941.   LISPOBJ_L(showstack_string_for2,
  942.     /* DEUTSCH */ "\" fⁿr\"",
  943.     /* ENGLISH */ "\" for\"",
  944.     /* FRANCAIS */ "\" pour\"")
  945.   LISPOBJ(showstack_string_zuordtag,"\" --> \"")
  946.   LISPOBJ_L(showstack_string_CTAGBODY_frame,
  947.     /* DEUTSCH */ "\"" NLstring "Tagbody-Frame (compiliert) fⁿr \"",
  948.     /* ENGLISH */ "\"" NLstring "compiled tagbody frame for \"",
  949.     /* FRANCAIS */ "\"" NLstring "½frame╗ TAGBODY compilΘ pour \"")
  950.   LISPOBJ_L(showstack_string_CATCH_frame,
  951.     /* DEUTSCH */ "\"" NLstring "Catch-Frame fⁿr Tag \"",
  952.     /* ENGLISH */ "\"" NLstring "catch frame for tag \"",
  953.     /* FRANCAIS */ "\"" NLstring "½frame╗ CATCH pour l'Θtiquette \"")
  954.   LISPOBJ_L(showstack_string_HANDLER_frame,
  955.     /* DEUTSCH */ "\"" NLstring "Handler-Frame fⁿr Conditions\"",
  956.     /* ENGLISH */ "\"" NLstring "handler frame for conditions\"",
  957.     /* FRANCAIS */ "\"" NLstring "½frame╗ HANDLER pour les conditions\"")
  958.   LISPOBJ_L(showstack_string_UNWIND_PROTECT_frame,
  959.     /* DEUTSCH */ "\"" NLstring "Unwind-Protect-Frame\"",
  960.     /* ENGLISH */ "\"" NLstring "unwind-protect frame\"",
  961.     /* FRANCAIS */ "\"" NLstring "½frame╗ UNWIND-PROTECT\"")
  962.   LISPOBJ_L(showstack_string_DRIVER_frame,
  963.     /* DEUTSCH */ "\"" NLstring NLstring "Driver-Frame\"",
  964.     /* ENGLISH */ "\"" NLstring NLstring "driver frame\"",
  965.     /* FRANCAIS */ "\"" NLstring NLstring "½driver frame╗\"")
  966.   LISPOBJ_L(showstack_string_ENV_frame,
  967.     /* DEUTSCH */ "\"" NLstring "Environment-Bindungs-Frame\"",
  968.     /* ENGLISH */ "\"" NLstring "frame binding environments\"",
  969.     /* FRANCAIS */ "\"" NLstring "½frame╗ de liaison d'environnements\"")
  970.   LISPOBJ(showstack_string_VENV_frame,"\"" NLstring "  VAR_ENV <--> \"")
  971.   LISPOBJ(showstack_string_FENV_frame,"\"" NLstring "  FUN_ENV <--> \"")
  972.   LISPOBJ(showstack_string_BENV_frame,"\"" NLstring "  BLOCK_ENV <--> \"")
  973.   LISPOBJ(showstack_string_GENV_frame,"\"" NLstring "  GO_ENV <--> \"")
  974.   LISPOBJ(showstack_string_DENV_frame,"\"" NLstring "  DECL_ENV <--> \"")
  975. # zu REXX.D:
  976.  #ifdef REXX
  977.   LISPOBJ(rexx_inmsg_list,"NIL")
  978.   LISPOBJ(rexx_prefetch_inmsg,"NIL")
  979.  #endif
  980. # zu STDWIN.D:
  981.  #ifdef STDWIN
  982.   LISPOBJ(stdwin_drawproc_alist,"NIL")
  983.  #endif
  984.