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