home *** CD-ROM | disk | FTP | other *** search
/ Il CD di internet / CD.iso / SOURCE / D / CLISP / CLISPSRC.TAR / clisp-1995-01-01 / src / subr.d < prev    next >
Encoding:
Text File  |  1994-12-16  |  33.9 KB  |  1,032 lines
  1. # Liste aller SUBRs
  2. # Bruno Haible 16.12.1994
  3.  
  4. # Eine C-compilierte LISP-Funktion wird definiert durch eine Deklaration
  5. #   LISPFUN(name,req_anz,opt_anz,rest_flag,key_flag,key_anz,keywords)
  6. # in diesem File.
  7. # > name: der Funktionsname (ein C-Identifier)
  8. # > req_anz: die Anzahl der required-Parameter (eine Zahl)
  9. # > opt_anz: die Anzahl der optional-Parameter (eine Zahl)
  10. # > rest_flag: entweder norest oder rest
  11. # > key_flag: entweder nokey oder key oder key_allow
  12. # > key_anz: eine Zahl (0 falls nokey)
  13. # > keywords: entweder NIL oder ein Ausdruck der Form (kw(keyword1),...,kw(keywordn))
  14. #             (NIL falls nokey)
  15.  
  16. # Eine C-compilierte LISP-Funktion mit einer festen Anzahl Argumente
  17. # wird definiert durch die akkⁿrzende Deklaration
  18. #   LISPFUNN(name,req_anz)
  19. # > name: der Funktionsname (ein C-Identifier)
  20. # > req_anz: die (feste) Anzahl der Argumente (eine Zahl)
  21.   #define LISPFUNN(name,req_anz)  \
  22.     LISPFUN(name,req_anz,0,norest,nokey,0,NIL)
  23.  
  24. # ZusΣtzlich mu▀ in einem C-File dieselbe Deklaration samt C-Body stehen.
  25.  
  26.  
  27. # Expander fⁿr die Konstruktion der extern-Deklarationen:
  28.   #define LISPFUN_A(name,req_anz,opt_anz,rest_flag,key_flag,key_anz,keywords)  \
  29.     extern subr_##rest_flag##_function C_##name;
  30.  
  31. # Expander fⁿr die Konstruktion der Deklaration der C-Funktion:
  32.   #define LISPFUN_B(name,req_anz,opt_anz,rest_flag,key_flag,key_anz,keywords)  \
  33.     global Values C_##name subr_##rest_flag##_function_args
  34.   #ifdef ANSI
  35.     #define subr_norest_function_args  (void)
  36.     #define subr_rest_function_args  (reg4 uintC argcount, reg3 object* rest_args_pointer)
  37.   #else
  38.     #define subr_norest_function_args  ()
  39.     #define subr_rest_function_args  (argcount,rest_args_pointer) \
  40.       var reg4 uintC argcount; var reg3 object* rest_args_pointer;
  41.   #endif
  42.  
  43. # Expander fⁿr die Deklaration der SUBR-Tabelle:
  44.   #define LISPFUN_C(name,req_anz,opt_anz,rest_flag,key_flag,key_anz,keywords)  \
  45.     subr_ D_##name;
  46.  
  47. # Expander fⁿr die Initialisierung der SUBR-Tabelle:
  48.   #define LISPFUN_D(name_,req_anz_,opt_anz_,rest_flag_,key_flag_,key_anz_,keywords_)  \
  49.     ptr->function = (lisp_function)(&C_##name_);  \
  50.     ptr->name = S_help_(S_##name_);               \
  51.     ptr->keywords = NIL; # vorlΣufig              \
  52.     ptr->argtype = (uintW)subr_argtype(req_anz_,opt_anz_,subr_##rest_flag_,subr_##key_flag_); \
  53.     ptr->req_anz = req_anz_;                      \
  54.     ptr->opt_anz = opt_anz_;                      \
  55.     ptr->rest_flag = (uintB)subr_##rest_flag_;    \
  56.     ptr->key_flag = (uintB)subr_##key_flag_;      \
  57.     ptr->key_anz = key_anz_;                      \
  58.     ptr++;
  59.   #define LISPFUN_E(name_,req_anz,opt_anz,rest_flag,key_flag,key_anz,keywords)  \
  60.     ptr->name = S_help_(S_##name_); \
  61.     ptr++;
  62.   #define LISPFUN_F(name,req_anz,opt_anz,rest_flag,key_flag,key_anz,keywords)  \
  63.     { (lisp_function)(&C_##name), \
  64.       0, # vorlΣufig              \
  65.       0, # vorlΣufig              \
  66.       0, # vorlΣufig              \
  67.       req_anz,                    \
  68.       opt_anz,                    \
  69.       (uintB)subr_##rest_flag,    \
  70.       (uintB)subr_##key_flag,     \
  71.       key_anz,                    \
  72.     },
  73.   #define LISPFUN_G(name,req_anz,opt_anz,rest_flag,key_flag,key_anz,keywords)  \
  74.     { (lisp_function)(&C_##name), \
  75.       S_help_(S_##name),          \
  76.       NIL, # vorlΣufig            \
  77.       0, # vorlΣufig              \
  78.       req_anz,                    \
  79.       opt_anz,                    \
  80.       (uintB)subr_##rest_flag,    \
  81.       (uintB)subr_##key_flag,     \
  82.       key_anz,                    \
  83.     },
  84.  
  85. # Expander fⁿr die zweite Initialisierung der SUBR-Tabelle:
  86.   #define LISPFUN_H(name,req_anz,opt_anz,rest_flag,key_flag,key_anz,keywords_)  \
  87.     (subr_##key_flag==subr_key) ?            \
  88.       subr_tab.D_##name.keywords =           \
  89.         (vec = allocate_vector(key_anz),     \
  90.          vecptr = &TheSvector(vec)->data[0], \
  91.          (keywords_),                        \
  92.          vec                                 \
  93.         ) : 0;
  94.  
  95. # Welcher Expander benutzt wird, mu▀ vom Hauptfile aus eingestellt werden.
  96. # Default ist   #define LISPFUN LISPFUN_B
  97.  
  98.  
  99. # ---------- SPVW ----------
  100. # keine SUBRs
  101. # ---------- EVAL ----------
  102. LISPFUNN(funtabref,1)
  103. LISPFUNN(subr_info,1)
  104. # ---------- ARRAY ----------
  105. LISPFUN(vector,0,0,rest,nokey,0,NIL)
  106. LISPFUN(aref,1,0,rest,nokey,0,NIL)
  107. LISPFUN(store,2,0,rest,nokey,0,NIL)
  108. LISPFUNN(svref,2)
  109. LISPFUNN(svstore,3)
  110. LISPFUNN(psvstore,3)
  111. LISPFUNN(array_element_type,1)
  112. LISPFUNN(array_rank,1)
  113. LISPFUNN(array_dimension,2)
  114. LISPFUNN(array_dimensions,1)
  115. LISPFUNN(array_total_size,1)
  116. LISPFUN(array_in_bounds_p,1,0,rest,nokey,0,NIL)
  117. LISPFUN(array_row_major_index,1,0,rest,nokey,0,NIL)
  118. LISPFUNN(adjustable_array_p,1)
  119. LISPFUN(bit,1,0,rest,nokey,0,NIL)
  120. LISPFUN(sbit,1,0,rest,nokey,0,NIL)
  121. LISPFUN(bit_and,2,1,norest,nokey,0,NIL)
  122. LISPFUN(bit_ior,2,1,norest,nokey,0,NIL)
  123. LISPFUN(bit_xor,2,1,norest,nokey,0,NIL)
  124. LISPFUN(bit_eqv,2,1,norest,nokey,0,NIL)
  125. LISPFUN(bit_nand,2,1,norest,nokey,0,NIL)
  126. LISPFUN(bit_nor,2,1,norest,nokey,0,NIL)
  127. LISPFUN(bit_andc1,2,1,norest,nokey,0,NIL)
  128. LISPFUN(bit_andc2,2,1,norest,nokey,0,NIL)
  129. LISPFUN(bit_orc1,2,1,norest,nokey,0,NIL)
  130. LISPFUN(bit_orc2,2,1,norest,nokey,0,NIL)
  131. LISPFUN(bit_not,1,1,norest,nokey,0,NIL)
  132. LISPFUNN(array_has_fill_pointer_p,1)
  133. LISPFUNN(fill_pointer,1)
  134. LISPFUNN(set_fill_pointer,2)
  135. LISPFUNN(vector_push,2)
  136. LISPFUNN(vector_pop,1)
  137. LISPFUN(vector_push_extend,2,1,norest,nokey,0,NIL)
  138. LISPFUNN(initial_contents_aux,1)
  139. LISPFUN(make_array,1,0,norest,key,7,
  140.         (kw(adjustable),kw(element_type),kw(initial_element),
  141.          kw(initial_contents),kw(fill_pointer),
  142.          kw(displaced_to),kw(displaced_index_offset)) )
  143. LISPFUN(adjust_array,2,0,norest,key,6,
  144.         (kw(element_type),kw(initial_element),
  145.          kw(initial_contents),kw(fill_pointer),
  146.          kw(displaced_to),kw(displaced_index_offset)) )
  147. LISPFUNN(vector_init,1)
  148. LISPFUNN(vector_upd,2)
  149. LISPFUNN(vector_endtest,2)
  150. LISPFUNN(vector_fe_init,1)
  151. LISPFUNN(vector_fe_upd,2)
  152. LISPFUNN(vector_fe_endtest,2)
  153. LISPFUNN(vector_length,1)
  154. LISPFUNN(vector_init_start,2)
  155. LISPFUNN(vector_fe_init_end,2)
  156. LISPFUNN(make_bit_vector,1)
  157. # ---------- CHARSTRG ----------
  158. LISPFUNN(standard_char_p,1)
  159. LISPFUNN(graphic_char_p,1)
  160. LISPFUNN(string_char_p,1)
  161. LISPFUNN(alpha_char_p,1)
  162. LISPFUNN(upper_case_p,1)
  163. LISPFUNN(lower_case_p,1)
  164. LISPFUNN(both_case_p,1)
  165. LISPFUN(digit_char_p,1,1,norest,nokey,0,NIL)
  166. LISPFUNN(alphanumericp,1)
  167. LISPFUN(char_gleich,1,0,rest,nokey,0,NIL)
  168. LISPFUN(char_ungleich,1,0,rest,nokey,0,NIL)
  169. LISPFUN(char_kleiner,1,0,rest,nokey,0,NIL)
  170. LISPFUN(char_groesser,1,0,rest,nokey,0,NIL)
  171. LISPFUN(char_klgleich,1,0,rest,nokey,0,NIL)
  172. LISPFUN(char_grgleich,1,0,rest,nokey,0,NIL)
  173. LISPFUN(char_equal,1,0,rest,nokey,0,NIL)
  174. LISPFUN(char_not_equal,1,0,rest,nokey,0,NIL)
  175. LISPFUN(char_lessp,1,0,rest,nokey,0,NIL)
  176. LISPFUN(char_greaterp,1,0,rest,nokey,0,NIL)
  177. LISPFUN(char_not_greaterp,1,0,rest,nokey,0,NIL)
  178. LISPFUN(char_not_lessp,1,0,rest,nokey,0,NIL)
  179. LISPFUNN(char_code,1)
  180. LISPFUNN(char_bits,1)
  181. LISPFUNN(char_font,1)
  182. LISPFUN(code_char,1,2,norest,nokey,0,NIL)
  183. LISPFUN(make_char,1,2,norest,nokey,0,NIL)
  184. LISPFUNN(character,1)
  185. LISPFUNN(char_upcase,1)
  186. LISPFUNN(char_downcase,1)
  187. LISPFUN(digit_char,1,2,norest,nokey,0,NIL)
  188. LISPFUNN(char_int,1)
  189. LISPFUNN(int_char,1)
  190. LISPFUNN(char_name,1)
  191. LISPFUNN(char_bit,2)
  192. LISPFUNN(set_char_bit,3)
  193. LISPFUNN(char,2)
  194. LISPFUNN(schar,2)
  195. LISPFUNN(store_char,3)
  196. LISPFUNN(store_schar,3)
  197. LISPFUN(string_gleich,2,0,norest,key,4,
  198.         (kw(start1),kw(end1),kw(start2),kw(end2)) )
  199. LISPFUN(string_ungleich,2,0,norest,key,4,
  200.         (kw(start1),kw(end1),kw(start2),kw(end2)) )
  201. LISPFUN(string_kleiner,2,0,norest,key,4,
  202.         (kw(start1),kw(end1),kw(start2),kw(end2)) )
  203. LISPFUN(string_groesser,2,0,norest,key,4,
  204.         (kw(start1),kw(end1),kw(start2),kw(end2)) )
  205. LISPFUN(string_klgleich,2,0,norest,key,4,
  206.         (kw(start1),kw(end1),kw(start2),kw(end2)) )
  207. LISPFUN(string_grgleich,2,0,norest,key,4,
  208.         (kw(start1),kw(end1),kw(start2),kw(end2)) )
  209. LISPFUN(string_equal,2,0,norest,key,4,
  210.         (kw(start1),kw(end1),kw(start2),kw(end2)) )
  211. LISPFUN(string_not_equal,2,0,norest,key,4,
  212.         (kw(start1),kw(end1),kw(start2),kw(end2)) )
  213. LISPFUN(string_lessp,2,0,norest,key,4,
  214.         (kw(start1),kw(end1),kw(start2),kw(end2)) )
  215. LISPFUN(string_greaterp,2,0,norest,key,4,
  216.         (kw(start1),kw(end1),kw(start2),kw(end2)) )
  217. LISPFUN(string_not_greaterp,2,0,norest,key,4,
  218.         (kw(start1),kw(end1),kw(start2),kw(end2)) )
  219. LISPFUN(string_not_lessp,2,0,norest,key,4,
  220.         (kw(start1),kw(end1),kw(start2),kw(end2)) )
  221. LISPFUN(search_string_gleich,2,0,norest,key,4,
  222.         (kw(start1),kw(end1),kw(start2),kw(end2)) )
  223. LISPFUN(search_string_equal,2,0,norest,key,4,
  224.         (kw(start1),kw(end1),kw(start2),kw(end2)) )
  225. LISPFUN(make_string,1,0,norest,key,1, (kw(initial_element)) )
  226. LISPFUNN(string_both_trim,3)
  227. LISPFUN(nstring_upcase,1,0,norest,key,2, (kw(start),kw(end)) )
  228. LISPFUN(string_upcase,1,0,norest,key,2, (kw(start),kw(end)) )
  229. LISPFUN(nstring_downcase,1,0,norest,key,2, (kw(start),kw(end)) )
  230. LISPFUN(string_downcase,1,0,norest,key,2, (kw(start),kw(end)) )
  231. LISPFUN(nstring_capitalize,1,0,norest,key,2, (kw(start),kw(end)) )
  232. LISPFUN(string_capitalize,1,0,norest,key,2, (kw(start),kw(end)) )
  233. LISPFUNN(string,1)
  234. LISPFUNN(name_char,1)
  235. LISPFUN(substring,2,1,norest,nokey,0,NIL)
  236. LISPFUN(string_concat,0,0,rest,nokey,0,NIL)
  237. # ---------- CONTROL ----------
  238. LISPFUN(exit,0,1,norest,nokey,0,NIL)
  239. LISPFUNN(symbol_value,1)
  240. LISPFUNN(symbol_function,1)
  241. LISPFUNN(fdefinition,1)
  242. LISPFUNN(boundp,1)
  243. LISPFUNN(fboundp,1)
  244. LISPFUNN(special_form_p,1)
  245. LISPFUNN(set,2)
  246. LISPFUNN(makunbound,1)
  247. LISPFUNN(fmakunbound,1)
  248. LISPFUN(apply,2,0,rest,nokey,0,NIL)
  249. LISPFUN(pfuncall,1,0,rest,nokey,0,NIL)
  250. LISPFUN(funcall,1,0,rest,nokey,0,NIL)
  251. LISPFUN(mapcar,2,0,rest,nokey,0,NIL)
  252. LISPFUN(maplist,2,0,rest,nokey,0,NIL)
  253. LISPFUN(mapc,2,0,rest,nokey,0,NIL)
  254. LISPFUN(mapl,2,0,rest,nokey,0,NIL)
  255. LISPFUN(mapcan,2,0,rest,nokey,0,NIL)
  256. LISPFUN(mapcon,2,0,rest,nokey,0,NIL)
  257. LISPFUN(values,0,0,rest,nokey,0,NIL)
  258. LISPFUNN(values_list,1)
  259. LISPFUNN(driver,1)
  260. LISPFUNN(unwind_to_driver,0)
  261. LISPFUNN(macro_function,1)
  262. LISPFUN(macroexpand,1,1,norest,nokey,0,NIL)
  263. LISPFUN(macroexpand_1,1,1,norest,nokey,0,NIL)
  264. LISPFUNN(proclaim,1)
  265. LISPFUNN(eval,1)
  266. LISPFUN(evalhook,3,1,norest,nokey,0,NIL)
  267. LISPFUN(applyhook,4,1,norest,nokey,0,NIL)
  268. LISPFUNN(constantp,1)
  269. LISPFUNN(function_name_p,1)
  270. LISPFUN(parse_body,1,2,norest,nokey,0,NIL)
  271. LISPFUNN(keyword_test,2)
  272. # ---------- DEBUG ----------
  273. LISPFUN(read_form,1,1,norest,nokey,0,NIL)
  274. LISPFUN(read_eval_print,1,1,norest,nokey,0,NIL)
  275. LISPFUNN(load,1)
  276. LISPFUNN(frame_up_1,2)
  277. LISPFUNN(frame_up,2)
  278. LISPFUNN(frame_down_1,2)
  279. LISPFUNN(frame_down,2)
  280. LISPFUNN(the_frame,0)
  281. LISPFUNN(same_env_as,2)
  282. LISPFUNN(eval_at,2)
  283. LISPFUNN(eval_frame_p,1)
  284. LISPFUNN(driver_frame_p,1)
  285. LISPFUNN(trap_eval_frame,2)
  286. LISPFUNN(redo_eval_frame,1)
  287. LISPFUNN(return_from_eval_frame,2)
  288. LISPFUNN(describe_frame,2)
  289. LISPFUNN(show_stack,0)
  290. LISPFUNN(debug,0)
  291. LISPFUNN(room,0)
  292. LISPFUNN(gc,0)
  293. # ---------- ERROR ----------
  294. LISPFUN(error,1,0,rest,nokey,0,NIL)
  295. LISPFUNN(defclcs,1)
  296. LISPFUN(error_of_type,2,0,rest,nokey,0,NIL)
  297. LISPFUNN(invoke_debugger,1)
  298. LISPFUN(clcs_signal,1,0,rest,nokey,0,NIL)
  299. # ---------- HASHTABL ----------
  300. LISPFUN(make_hash_table,0,0,norest,key,5,
  301.         (kw(initial_contents),
  302.          kw(test),kw(size),kw(rehash_size),kw(rehash_threshold)) )
  303. LISPFUN(gethash,2,1,norest,nokey,0,NIL)
  304. LISPFUNN(puthash,3)
  305. LISPFUNN(remhash,2)
  306. LISPFUNN(maphash,2)
  307. LISPFUNN(clrhash,1)
  308. LISPFUNN(hash_table_count,1)
  309. LISPFUNN(hash_table_iterator,1)
  310. LISPFUNN(hash_table_iterate,1)
  311. LISPFUNN(class_gethash,2)
  312. LISPFUN(class_tuple_gethash,2,0,rest,nokey,0,NIL)
  313. LISPFUNN(sxhash,1)
  314. # ---------- IO ----------
  315. LISPFUN(copy_readtable,0,2,norest,nokey,0,NIL)
  316. LISPFUN(set_syntax_from_char,2,2,norest,nokey,0,NIL)
  317. LISPFUN(set_macro_character,2,2,norest,nokey,0,NIL)
  318. LISPFUN(get_macro_character,1,1,norest,nokey,0,NIL)
  319. LISPFUN(make_dispatch_macro_character,1,2,norest,nokey,0,NIL)
  320. LISPFUN(set_dispatch_macro_character,3,1,norest,nokey,0,NIL)
  321. LISPFUN(get_dispatch_macro_character,2,1,norest,nokey,0,NIL)
  322. LISPFUNN(readtable_case,1)
  323. LISPFUNN(set_readtable_case,2)
  324. LISPFUNN(lpar_reader,2)
  325. LISPFUNN(rpar_reader,2)
  326. LISPFUNN(string_reader,2)
  327. LISPFUNN(quote_reader,2)
  328. LISPFUNN(line_comment_reader,2)
  329. LISPFUNN(function_reader,3)
  330. LISPFUNN(comment_reader,3)
  331. LISPFUNN(char_reader,3)
  332. LISPFUNN(binary_reader,3)
  333. LISPFUNN(octal_reader,3)
  334. LISPFUNN(hexadecimal_reader,3)
  335. LISPFUNN(radix_reader,3)
  336. LISPFUNN(complex_reader,3)
  337. LISPFUNN(uninterned_reader,3)
  338. LISPFUNN(bit_vector_reader,3)
  339. LISPFUNN(vector_reader,3)
  340. LISPFUNN(array_reader,3)
  341. LISPFUNN(read_eval_reader,3)
  342. LISPFUNN(load_eval_reader,3)
  343. LISPFUNN(label_definition_reader,3)
  344. LISPFUNN(label_reference_reader,3)
  345. LISPFUNN(not_readable_reader,3)
  346. LISPFUNN(syntax_error_reader,3)
  347. LISPFUNN(feature_reader,3)
  348. LISPFUNN(not_feature_reader,3)
  349. LISPFUNN(structure_reader,3)
  350. LISPFUNN(closure_reader,3)
  351. LISPFUNN(pathname_reader,3)
  352. LISPFUN(read,0,4,norest,nokey,0,NIL)
  353. LISPFUN(read_preserving_whitespace,0,4,norest,nokey,0,NIL)
  354. LISPFUN(read_delimited_list,1,2,norest,nokey,0,NIL)
  355. LISPFUN(read_line,0,4,norest,nokey,0,NIL)
  356. LISPFUN(read_char,0,4,norest,nokey,0,NIL)
  357. LISPFUN(unread_char,1,1,norest,nokey,0,NIL)
  358. LISPFUN(peek_char,0,5,norest,nokey,0,NIL)
  359. LISPFUN(listen,0,1,norest,nokey,0,NIL)
  360. LISPFUN(read_char_no_hang,0,4,norest,nokey,0,NIL)
  361. LISPFUN(clear_input,0,1,norest,nokey,0,NIL)
  362. LISPFUN(read_from_string,1,2,norest,key,3,
  363.         (kw(preserve_whitespace),kw(start),kw(end)) )
  364. LISPFUN(parse_integer,1,0,norest,key,4,
  365.         (kw(start),kw(end),kw(radix),kw(junk_allowed)) )
  366. LISPFUN(write,1,0,norest,key,13,
  367.         (kw(case),kw(level),kw(length),kw(gensym),kw(escape),kw(radix),
  368.          kw(base),kw(array),kw(circle),kw(pretty),kw(closure),kw(readably),
  369.          kw(stream)) )
  370. LISPFUN(prin1,1,1,norest,nokey,0,NIL)
  371. LISPFUN(print,1,1,norest,nokey,0,NIL)
  372. LISPFUN(pprint,1,1,norest,nokey,0,NIL)
  373. LISPFUN(princ,1,1,norest,nokey,0,NIL)
  374. LISPFUN(write_to_string,1,0,norest,key,12,
  375.         (kw(case),kw(level),kw(length),kw(gensym),kw(escape),kw(radix),
  376.          kw(base),kw(array),kw(circle),kw(pretty),kw(closure),kw(readably)) )
  377. LISPFUNN(prin1_to_string,1)
  378. LISPFUNN(princ_to_string,1)
  379. LISPFUN(write_char,1,1,norest,nokey,0,NIL)
  380. LISPFUN(write_string,1,1,norest,key,2, (kw(start),kw(end)) )
  381. LISPFUN(write_line,1,1,norest,key,2, (kw(start),kw(end)) )
  382. LISPFUN(terpri,0,1,norest,nokey,0,NIL)
  383. LISPFUN(fresh_line,0,1,norest,nokey,0,NIL)
  384. LISPFUN(finish_output,0,1,norest,nokey,0,NIL)
  385. LISPFUN(force_output,0,1,norest,nokey,0,NIL)
  386. LISPFUN(clear_output,0,1,norest,nokey,0,NIL)
  387. LISPFUN(write_unreadable,3,0,norest,key,2, (kw(type),kw(identity)) )
  388. LISPFUN(line_position,0,1,norest,nokey,0,NIL)
  389. # ---------- LIST ----------
  390. LISPFUNN(car,1)
  391. LISPFUNN(cdr,1)
  392. LISPFUNN(caar,1)
  393. LISPFUNN(cadr,1)
  394. LISPFUNN(cdar,1)
  395. LISPFUNN(cddr,1)
  396. LISPFUNN(caaar,1)
  397. LISPFUNN(caadr,1)
  398. LISPFUNN(cadar,1)
  399. LISPFUNN(caddr,1)
  400. LISPFUNN(cdaar,1)
  401. LISPFUNN(cdadr,1)
  402. LISPFUNN(cddar,1)
  403. LISPFUNN(cdddr,1)
  404. LISPFUNN(caaaar,1)
  405. LISPFUNN(caaadr,1)
  406. LISPFUNN(caadar,1)
  407. LISPFUNN(caaddr,1)
  408. LISPFUNN(cadaar,1)
  409. LISPFUNN(cadadr,1)
  410. LISPFUNN(caddar,1)
  411. LISPFUNN(cadddr,1)
  412. LISPFUNN(cdaaar,1)
  413. LISPFUNN(cdaadr,1)
  414. LISPFUNN(cdadar,1)
  415. LISPFUNN(cdaddr,1)
  416. LISPFUNN(cddaar,1)
  417. LISPFUNN(cddadr,1)
  418. LISPFUNN(cdddar,1)
  419. LISPFUNN(cddddr,1)
  420. LISPFUNN(cons,2)
  421. LISPFUN(tree_equal,2,0,norest,key,2, (kw(test),kw(test_not)) )
  422. LISPFUNN(endp,1)
  423. LISPFUNN(list_length,1)
  424. LISPFUNN(nth,2)
  425. LISPFUNN(first,1)
  426. LISPFUNN(second,1)
  427. LISPFUNN(third,1)
  428. LISPFUNN(fourth,1)
  429. LISPFUNN(fifth,1)
  430. LISPFUNN(sixth,1)
  431. LISPFUNN(seventh,1)
  432. LISPFUNN(eighth,1)
  433. LISPFUNN(ninth,1)
  434. LISPFUNN(tenth,1)
  435. LISPFUNN(rest,1)
  436. LISPFUNN(nthcdr,2)
  437. LISPFUNN(last,1)
  438. LISPFUN(list,0,0,rest,nokey,0,NIL)
  439. LISPFUN(liststern,1,0,rest,nokey,0,NIL)
  440. LISPFUN(make_list,1,0,norest,key,1, (kw(initial_element)) )
  441. LISPFUN(append,0,0,rest,nokey,0,NIL)
  442. LISPFUNN(copy_list,1)
  443. LISPFUNN(copy_alist,1)
  444. LISPFUNN(copy_tree,1)
  445. LISPFUNN(revappend,2)
  446. LISPFUN(nconc,0,0,rest,nokey,0,NIL)
  447. LISPFUNN(nreconc,2)
  448. LISPFUNN(list_nreverse,1)
  449. LISPFUN(butlast,1,1,norest,nokey,0,NIL)
  450. LISPFUN(nbutlast,1,1,norest,nokey,0,NIL)
  451. LISPFUNN(ldiff,2)
  452. LISPFUNN(rplaca,2)
  453. LISPFUNN(prplaca,2)
  454. LISPFUNN(rplacd,2)
  455. LISPFUNN(prplacd,2)
  456. LISPFUN(subst,3,0,norest,key,3, (kw(test),kw(test_not),kw(key)) )
  457. LISPFUN(subst_if,3,0,norest,key,1, (kw(key)) )
  458. LISPFUN(subst_if_not,3,0,norest,key,1, (kw(key)) )
  459. LISPFUN(nsubst,3,0,norest,key,3, (kw(test),kw(test_not),kw(key)) )
  460. LISPFUN(nsubst_if,3,0,norest,key,1, (kw(key)) )
  461. LISPFUN(nsubst_if_not,3,0,norest,key,1, (kw(key)) )
  462. LISPFUN(sublis,2,0,norest,key,3, (kw(test),kw(test_not),kw(key)) )
  463. LISPFUN(nsublis,2,0,norest,key,3, (kw(test),kw(test_not),kw(key)) )
  464. LISPFUN(member,2,0,norest,key,3, (kw(test),kw(test_not),kw(key)) )
  465. LISPFUN(member_if,2,0,norest,key,1, (kw(key)) )
  466. LISPFUN(member_if_not,2,0,norest,key,1, (kw(key)) )
  467. LISPFUNN(tailp,2)
  468. LISPFUN(adjoin,2,0,norest,key,3, (kw(test),kw(test_not),kw(key)) )
  469. LISPFUNN(acons,3)
  470. LISPFUN(pairlis,2,1,norest,nokey,0,NIL)
  471. LISPFUN(assoc,2,0,norest,key,3, (kw(test),kw(test_not),kw(key)) )
  472. LISPFUN(assoc_if,2,0,norest,key,1, (kw(key)) )
  473. LISPFUN(assoc_if_not,2,0,norest,key,1, (kw(key)) )
  474. LISPFUN(rassoc,2,0,norest,key,3, (kw(test),kw(test_not),kw(key)) )
  475. LISPFUN(rassoc_if,2,0,norest,key,1, (kw(key)) )
  476. LISPFUN(rassoc_if_not,2,0,norest,key,1, (kw(key)) )
  477. LISPFUNN(list_upd,2)
  478. LISPFUNN(list_endtest,2)
  479. LISPFUNN(list_fe_init,1)
  480. LISPFUNN(list_access,2)
  481. LISPFUNN(list_access_set,3)
  482. LISPFUNN(list_llength,1)
  483. LISPFUNN(list_elt,2)
  484. LISPFUNN(list_set_elt,3)
  485. LISPFUNN(list_init_start,2)
  486. LISPFUNN(list_fe_init_end,2)
  487. # ---------- MISC ----------
  488. LISPFUNN(lisp_implementation_type,0)
  489. LISPFUNN(lisp_implementation_version,0)
  490. LISPFUN(version,0,1,norest,nokey,0,NIL)
  491. #ifdef MACHINE_KNOWN
  492. LISPFUNN(machinetype,0)
  493. LISPFUNN(machine_version,0)
  494. LISPFUNN(machine_instance,0)
  495. #endif
  496. #ifdef HAVE_ENVIRONMENT
  497. LISPFUNN(get_env,1)
  498. #endif
  499. LISPFUNN(software_type,0)
  500. LISPFUNN(software_version,0)
  501. LISPFUNN(language,3)
  502. LISPFUNN(identity,1)
  503. LISPFUNN(address_of,1)
  504. LISPFUNN(get_universal_time,0)
  505. #ifdef UNIX
  506. LISPFUN(default_time_zone,0,1,norest,nokey,0,NIL)
  507. #endif
  508. LISPFUNN(get_internal_run_time,0)
  509. LISPFUNN(get_internal_real_time,0)
  510. #ifdef SLEEP_1
  511. LISPFUNN(sleep,1)
  512. #endif
  513. #ifdef SLEEP_2
  514. LISPFUNN(sleep,2)
  515. #endif
  516. LISPFUNN(time,0)
  517. # ---------- PACKAGE ----------
  518. LISPFUNN(use_package_aux,1)
  519. LISPFUNN(make_symbol,1)
  520. LISPFUNN(find_package,1)
  521. LISPFUNN(pfind_package,1)
  522. LISPFUNN(package_name,1)
  523. LISPFUNN(package_nicknames,1)
  524. LISPFUN(rename_package,2,1,norest,nokey,0,NIL)
  525. LISPFUNN(package_use_list,1)
  526. LISPFUNN(package_used_by_list,1)
  527. LISPFUNN(package_shadowing_symbols,1)
  528. LISPFUNN(list_all_packages,0)
  529. LISPFUN(intern,1,1,norest,nokey,0,NIL)
  530. LISPFUN(find_symbol,1,1,norest,nokey,0,NIL)
  531. LISPFUN(unintern,1,1,norest,nokey,0,NIL)
  532. LISPFUN(export,1,1,norest,nokey,0,NIL)
  533. LISPFUN(unexport,1,1,norest,nokey,0,NIL)
  534. LISPFUN(import,1,1,norest,nokey,0,NIL)
  535. LISPFUN(shadowing_import,1,1,norest,nokey,0,NIL)
  536. LISPFUN(shadow,1,1,norest,nokey,0,NIL)
  537. LISPFUN(use_package,1,1,norest,nokey,0,NIL)
  538. LISPFUN(unuse_package,1,1,norest,nokey,0,NIL)
  539. LISPFUN(make_package,1,0,norest,key,2, (kw(nicknames),kw(use)) )
  540. LISPFUN(pin_package,1,0,norest,key,2, (kw(nicknames),kw(use)) )
  541. LISPFUN(in_package,1,0,norest,key,2, (kw(nicknames),kw(use)) )
  542. LISPFUNN(find_all_symbols,1)
  543. LISPFUNN(map_symbols,2)
  544. LISPFUNN(map_symbols_aux,1)
  545. LISPFUNN(map_external_symbols,2)
  546. LISPFUNN(map_all_symbols,1)
  547. LISPFUNN(package_iterator,2)
  548. LISPFUNN(package_iterate,1)
  549. # ---------- PATHNAME ----------
  550. LISPFUN(parse_namestring,1,2,norest,key,3,
  551.         (kw(start),kw(end),kw(junk_allowed)) )
  552. LISPFUNN(pathname,1)
  553. LISPFUN(pathnamehost,1,0,norest,key,1, (kw(case)))
  554. LISPFUN(pathnamedevice,1,0,norest,key,1, (kw(case)))
  555. LISPFUN(pathnamedirectory,1,0,norest,key,1, (kw(case)))
  556. LISPFUN(pathnamename,1,0,norest,key,1, (kw(case)))
  557. LISPFUN(pathnametype,1,0,norest,key,1, (kw(case)))
  558. LISPFUNN(pathnameversion,1)
  559. #ifdef LOGICAL_PATHNAMES
  560. LISPFUNN(logical_pathname,1)
  561. LISPFUN(translate_logical_pathname,1,0,norest,key,0, )
  562. #endif
  563. LISPFUNN(file_namestring,1)
  564. LISPFUNN(directory_namestring,1)
  565. LISPFUNN(host_namestring,1)
  566. LISPFUN(merge_pathnames,1,2,norest,key,1, (kw(wild)))
  567. LISPFUN(enough_namestring,1,1,norest,nokey,0,NIL)
  568. LISPFUN(make_pathname,0,0,norest,key,8,
  569.         (kw(defaults),kw(case),kw(host),kw(device),kw(directory),kw(name),kw(type),kw(version)) )
  570. #ifdef LOGICAL_PATHNAMES
  571. LISPFUN(make_logical_pathname,0,0,norest,key,8,
  572.         (kw(defaults),kw(case),kw(host),kw(device),kw(directory),kw(name),kw(type),kw(version)) )
  573. #endif
  574. #ifdef USER_HOMEDIR
  575. LISPFUN(user_homedir_pathname,0,1,norest,nokey,0,NIL)
  576. #endif
  577. LISPFUN(wild_pathname_p,1,1,norest,nokey,0,NIL)
  578. LISPFUNN(pathname_match_p,2)
  579. LISPFUN(translate_pathname,3,0,norest,key,2, (kw(all),kw(merge)))
  580. LISPFUN(namestring,1,1,norest,nokey,0,NIL)
  581. LISPFUNN(truename,1)
  582. LISPFUNN(probe_file,1)
  583. LISPFUNN(delete_file,1)
  584. LISPFUNN(rename_file,2)
  585. LISPFUN(open,1,0,norest,key,4,
  586.         (kw(direction),kw(element_type),kw(if_exists),kw(if_does_not_exist)) )
  587. LISPFUN(directory,0,1,norest,key,2, (kw(circle),kw(full)) )
  588. LISPFUN(cd,0,1,norest,nokey,0,NIL)
  589. LISPFUNN(make_dir,1)
  590. LISPFUNN(delete_dir,1)
  591. LISPFUNN(file_write_date,1)
  592. LISPFUNN(file_author,1)
  593. #ifdef ATARI
  594. LISPFUN(execute,1,2,norest,nokey,0,NIL)
  595. #endif
  596. #if defined(UNIX) || defined(MSDOS) || defined(RISCOS)
  597. LISPFUN(execute,1,0,rest,nokey,0,NIL)
  598. #endif
  599. #if defined(AMIGAOS)
  600. LISPFUN(execute,1,0,norest,nokey,0,NIL)
  601. #endif
  602. #ifdef HAVE_SHELL
  603. LISPFUN(shell,0,1,norest,nokey,0,NIL)
  604. #endif
  605. LISPFUNN(savemem,1)
  606. # ---------- PREDTYPE ----------
  607. LISPFUNN(eq,2)
  608. LISPFUNN(eql,2)
  609. LISPFUNN(equal,2)
  610. LISPFUNN(equalp,2)
  611. LISPFUNN(consp,1)
  612. LISPFUNN(atom,1)
  613. LISPFUNN(symbolp,1)
  614. LISPFUNN(stringp,1)
  615. LISPFUNN(numberp,1)
  616. LISPFUNN(compiled_function_p,1)
  617. LISPFUNN(null,1)
  618. LISPFUNN(not,1)
  619. LISPFUNN(closurep,1)
  620. LISPFUNN(listp,1)
  621. LISPFUNN(integerp,1)
  622. LISPFUNN(fixnump,1)
  623. LISPFUNN(rationalp,1)
  624. LISPFUNN(floatp,1)
  625. LISPFUNN(short_float_p,1)
  626. LISPFUNN(single_float_p,1)
  627. LISPFUNN(double_float_p,1)
  628. LISPFUNN(long_float_p,1)
  629. LISPFUNN(realp,1)
  630. LISPFUNN(complexp,1)
  631. LISPFUNN(streamp,1)
  632. LISPFUNN(random_state_p,1)
  633. LISPFUNN(readtablep,1)
  634. LISPFUNN(hash_table_p,1)
  635. LISPFUNN(pathnamep,1)
  636. LISPFUNN(logical_pathname_p,1)
  637. LISPFUNN(characterp,1)
  638. LISPFUNN(functionp,1)
  639. LISPFUNN(generic_function_p,1)
  640. LISPFUNN(packagep,1)
  641. LISPFUNN(arrayp,1)
  642. LISPFUNN(simple_array_p,1)
  643. LISPFUNN(bit_vector_p,1)
  644. LISPFUNN(vectorp,1)
  645. LISPFUNN(simple_vector_p,1)
  646. LISPFUNN(simple_string_p,1)
  647. LISPFUNN(simple_bit_vector_p,1)
  648. LISPFUNN(commonp,1)
  649. LISPFUNN(type_of,1)
  650. LISPFUNN(defclos,2)
  651. LISPFUNN(class_p,1)
  652. LISPFUNN(class_of,1)
  653. LISPFUN(find_class,1,2,norest,nokey,0,NIL)
  654. LISPFUNN(coerce,2)
  655. # ---------- RECORD ----------
  656. LISPFUNN(record_ref,2)
  657. LISPFUNN(record_store,3)
  658. LISPFUNN(record_length,1)
  659. LISPFUNN(structure_ref,3)
  660. LISPFUNN(structure_store,4)
  661. LISPFUNN(make_structure,2)
  662. LISPFUNN(copy_structure,1)
  663. LISPFUNN(structure_type_p,2)
  664. LISPFUNN(closure_name,1)
  665. LISPFUNN(closure_codevec,1)
  666. LISPFUNN(closure_consts,1)
  667. LISPFUNN(make_code_vector,1)
  668. LISPFUNN(make_closure,3)
  669. LISPFUNN(make_load_time_eval,1)
  670. LISPFUNN(make_symbol_macro,1)
  671. LISPFUNN(symbol_macro_p,1)
  672. LISPFUNN(std_instance_p,1)
  673. LISPFUNN(allocate_std_instance,2)
  674. LISPFUNN(slot_value,2)
  675. LISPFUNN(set_slot_value,3)
  676. LISPFUNN(slot_boundp,2)
  677. LISPFUNN(slot_makunbound,2)
  678. LISPFUNN(slot_exists_p,2)
  679. LISPFUN(shared_initialize,2,0,rest,nokey,0,NIL)
  680. LISPFUN(reinitialize_instance,1,0,rest,nokey,0,NIL)
  681. LISPFUN(initialize_instance,1,0,rest,nokey,0,NIL)
  682. LISPFUN(make_instance,1,0,rest,nokey,0,NIL)
  683. # ---------- SEQUENCE ----------
  684. LISPFUNN(sequencep,1)
  685. LISPFUNN(defseq,1)
  686. LISPFUNN(elt,2)
  687. LISPFUNN(setelt,3)
  688. LISPFUN(subseq,2,1,norest,nokey,0,NIL)
  689. LISPFUNN(copy_seq,1)
  690. LISPFUNN(length,1)
  691. LISPFUNN(reverse,1)
  692. LISPFUNN(nreverse,1)
  693. LISPFUN(make_sequence,2,0,norest,key,2,
  694.         (kw(initial_element),kw(update)) )
  695. LISPFUN(concatenate,1,0,rest,nokey,0,NIL)
  696. LISPFUN(map,3,0,rest,nokey,0,NIL)
  697. LISPFUN(map_into,2,0,rest,nokey,0,NIL)
  698. LISPFUN(some,2,0,rest,nokey,0,NIL)
  699. LISPFUN(every,2,0,rest,nokey,0,NIL)
  700. LISPFUN(notany,2,0,rest,nokey,0,NIL)
  701. LISPFUN(notevery,2,0,rest,nokey,0,NIL)
  702. LISPFUN(reduce,2,0,norest,key,5,
  703.         (kw(from_end),kw(start),kw(end),kw(key),kw(initial_value)) )
  704. LISPFUN(fill,2,0,norest,key,2, (kw(start),kw(end)) )
  705. LISPFUN(replace,2,0,norest,key,4,
  706.         (kw(start1),kw(end1),kw(start2),kw(end2)) )
  707. LISPFUN(remove,2,0,norest,key,7,
  708.         (kw(from_end),kw(start),kw(end),kw(key),kw(test),kw(test_not),kw(count)) )
  709. LISPFUN(remove_if,2,0,norest,key,5,
  710.         (kw(from_end),kw(start),kw(end),kw(key),kw(count)) )
  711. LISPFUN(remove_if_not,2,0,norest,key,5,
  712.         (kw(from_end),kw(start),kw(end),kw(key),kw(count)) )
  713. LISPFUN(delete,2,0,norest,key,7,
  714.         (kw(from_end),kw(start),kw(end),kw(key),kw(test),kw(test_not),kw(count)) )
  715. LISPFUN(delete_if,2,0,norest,key,5,
  716.         (kw(from_end),kw(start),kw(end),kw(key),kw(count)) )
  717. LISPFUN(delete_if_not,2,0,norest,key,5,
  718.         (kw(from_end),kw(start),kw(end),kw(key),kw(count)) )
  719. LISPFUN(remove_duplicates,1,0,norest,key,6,
  720.         (kw(from_end),kw(start),kw(end),kw(key),kw(test),kw(test_not)) )
  721. LISPFUN(delete_duplicates,1,0,norest,key,6,
  722.         (kw(from_end),kw(start),kw(end),kw(key),kw(test),kw(test_not)) )
  723. LISPFUN(substitute,3,0,norest,key,7,
  724.         (kw(from_end),kw(start),kw(end),kw(key),kw(test),kw(test_not),kw(count)) )
  725. LISPFUN(substitute_if,3,0,norest,key,5,
  726.         (kw(from_end),kw(start),kw(end),kw(key),kw(count)) )
  727. LISPFUN(substitute_if_not,3,0,norest,key,5,
  728.         (kw(from_end),kw(start),kw(end),kw(key),kw(count)) )
  729. LISPFUN(nsubstitute,3,0,norest,key,7,
  730.         (kw(from_end),kw(start),kw(end),kw(key),kw(test),kw(test_not),kw(count)) )
  731. LISPFUN(nsubstitute_if,3,0,norest,key,5,
  732.         (kw(from_end),kw(start),kw(end),kw(key),kw(count)) )
  733. LISPFUN(nsubstitute_if_not,3,0,norest,key,5,
  734.         (kw(from_end),kw(start),kw(end),kw(key),kw(count)) )
  735. LISPFUN(find,2,0,norest,key,6,
  736.         (kw(from_end),kw(start),kw(end),kw(key),kw(test),kw(test_not)) )
  737. LISPFUN(find_if,2,0,norest,key,4,
  738.         (kw(from_end),kw(start),kw(end),kw(key)) )
  739. LISPFUN(find_if_not,2,0,norest,key,4,
  740.         (kw(from_end),kw(start),kw(end),kw(key)) )
  741. LISPFUN(position,2,0,norest,key,6,
  742.         (kw(from_end),kw(start),kw(end),kw(key),kw(test),kw(test_not)) )
  743. LISPFUN(position_if,2,0,norest,key,4,
  744.         (kw(from_end),kw(start),kw(end),kw(key)) )
  745. LISPFUN(position_if_not,2,0,norest,key,4,
  746.         (kw(from_end),kw(start),kw(end),kw(key)) )
  747. LISPFUN(count,2,0,norest,key,6,
  748.         (kw(from_end),kw(start),kw(end),kw(key),kw(test),kw(test_not)) )
  749. LISPFUN(count_if,2,0,norest,key,4,
  750.         (kw(from_end),kw(start),kw(end),kw(key)) )
  751. LISPFUN(count_if_not,2,0,norest,key,4,
  752.         (kw(from_end),kw(start),kw(end),kw(key)) )
  753. LISPFUN(mismatch,2,0,norest,key,8,
  754.         (kw(start1),kw(end1),kw(start2),kw(end2),kw(from_end),
  755.          kw(key),kw(test),kw(test_not)) )
  756. LISPFUN(search,2,0,norest,key,8,
  757.         (kw(start1),kw(end1),kw(start2),kw(end2),kw(from_end),
  758.          kw(key),kw(test),kw(test_not)) )
  759. LISPFUN(sort,2,0,norest,key,3, (kw(key),kw(start),kw(end)) )
  760. LISPFUN(stable_sort,2,0,norest,key,3, (kw(key),kw(start),kw(end)) )
  761. LISPFUN(merge,4,0,norest,key,1, (kw(key)) )
  762. LISPFUN(read_char_sequence,2,0,norest,key,2, (kw(start),kw(end)) )
  763. LISPFUN(write_char_sequence,2,0,norest,key,2, (kw(start),kw(end)) )
  764. LISPFUN(read_byte_sequence,2,0,norest,key,2, (kw(start),kw(end)) )
  765. LISPFUN(write_byte_sequence,2,0,norest,key,2, (kw(start),kw(end)) )
  766. # ---------- STREAM ----------
  767. #if defined(UNIX) || defined(AMIGAOS) || defined(RISCOS)
  768. LISPFUNN(terminal_raw,2)
  769. #endif
  770. #ifdef SCREEN
  771. LISPFUNN(make_window,0)
  772. LISPFUNN(window_size,1)
  773. LISPFUNN(window_cursor_position,1)
  774. LISPFUNN(set_window_cursor_position,3)
  775. LISPFUNN(clear_window,1)
  776. LISPFUNN(clear_window_to_eot,1)
  777. LISPFUNN(clear_window_to_eol,1)
  778. LISPFUNN(delete_window_line,1)
  779. LISPFUNN(insert_window_line,1)
  780. LISPFUNN(highlight_on,1)
  781. LISPFUNN(highlight_off,1)
  782. LISPFUNN(window_cursor_on,1)
  783. LISPFUNN(window_cursor_off,1)
  784. #endif
  785. LISPFUNN(make_synonym_stream,1)
  786. LISPFUN(make_broadcast_stream,0,0,rest,nokey,0,NIL)
  787. LISPFUN(make_concatenated_stream,0,0,rest,nokey,0,NIL)
  788. LISPFUNN(make_two_way_stream,2)
  789. LISPFUNN(make_echo_stream,2)
  790. LISPFUN(make_string_input_stream,1,2,norest,nokey,0,NIL)
  791. LISPFUNN(string_input_stream_index,1)
  792. LISPFUN(make_string_output_stream,0,1,norest,nokey,0,NIL)
  793. LISPFUNN(get_output_stream_string,1)
  794. LISPFUNN(make_string_push_stream,1)
  795. LISPFUNN(make_buffered_input_stream,2)
  796. LISPFUNN(buffered_input_stream_index,1)
  797. LISPFUN(make_buffered_output_stream,1,1,norest,nokey,0,NIL)
  798. #ifdef PRINTER_AMIGAOS
  799. LISPFUNN(make_printer_stream,0)
  800. #endif
  801. #ifdef PIPES
  802. LISPFUNN(make_pipe_input_stream,1)
  803. LISPFUNN(make_pipe_output_stream,1)
  804. #ifdef PIPES2
  805. LISPFUNN(make_pipe_io_stream,1)
  806. #endif
  807. #endif
  808. #ifdef SOCKETS
  809. LISPFUNN(make_socket_stream,2)
  810. LISPFUNN(read_n_bytes,4)
  811. LISPFUNN(write_n_bytes,4)
  812. #endif
  813. #ifdef GENERIC_STREAMS
  814. LISPFUNN(generic_stream_controller,1)
  815. LISPFUNN(make_generic_stream,1)
  816. LISPFUNN(generic_stream_p,1)
  817. #endif
  818. LISPFUNN(input_stream_p,1)
  819. LISPFUNN(output_stream_p,1)
  820. LISPFUNN(stream_element_type,1)
  821. LISPFUNN(interactive_stream_p,1)
  822. LISPFUN(close,1,0,norest,key,1, (kw(abort)) )
  823. LISPFUN(read_byte,1,2,norest,nokey,0,NIL)
  824. LISPFUNN(write_byte,2)
  825. LISPFUN(file_position,1,1,norest,nokey,0,NIL)
  826. LISPFUNN(file_length,1)
  827. LISPFUNN(line_number,1)
  828. # ---------- SYMBOL ----------
  829. LISPFUNN(putd,2)
  830. LISPFUNN(proclaim_constant,2)
  831. LISPFUN(get,2,1,norest,nokey,0,NIL)
  832. LISPFUN(getf,2,1,norest,nokey,0,NIL)
  833. LISPFUNN(get_properties,2)
  834. LISPFUNN(putplist,2)
  835. LISPFUNN(put,3)
  836. LISPFUNN(remprop,2)
  837. LISPFUNN(symbol_package,1)
  838. LISPFUNN(symbol_plist,1)
  839. LISPFUNN(symbol_name,1)
  840. LISPFUNN(keywordp,1)
  841. LISPFUNN(special_variable_p,1)
  842. LISPFUN(gensym,0,1,norest,nokey,0,NIL)
  843. # ---------- LISPARIT ----------
  844. LISPFUNN(decimal_string,1)
  845. LISPFUNN(zerop,1)
  846. LISPFUNN(plusp,1)
  847. LISPFUNN(minusp,1)
  848. LISPFUNN(oddp,1)
  849. LISPFUNN(evenp,1)
  850. LISPFUN(gleich,1,0,rest,nokey,0,NIL)
  851. LISPFUN(ungleich,1,0,rest,nokey,0,NIL)
  852. LISPFUN(kleiner,1,0,rest,nokey,0,NIL)
  853. LISPFUN(groesser,1,0,rest,nokey,0,NIL)
  854. LISPFUN(klgleich,1,0,rest,nokey,0,NIL)
  855. LISPFUN(grgleich,1,0,rest,nokey,0,NIL)
  856. LISPFUN(max,1,0,rest,nokey,0,NIL)
  857. LISPFUN(min,1,0,rest,nokey,0,NIL)
  858. LISPFUN(plus,0,0,rest,nokey,0,NIL)
  859. LISPFUN(minus,1,0,rest,nokey,0,NIL)
  860. LISPFUN(mal,0,0,rest,nokey,0,NIL)
  861. LISPFUN(durch,1,0,rest,nokey,0,NIL)
  862. LISPFUNN(einsplus,1)
  863. LISPFUNN(einsminus,1)
  864. LISPFUNN(conjugate,1)
  865. LISPFUN(gcd,0,0,rest,nokey,0,NIL)
  866. LISPFUN(xgcd,0,0,rest,nokey,0,NIL)
  867. LISPFUN(lcm,0,0,rest,nokey,0,NIL)
  868. LISPFUNN(exp,1)
  869. LISPFUNN(expt,2)
  870. LISPFUN(log,1,1,norest,nokey,0,NIL)
  871. LISPFUNN(sqrt,1)
  872. LISPFUNN(isqrt,1)
  873. LISPFUNN(abs,1)
  874. LISPFUNN(phase,1)
  875. LISPFUNN(signum,1)
  876. LISPFUNN(sin,1)
  877. LISPFUNN(cos,1)
  878. LISPFUNN(tan,1)
  879. LISPFUNN(cis,1)
  880. LISPFUNN(asin,1)
  881. LISPFUNN(acos,1)
  882. LISPFUN(atan,1,1,norest,nokey,0,NIL)
  883. LISPFUNN(sinh,1)
  884. LISPFUNN(cosh,1)
  885. LISPFUNN(tanh,1)
  886. LISPFUNN(asinh,1)
  887. LISPFUNN(acosh,1)
  888. LISPFUNN(atanh,1)
  889. LISPFUN(float,1,1,norest,nokey,0,NIL)
  890. LISPFUNN(rational,1)
  891. LISPFUNN(rationalize,1)
  892. LISPFUNN(numerator,1)
  893. LISPFUNN(denominator,1)
  894. LISPFUN(floor,1,1,norest,nokey,0,NIL)
  895. LISPFUN(ceiling,1,1,norest,nokey,0,NIL)
  896. LISPFUN(truncate,1,1,norest,nokey,0,NIL)
  897. LISPFUN(round,1,1,norest,nokey,0,NIL)
  898. LISPFUNN(mod,2)
  899. LISPFUNN(rem,2)
  900. LISPFUN(ffloor,1,1,norest,nokey,0,NIL)
  901. LISPFUN(fceiling,1,1,norest,nokey,0,NIL)
  902. LISPFUN(ftruncate,1,1,norest,nokey,0,NIL)
  903. LISPFUN(fround,1,1,norest,nokey,0,NIL)
  904. LISPFUNN(decode_float,1)
  905. LISPFUNN(scale_float,2)
  906. LISPFUNN(float_radix,1)
  907. LISPFUN(float_sign,1,1,norest,nokey,0,NIL)
  908. LISPFUN(float_digits,1,1,norest,nokey,0,NIL)
  909. LISPFUNN(float_precision,1)
  910. LISPFUNN(integer_decode_float,1)
  911. LISPFUN(complex,1,1,norest,nokey,0,NIL)
  912. LISPFUNN(realpart,1)
  913. LISPFUNN(imagpart,1)
  914. LISPFUN(logior,0,0,rest,nokey,0,NIL)
  915. LISPFUN(logxor,0,0,rest,nokey,0,NIL)
  916. LISPFUN(logand,0,0,rest,nokey,0,NIL)
  917. LISPFUN(logeqv,0,0,rest,nokey,0,NIL)
  918. LISPFUNN(lognand,2)
  919. LISPFUNN(lognor,2)
  920. LISPFUNN(logandc1,2)
  921. LISPFUNN(logandc2,2)
  922. LISPFUNN(logorc1,2)
  923. LISPFUNN(logorc2,2)
  924. LISPFUNN(boole,3)
  925. LISPFUNN(lognot,1)
  926. LISPFUNN(logtest,2)
  927. LISPFUNN(logbitp,2)
  928. LISPFUNN(ash,2)
  929. LISPFUNN(logcount,1)
  930. LISPFUNN(integer_length,1)
  931. LISPFUNN(byte,2)
  932. LISPFUNN(bytesize,1)
  933. LISPFUNN(byteposition,1)
  934. LISPFUNN(ldb,2)
  935. LISPFUNN(ldb_test,2)
  936. LISPFUNN(mask_field,2)
  937. LISPFUNN(dpb,3)
  938. LISPFUNN(deposit_field,3)
  939. LISPFUN(random,1,1,norest,nokey,0,NIL)
  940. LISPFUN(make_random_state,0,1,norest,nokey,0,NIL)
  941. LISPFUNN(fakultaet,1)
  942. LISPFUNN(exquo,2)
  943. LISPFUNN(long_float_digits,0)
  944. LISPFUNN(set_long_float_digits,1)
  945. LISPFUNN(log2,1)
  946. LISPFUNN(log10,1)
  947. # ---------- REXX ----------
  948. #ifdef REXX
  949. LISPFUN(rexx_put,1,0,norest,key,6,
  950.         (kw(result),kw(string),kw(token),kw(async),kw(io),kw(return)) )
  951. LISPFUNN(rexx_wait_input,0)
  952. LISPFUNN(rexx_get,0)
  953. LISPFUNN(rexx_reply,3)
  954. #endif
  955. # ---------- GRAPH ----------
  956. #ifdef GRAPHICS
  957. LISPFUN(gr_init,0,3,norest,nokey,0,NIL)
  958. LISPFUNN(gr_show,0)
  959. LISPFUN(gr_clear,0,1,norest,nokey,0,NIL)
  960. LISPFUNN(gr_dims,0)
  961. LISPFUN(gr_dot,2,1,norest,nokey,0,NIL)
  962. LISPFUNN(gr_box,5)
  963. LISPFUNN(gr_line,5)
  964. LISPFUNN(gr_text,5)
  965. #endif
  966. # ---------- STDWIN ----------
  967. #ifdef STDWIN
  968. LISPFUNN(stdwin_init,0)
  969. LISPFUNN(stdwin_done,0)
  970. LISPFUNN(stdwin_drawproc_alist,0)
  971. LISPFUNN(stdwin_wopen,2)
  972. LISPFUNN(stdwin_wclose,1)
  973. LISPFUNN(stdwin_scrollbar_p,0)
  974. LISPFUNN(stdwin_set_scrollbar_p,2)
  975. LISPFUNN(stdwin_default_window_size,0)
  976. LISPFUNN(stdwin_set_default_window_size,2)
  977. LISPFUNN(stdwin_default_window_position,0)
  978. LISPFUNN(stdwin_set_default_window_position,2)
  979. LISPFUNN(stdwin_screen_size,0)
  980. LISPFUNN(stdwin_window_size,1)
  981. LISPFUNN(stdwin_window_position,1)
  982. LISPFUNN(stdwin_window_document_size,1)
  983. LISPFUNN(stdwin_set_window_document_size,3)
  984. LISPFUNN(stdwin_window_title,1)
  985. LISPFUNN(stdwin_set_window_title,2)
  986. LISPFUNN(stdwin_set_window_cursor,2)
  987. LISPFUNN(stdwin_window_show,5)
  988. LISPFUNN(stdwin_window_origin,1)
  989. LISPFUNN(stdwin_set_window_origin,3)
  990. LISPFUNN(stdwin_window_change,5)
  991. LISPFUNN(stdwin_window_update,1)
  992. LISPFUNN(stdwin_begin_drawing,1)
  993. LISPFUNN(stdwin_end_drawing,1)
  994. LISPFUNN(stdwin_draw_line,4)
  995. LISPFUNN(stdwin_xor_line,4)
  996. LISPFUNN(stdwin_draw_box,4)
  997. LISPFUNN(stdwin_paint,4)
  998. LISPFUNN(stdwin_invert,4)
  999. LISPFUNN(stdwin_erase,4)
  1000. LISPFUNN(stdwin_shade,5)
  1001. LISPFUNN(stdwin_draw_circle,3)
  1002. LISPFUNN(stdwin_xor_circle,3)
  1003. LISPFUNN(stdwin_fill_circle,3)
  1004. LISPFUNN(stdwin_draw_arc,3)
  1005. LISPFUNN(stdwin_xor_arc,3)
  1006. LISPFUNN(stdwin_fill_arc,3)
  1007. LISPFUNN(stdwin_draw_char,3)
  1008. LISPFUNN(stdwin_draw_text,3)
  1009. LISPFUNN(stdwin_line_height,0)
  1010. LISPFUNN(stdwin_char_width,1)
  1011. LISPFUNN(stdwin_text_width,1)
  1012. LISPFUNN(stdwin_text_break,2)
  1013. LISPFUNN(stdwin_set_text_font,3)
  1014. LISPFUNN(stdwin_get_event,0)
  1015. LISPFUNN(stdwin_get_event_no_hang,0)
  1016. LISPFUNN(stdwin_active_window,0)
  1017. LISPFUNN(stdwin_set_active_window,1)
  1018. LISPFUNN(stdwin_menu_create,1)
  1019. LISPFUNN(stdwin_menu_delete,1)
  1020. LISPFUNN(stdwin_menu_attach,2)
  1021. LISPFUNN(stdwin_menu_detach,2)
  1022. LISPFUNN(stdwin_menu_size,1)
  1023. LISPFUNN(stdwin_menu_add_item,3)
  1024. LISPFUNN(stdwin_set_menu_item_label,3)
  1025. LISPFUNN(stdwin_menu_item_enable,2)
  1026. LISPFUNN(stdwin_menu_item_disable,2)
  1027. LISPFUNN(stdwin_set_menu_item_checkmark,3)
  1028. LISPFUNN(stdwin_user_message,1)
  1029. LISPFUN(stdwin_user_ask,1,1,norest,nokey,0,NIL)
  1030. #endif
  1031.  
  1032.