1 /* 2 * list of all SUBRs 3 * Bruno Haible 1990-2006, 2009, 2017 4 * Sam Steingold 1998-2011, 2013, 2017 5 6 A C-compiled LISP-function is defined by a declaration 7 LISPFUN(name,seclass,req_count,opt_count,rest_flag,key_flag,key_count,keywords) 8 in this file. 9 > name: the function name (a C-identifier) 10 > seclass: the side-effect class (seclass_t, see lispbibl.d) 11 > req_count: the number of required-parameters (a number) 12 > opt_count: the number of optional parameters (a number) 13 > rest_flag: either norest or rest 14 > key_flag: either nokey or key or key_allow 15 > key_count: a number (0 if nokey) 16 > keywords: either NIL (if nokey) or a expression of the form 17 (kw(keyword1),...,kw(keywordn)) 18 19 A C-compiled LISP-function with a fixed number of arguments 20 is defined by the abbreviating declaration 21 LISPFUNN(name,req_count) 22 > name: the function name (a C-identifier) 23 > req_count: the (fixed) number of arguments (a number) */ 24 #define LISPFUNN(name,req_count) \ 25 LISPFUN(name,seclass_default,req_count,0,norest,nokey,0,NIL) 26 #define LISPFUNNF(name,req_count) \ 27 LISPFUN(name,seclass_foldable,req_count,0,norest,nokey,0,NIL) 28 #define LISPFUNNR(name,req_count) \ 29 LISPFUN(name,seclass_read,req_count,0,norest,nokey,0,NIL) 30 #define LISPFUNNS(name,req_count) \ 31 LISPFUN(name,seclass_rd_sig,req_count,0,norest,nokey,0,NIL) 32 33 /* Additionally, the same declaration plus C-Body must occur in a C-file. */ 34 35 /* expander for the construction of the extern-declarations: */ 36 #define LISPFUN_A(name,sec,req_count,opt_count,rest_flag,key_flag,key_count,keywords) \ 37 extern subr_##rest_flag##_function_t C_##name; 38 39 /* expander for the construction of the declaration of the C-function: */ 40 #define LISPFUN_B(name,sec,req_count,opt_count,rest_flag,key_flag,key_count,keywords) \ 41 global Values C_##name subr_##rest_flag##_function_args 42 #define subr_norest_function_args (void) 43 #define subr_rest_function_args (uintC argcount, gcv_object_t* rest_args_pointer) 44 45 /* expander for the declaration of the SUBR-table: */ 46 #define LISPFUN_C(name,sec,req_count,opt_count,rest_flag,key_flag,key_count,keywords) \ 47 subr_t D_##name; 48 49 /* convert combination of side-effect class + fast comparison into 50 the individual fields. since fastcmp is fastcmp_none virtually always, 51 there is little reason to have separate argument slots in LISPFUN_* for it */ 52 #define SECFC_BITS 16 53 #define SECFC_MASK ((1 << SECFC_BITS) - 1) 54 #define SECFC(sec,fc) (sec ^ (fc << SECFC_BITS)) 55 #define SECFC_SEC(secfc) (secfc & SECFC_MASK) 56 #define SECFC_FC(secfc) (secfc >> SECFC_BITS) 57 58 /* expander for the initialization of the SUBR-table: */ 59 #ifdef TYPECODES 60 #define LISPFUN_D(name_,secfc,req_count_,opt_count_,rest_flag_,key_flag_,key_count_,keywords_) \ 61 ptr->GCself = subr_tab_ptr_as_object(ptr /* = &subr_tab.D_##name_ */);\ 62 ptr->rectype = Rectype_Subr; \ 63 ptr->recflags = 0; \ 64 ptr->reclength = subr_length; \ 65 ptr->recxlength = subr_xlength; \ 66 ptr->name = S_help_(S_##name_); \ 67 ptr->keywords = NIL; /* preliminary */ \ 68 ptr->function = (lisp_function_t)(&C_##name_); \ 69 ptr->argtype = (uintW)subr_argtype(req_count_,opt_count_,subr_##rest_flag_,subr_##key_flag_,NULL); \ 70 ptr->req_count = req_count_; \ 71 ptr->opt_count = opt_count_; \ 72 ptr->rest_flag = (uintB)subr_##rest_flag_; \ 73 ptr->key_flag = (uintB)subr_##key_flag_; \ 74 ptr->key_count = key_count_; \ 75 ptr->seclass = SECFC_SEC(secfc); \ 76 ptr->fastcmp = SECFC_FC(secfc); \ 77 ptr++; 78 #else 79 #define LISPFUN_D(name_,secfc,req_count_,opt_count_,rest_flag_,key_flag_,key_count_,keywords_) \ 80 ptr->GCself = subr_tab_ptr_as_object(ptr /* = &subr_tab.D_##name_ */);\ 81 ptr->tfl = xrecord_tfl(Rectype_Subr,0,subr_length,subr_xlength); \ 82 ptr->name = S_help_(S_##name_); \ 83 ptr->keywords = NIL; /* preliminary */ \ 84 ptr->function = (lisp_function_t)(&C_##name_); \ 85 ptr->argtype = (uintW)subr_argtype(req_count_,opt_count_,subr_##rest_flag_,subr_##key_flag_,NULL); \ 86 ptr->req_count = req_count_; \ 87 ptr->opt_count = opt_count_; \ 88 ptr->rest_flag = (uintB)subr_##rest_flag_; \ 89 ptr->key_flag = (uintB)subr_##key_flag_; \ 90 ptr->key_count = key_count_; \ 91 ptr->seclass = SECFC_SEC(secfc); \ 92 ptr->fastcmp = SECFC_FC(secfc); \ 93 ptr++; 94 #endif 95 #define LISPFUN_E(name_,sec,req_count,opt_count,rest_flag,key_flag,key_count,keywords) \ 96 ptr->name = S_help_(S_##name_); \ 97 ptr++; 98 #ifdef TYPECODES 99 #ifdef DEBUG_GCSAFETY 100 #define LISPFUN_F(name,secfc,req_count,opt_count,rest_flag,key_flag,key_count,keywords) \ 101 { gcv_nullobj, /* preliminary */ \ 102 Rectype_Subr, 0, subr_length, subr_xlength, \ 103 gcv_nullobj, /* preliminary */ \ 104 gcv_nullobj, /* preliminary */ \ 105 (lisp_function_t)(&C_##name), \ 106 0, /* preliminary */ \ 107 req_count, \ 108 opt_count, \ 109 (uintB)subr_##rest_flag, \ 110 (uintB)subr_##key_flag, \ 111 key_count, \ 112 SECFC_SEC(secfc), \ 113 SECFC_FC(secfc), \ 114 }, 115 #else 116 #define LISPFUN_F(name,secfc,req_count,opt_count,rest_flag,key_flag,key_count,keywords) \ 117 { { gcv_nullobj }, /* preliminary */ \ 118 Rectype_Subr, 0, subr_length, subr_xlength, \ 119 gcv_nullobj, /* preliminary */ \ 120 gcv_nullobj, /* preliminary */ \ 121 (lisp_function_t)(&C_##name), \ 122 0, /* preliminary */ \ 123 req_count, \ 124 opt_count, \ 125 (uintB)subr_##rest_flag, \ 126 (uintB)subr_##key_flag, \ 127 key_count, \ 128 SECFC_SEC(secfc), \ 129 SECFC_FC(secfc), \ 130 }, 131 #endif 132 #else 133 #define LISPFUN_F(name,secfc,req_count,opt_count,rest_flag,key_flag,key_count,keywords) \ 134 { gcv_nullobj, /* preliminary */ \ 135 xrecord_tfl(Rectype_Subr,0,subr_length,subr_xlength), \ 136 gcv_nullobj, /* preliminary */ \ 137 gcv_nullobj, /* preliminary */ \ 138 (lisp_function_t)(&C_##name), \ 139 0, /* preliminary */ \ 140 req_count, \ 141 opt_count, \ 142 (uintB)subr_##rest_flag, \ 143 (uintB)subr_##key_flag, \ 144 key_count, \ 145 SECFC_SEC(secfc), \ 146 SECFC_FC(secfc), \ 147 }, 148 #endif 149 #ifdef TYPECODES 150 #ifdef DEBUG_GCSAFETY 151 #define LISPFUN_G(name,secfc,req_count,opt_count,rest_flag,key_flag,key_count,keywords) \ 152 { subr_tab_ptr_as_object(&subr_tab.D_##name), \ 153 Rectype_Subr, 0, subr_length, subr_xlength, \ 154 S_help_(S_##name), \ 155 NIL, /* preliminary */ \ 156 (lisp_function_t)(&C_##name), \ 157 0, /* preliminary */ \ 158 req_count, \ 159 opt_count, \ 160 (uintB)subr_##rest_flag, \ 161 (uintB)subr_##key_flag, \ 162 key_count, \ 163 SECFC_SEC(secfc), \ 164 SECFC_FC(secfc), \ 165 }, 166 #else 167 #define LISPFUN_G(name,secfc,req_count,opt_count,rest_flag,key_flag,key_count,keywords) \ 168 { { subr_tab_ptr_as_object(&subr_tab.D_##name) }, \ 169 Rectype_Subr, 0, subr_length, subr_xlength, \ 170 S_help_(S_##name), \ 171 NIL, /* preliminary */ \ 172 (lisp_function_t)(&C_##name), \ 173 0, /* preliminary */ \ 174 req_count, \ 175 opt_count, \ 176 (uintB)subr_##rest_flag, \ 177 (uintB)subr_##key_flag, \ 178 key_count, \ 179 SECFC_SEC(secfc), \ 180 SECFC_FC(secfc), \ 181 }, 182 #endif 183 #else 184 #define LISPFUN_G(name,secfc,req_count,opt_count,rest_flag,key_flag,key_count,keywords) \ 185 { subr_tab_ptr_as_object(&subr_tab.D_##name), \ 186 xrecord_tfl(Rectype_Subr,0,subr_length,subr_xlength), \ 187 S_help_(S_##name), \ 188 NIL, /* preliminary */ \ 189 (lisp_function_t)(&C_##name), \ 190 0, /* preliminary */ \ 191 req_count, \ 192 opt_count, \ 193 (uintB)subr_##rest_flag, \ 194 (uintB)subr_##key_flag, \ 195 key_count, \ 196 SECFC_SEC(secfc), \ 197 SECFC_FC(secfc), \ 198 }, 199 #endif 200 201 /* expander for the second initialization of the SUBR-table: */ 202 #define LISPFUN_H(name,sec,req_count,opt_count,rest_flag,key_flag,key_count,keywords_) \ 203 if (subr_##key_flag==subr_key) { \ 204 object vec = allocate_vector(key_count); \ 205 gcv_object_t* vecptr = &TheSvector(vec)->data[0]; \ 206 (void)(keywords_); \ 207 subr_tab.D_##name.keywords = vec; \ 208 } 209 210 /* which expander is used must be specified in the main file. 211 the default is #define LISPFUN LISPFUN_B */ 212 213 214 /* ---------- SPVW ---------- */ 215 /* no SUBRs */ 216 /* ---------- EVAL ---------- */ 217 LISPFUNNF(funtabref,1) 218 LISPFUNNR(subr_info,1) 219 LISPFUN(special_variable_p,seclass_read,1,1,norest,nokey,0,NIL) 220 LISPFUNNR(add_implicit_block,2) 221 LISPFUNNR(function_block_name,1) 222 /* ---------- ARRAY ---------- */ 223 LISPFUNNR(copy_simple_vector,1) 224 LISPFUN(vector,seclass_no_se,0,0,rest,nokey,0,NIL) 225 LISPFUN(aref,seclass_read,1,0,rest,nokey,0,NIL) 226 LISPFUN(store,seclass_default,2,0,rest,nokey,0,NIL) 227 LISPFUNNR(svref,2) 228 LISPFUNN(svstore,3) 229 LISPFUNN(psvstore,3) 230 LISPFUNNR(row_major_aref,2) 231 LISPFUNN(row_major_store,3) 232 LISPFUNNF(array_element_type,1) 233 LISPFUNNF(array_rank,1) 234 LISPFUNNR(array_dimension,2) 235 LISPFUNNR(array_dimensions,1) 236 LISPFUNNR(array_total_size,1) 237 LISPFUN(array_in_bounds_p,seclass_read,1,0,rest,nokey,0,NIL) 238 LISPFUN(array_row_major_index,seclass_read,1,0,rest,nokey,0,NIL) 239 LISPFUNNF(adjustable_array_p,1) 240 LISPFUNN(array_displacement,1) 241 LISPFUN(bit,seclass_read,1,0,rest,nokey,0,NIL) 242 LISPFUN(sbit,seclass_read,1,0,rest,nokey,0,NIL) 243 LISPFUN(bit_and,seclass_default,2,1,norest,nokey,0,NIL) 244 LISPFUN(bit_ior,seclass_default,2,1,norest,nokey,0,NIL) 245 LISPFUN(bit_xor,seclass_default,2,1,norest,nokey,0,NIL) 246 LISPFUN(bit_eqv,seclass_default,2,1,norest,nokey,0,NIL) 247 LISPFUN(bit_nand,seclass_default,2,1,norest,nokey,0,NIL) 248 LISPFUN(bit_nor,seclass_default,2,1,norest,nokey,0,NIL) 249 LISPFUN(bit_andc1,seclass_default,2,1,norest,nokey,0,NIL) 250 LISPFUN(bit_andc2,seclass_default,2,1,norest,nokey,0,NIL) 251 LISPFUN(bit_orc1,seclass_default,2,1,norest,nokey,0,NIL) 252 LISPFUN(bit_orc2,seclass_default,2,1,norest,nokey,0,NIL) 253 LISPFUN(bit_not,seclass_default,1,1,norest,nokey,0,NIL) 254 LISPFUNNR(array_has_fill_pointer_p,1) 255 LISPFUNNR(fill_pointer,1) 256 LISPFUNN(set_fill_pointer,2) 257 LISPFUNN(vector_push,2) 258 LISPFUNN(vector_pop,1) 259 LISPFUN(vector_push_extend,seclass_default,2,1,norest,nokey,0,NIL) 260 LISPFUN(make_array,seclass_read,1,0,norest,key,7, 261 (kw(adjustable),kw(element_type),kw(initial_element), 262 kw(initial_contents),kw(fill_pointer), 263 kw(displaced_to),kw(displaced_index_offset)) ) 264 LISPFUN(adjust_array,seclass_default,2,0,norest,key,6, 265 (kw(element_type),kw(initial_element), 266 kw(initial_contents),kw(fill_pointer), 267 kw(displaced_to),kw(displaced_index_offset)) ) 268 LISPFUNN(vector_init,1) 269 LISPFUNN(vector_upd,2) 270 LISPFUNN(vector_endtest,2) 271 LISPFUNN(vector_fe_init,1) 272 LISPFUNN(vector_fe_upd,2) 273 LISPFUNN(vector_fe_endtest,2) 274 LISPFUNN(vector_length,1) 275 LISPFUNN(vector_init_start,2) 276 LISPFUNN(vector_fe_init_end,2) 277 LISPFUNN(make_bit_vector,1) 278 /* ---------- CHARSTRG ---------- */ 279 LISPFUNNR(string_info,1) 280 LISPFUNNF(standard_char_p,1) 281 LISPFUNNF(graphic_char_p,1) 282 LISPFUNN(char_width,1) 283 LISPFUNNF(string_char_p,1) 284 #if (base_char_code_limit < char_code_limit) 285 LISPFUNN(base_char_p,1) 286 #endif 287 LISPFUNNF(alpha_char_p,1) 288 LISPFUNNF(upper_case_p,1) 289 LISPFUNNF(lower_case_p,1) 290 LISPFUNNF(both_case_p,1) 291 LISPFUN(digit_char_p,seclass_foldable,1,1,norest,nokey,0,NIL) 292 LISPFUNNF(alphanumericp,1) 293 LISPFUN(char_eq,seclass_foldable,1,0,rest,nokey,0,NIL) 294 LISPFUN(char_noteq,seclass_foldable,1,0,rest,nokey,0,NIL) 295 LISPFUN(char_less,seclass_foldable,1,0,rest,nokey,0,NIL) 296 LISPFUN(char_greater,seclass_foldable,1,0,rest,nokey,0,NIL) 297 LISPFUN(char_ltequal,seclass_foldable,1,0,rest,nokey,0,NIL) 298 LISPFUN(char_gtequal,seclass_foldable,1,0,rest,nokey,0,NIL) 299 LISPFUN(char_equal,seclass_foldable,1,0,rest,nokey,0,NIL) 300 LISPFUN(char_not_equal,seclass_foldable,1,0,rest,nokey,0,NIL) 301 LISPFUN(char_lessp,seclass_foldable,1,0,rest,nokey,0,NIL) 302 LISPFUN(char_greaterp,seclass_foldable,1,0,rest,nokey,0,NIL) 303 LISPFUN(char_not_greaterp,seclass_foldable,1,0,rest,nokey,0,NIL) 304 LISPFUN(char_not_lessp,seclass_foldable,1,0,rest,nokey,0,NIL) 305 LISPFUNNF(char_code,1) 306 LISPFUNNF(code_char,1) 307 LISPFUNNR(character,1) 308 LISPFUNNF(char_upcase,1) 309 LISPFUNNF(char_downcase,1) 310 LISPFUN(digit_char,seclass_foldable,1,1,norest,nokey,0,NIL) 311 LISPFUNNF(char_int,1) 312 LISPFUNNF(int_char,1) 313 LISPFUNNF(char_name,1) 314 LISPFUNNF(char_invertcase,1) 315 LISPFUNNR(char,2) 316 LISPFUNNR(schar,2) 317 LISPFUNN(store_char,3) 318 LISPFUNN(store_schar,3) 319 LISPFUN(string_eq,seclass_read,2,0,norest,key,4, 320 (kw(start1),kw(end1),kw(start2),kw(end2)) ) 321 LISPFUN(cs_string_eq,seclass_read,2,0,norest,key,4, 322 (kw(start1),kw(end1),kw(start2),kw(end2)) ) 323 LISPFUN(string_noteq,seclass_read,2,0,norest,key,4, 324 (kw(start1),kw(end1),kw(start2),kw(end2)) ) 325 LISPFUN(cs_string_noteq,seclass_read,2,0,norest,key,4, 326 (kw(start1),kw(end1),kw(start2),kw(end2)) ) 327 LISPFUN(string_less,seclass_read,2,0,norest,key,4, 328 (kw(start1),kw(end1),kw(start2),kw(end2)) ) 329 LISPFUN(cs_string_less,seclass_read,2,0,norest,key,4, 330 (kw(start1),kw(end1),kw(start2),kw(end2)) ) 331 LISPFUN(string_greater,seclass_read,2,0,norest,key,4, 332 (kw(start1),kw(end1),kw(start2),kw(end2)) ) 333 LISPFUN(cs_string_greater,seclass_read,2,0,norest,key,4, 334 (kw(start1),kw(end1),kw(start2),kw(end2)) ) 335 LISPFUN(string_ltequal,seclass_read,2,0,norest,key,4, 336 (kw(start1),kw(end1),kw(start2),kw(end2)) ) 337 LISPFUN(cs_string_ltequal,seclass_read,2,0,norest,key,4, 338 (kw(start1),kw(end1),kw(start2),kw(end2)) ) 339 LISPFUN(string_gtequal,seclass_read,2,0,norest,key,4, 340 (kw(start1),kw(end1),kw(start2),kw(end2)) ) 341 LISPFUN(cs_string_gtequal,seclass_read,2,0,norest,key,4, 342 (kw(start1),kw(end1),kw(start2),kw(end2)) ) 343 LISPFUN(string_equal,seclass_read,2,0,norest,key,4, 344 (kw(start1),kw(end1),kw(start2),kw(end2)) ) 345 LISPFUN(string_not_equal,seclass_read,2,0,norest,key,4, 346 (kw(start1),kw(end1),kw(start2),kw(end2)) ) 347 LISPFUN(string_lessp,seclass_read,2,0,norest,key,4, 348 (kw(start1),kw(end1),kw(start2),kw(end2)) ) 349 LISPFUN(string_greaterp,seclass_read,2,0,norest,key,4, 350 (kw(start1),kw(end1),kw(start2),kw(end2)) ) 351 LISPFUN(string_not_greaterp,seclass_read,2,0,norest,key,4, 352 (kw(start1),kw(end1),kw(start2),kw(end2)) ) 353 LISPFUN(string_not_lessp,seclass_read,2,0,norest,key,4, 354 (kw(start1),kw(end1),kw(start2),kw(end2)) ) 355 LISPFUN(search_string_eq,seclass_read,2,0,norest,key,4, 356 (kw(start1),kw(end1),kw(start2),kw(end2)) ) 357 LISPFUN(search_string_equal,seclass_read,2,0,norest,key,4, 358 (kw(start1),kw(end1),kw(start2),kw(end2)) ) 359 LISPFUN(make_string,seclass_no_se,1,0,norest,key,2, 360 (kw(initial_element),kw(element_type)) ) 361 LISPFUNNR(string_both_trim,4) 362 LISPFUN(string_width,seclass_default,1,0,norest,key,2, (kw(start),kw(end)) ) 363 LISPFUN(nstring_upcase,seclass_default,1,0,norest,key,2, (kw(start),kw(end)) ) 364 LISPFUN(string_upcase,seclass_read,1,0,norest,key,2, (kw(start),kw(end)) ) 365 LISPFUN(nstring_downcase,seclass_default,1,0,norest,key,2, 366 (kw(start),kw(end)) ) 367 LISPFUN(string_downcase,seclass_read,1,0,norest,key,2, (kw(start),kw(end)) ) 368 LISPFUN(nstring_capitalize,seclass_default,1,0,norest,key,2, 369 (kw(start),kw(end)) ) 370 LISPFUN(string_capitalize,seclass_read,1,0,norest,key,2, (kw(start),kw(end)) ) 371 LISPFUN(nstring_invertcase,seclass_default,1,0,norest,key,2, 372 (kw(start),kw(end)) ) 373 LISPFUN(string_invertcase,seclass_read,1,0,norest,key,2, (kw(start),kw(end)) ) 374 LISPFUNNR(string,1) 375 LISPFUNNR(cs_string,1) 376 LISPFUNNR(name_char,1) 377 LISPFUN(substring,seclass_read,2,1,norest,nokey,0,NIL) 378 LISPFUN(string_concat,seclass_read,0,0,rest,nokey,0,NIL) 379 /* ---------- CONTROL ---------- */ 380 LISPFUN(exit,seclass_default,0,1,norest,nokey,0,NIL) 381 LISPFUNNR(symbol_value,1) 382 LISPFUNNR(symbol_function,1) 383 LISPFUNNS(fdefinition,1) 384 LISPFUNNR(boundp,1) 385 LISPFUNNR(fboundp,1) 386 LISPFUNNF(special_operator_p,1) 387 LISPFUNN(set,2) 388 LISPFUNN(makunbound,1) 389 LISPFUNN(fmakunbound,1) 390 LISPFUN(apply,seclass_default,2,0,rest,nokey,0,NIL) 391 LISPFUN(funcall,seclass_default,1,0,rest,nokey,0,NIL) 392 LISPFUN(mapcar,seclass_default,2,0,rest,nokey,0,NIL) 393 LISPFUN(maplist,seclass_default,2,0,rest,nokey,0,NIL) 394 LISPFUN(mapc,seclass_default,2,0,rest,nokey,0,NIL) 395 LISPFUN(mapl,seclass_default,2,0,rest,nokey,0,NIL) 396 LISPFUN(mapcan,seclass_default,2,0,rest,nokey,0,NIL) 397 LISPFUN(mapcon,seclass_default,2,0,rest,nokey,0,NIL) 398 LISPFUN(mapcap,seclass_default,2,0,rest,nokey,0,NIL) 399 LISPFUN(maplap,seclass_default,2,0,rest,nokey,0,NIL) 400 LISPFUN(values,seclass_no_se,0,0,rest,nokey,0,NIL) 401 LISPFUNNR(values_list,1) 402 LISPFUNN(driver,1) 403 LISPFUNN(unwind_to_driver,1) 404 LISPFUN(macro_function,seclass_read,1,1,norest,nokey,0,NIL) 405 LISPFUN(macroexpand,seclass_default,1,1,norest,nokey,0,NIL) 406 LISPFUN(macroexpand_1,seclass_default,1,1,norest,nokey,0,NIL) 407 LISPFUNN(proclaim,1) 408 LISPFUNN(eval,1) 409 LISPFUN(evalhook,seclass_default,3,1,norest,nokey,0,NIL) 410 LISPFUN(applyhook,seclass_default,4,1,norest,nokey,0,NIL) 411 LISPFUN(constantp,seclass_read,1,1,norest,nokey,0,NIL) 412 LISPFUNNR(global_symbol_macro_p,1) 413 LISPFUNNR(function_side_effect,1) 414 LISPFUNNR(function_name_p,1) 415 LISPFUNN(check_function_name,2) 416 LISPFUNN(check_symbol,2) 417 LISPFUN(parse_body,seclass_default,1,1,norest,nokey,0,NIL) 418 LISPFUNN(keyword_test,2) 419 LISPFUN(xor,seclass_foldable,0,0,rest,nokey,0,NIL) 420 /* ---------- DEBUG ---------- */ 421 LISPFUN(read_form,seclass_default,1,1,norest,nokey,0,NIL) 422 LISPFUN(read_eval_print,seclass_default,1,1,norest,nokey,0,NIL) 423 LISPFUNN(initial_break_driver,1) 424 LISPFUNN(load,1) 425 LISPFUNN(frame_up,3) 426 LISPFUNN(frame_down,3) 427 LISPFUNN(the_frame,0) 428 LISPFUNN(same_env_as,2) 429 LISPFUNN(eval_at,2) 430 LISPFUNN(eval_frame_p,1) 431 LISPFUNN(driver_frame_p,1) 432 LISPFUNN(trap_eval_frame,2) 433 LISPFUNN(redo_eval_frame,1) 434 LISPFUNN(return_from_eval_frame,2) 435 LISPFUNN(describe_frame,2) 436 LISPFUN(show_stack,seclass_default,0,3,norest,nokey,0,NIL) 437 LISPFUNN(crash,0) 438 LISPFUNN(proom,0) 439 LISPFUN(gc,seclass_default,0,1,norest,nokey,0,NIL) 440 /* ---------- ENCODING ---------- */ 441 LISPFUN(make_encoding,seclass_read,0,0,norest,key,5, 442 (kw(charset),kw(line_terminator),kw(input_error_action), 443 kw(output_error_action),kw(if_does_not_exist)) ) 444 LISPFUNNF(encodingp,1) 445 LISPFUNNR(charset_typep,2) 446 LISPFUNNF(encoding_line_terminator,1) 447 #ifdef ENABLE_UNICODE 448 LISPFUNNF(encoding_charset,1) 449 LISPFUN(charset_range,seclass_read,3,1,norest,nokey,0,NIL) 450 #endif 451 LISPFUNNR(default_file_encoding,0) 452 LISPFUNN(set_default_file_encoding,1) 453 #ifdef ENABLE_UNICODE 454 LISPFUNNR(pathname_encoding,0) 455 LISPFUNN(set_pathname_encoding,1) 456 LISPFUNNR(terminal_encoding,0) 457 LISPFUNN(set_terminal_encoding,1) 458 #if defined(HAVE_FFI) 459 LISPFUNNR(foreign_encoding,0) 460 LISPFUNN(set_foreign_encoding,1) 461 #endif 462 LISPFUNNR(misc_encoding,0) 463 LISPFUNN(set_misc_encoding,1) 464 #endif 465 LISPFUN(convert_string_from_bytes,seclass_read,2,0,norest,key,2, 466 (kw(start),kw(end)) ) 467 LISPFUN(convert_string_to_bytes,seclass_read,2,0,norest,key,2, 468 (kw(start),kw(end)) ) 469 /* ---------- ERROR ---------- */ 470 LISPFUNNF(strerror,1) 471 #if defined(WIN32_NATIVE) || defined(UNIX_CYGWIN) 472 LISPFUNNF(format_message,1) 473 #endif 474 LISPFUN(error,seclass_default,1,0,rest,nokey,0,NIL) 475 LISPFUNN(defclcs,1) 476 LISPFUN(cerror_of_type,seclass_default,3,0,rest,nokey,0,NIL) 477 LISPFUN(error_of_type,seclass_default,2,0,rest,nokey,0,NIL) 478 LISPFUNN(invoke_debugger,1) 479 LISPFUN(clcs_signal,seclass_default,1,0,rest,nokey,0,NIL) 480 /* ---------- HASHTABL ---------- */ 481 LISPFUN(make_hash_table,seclass_read,0,0,norest,key,9, 482 (kw(initial_contents),kw(key_type),kw(value_type), 483 kw(warn_if_needs_rehash_after_gc),kw(weak), 484 kw(test),kw(size),kw(rehash_size),kw(rehash_threshold)) ) 485 LISPFUN(gethash,seclass_read,2,1,norest,nokey,0,NIL) 486 LISPFUNN(puthash,3) 487 LISPFUNN(remhash,2) 488 LISPFUNN(maphash,2) 489 LISPFUNN(clrhash,1) 490 LISPFUNNR(hash_table_count,1) 491 LISPFUNNR(hash_table_rehash_size,1) 492 LISPFUNNR(hash_table_rehash_threshold,1) 493 LISPFUNNR(hash_table_size,1) 494 LISPFUNNF(hash_table_test,1) 495 LISPFUNNF(fasthash_stable_p,1) 496 LISPFUNNR(stablehash_stable_p,1) 497 LISPFUNNR(hash_table_iterator,1) 498 LISPFUNN(hash_table_iterate,1) 499 LISPFUNNR(hash_table_weak_p,1) 500 LISPFUNN(set_hash_table_weak_p,2) 501 LISPFUNNR(hash_table_warn_if_needs_rehash_after_gc,1) 502 LISPFUNN(set_hash_table_warn_if_needs_rehash_after_gc,2) 503 LISPFUNN(class_gethash,2) 504 LISPFUN(class_tuple_gethash,seclass_default,2,0,rest,nokey,0,NIL) 505 LISPFUNN(sxhash,1) 506 /* ---------- IO ---------- */ 507 LISPFUNN(defio,2) 508 LISPFUN(copy_readtable,seclass_read,0,2,norest,nokey,0,NIL) 509 LISPFUN(set_syntax_from_char,seclass_default,2,2,norest,nokey,0,NIL) 510 LISPFUN(set_macro_character,seclass_default,2,2,norest,nokey,0,NIL) 511 LISPFUN(get_macro_character,seclass_read,1,1,norest,nokey,0,NIL) 512 LISPFUN(make_dispatch_macro_character,seclass_default,1,2,norest,nokey,0,NIL) 513 LISPFUN(set_dispatch_macro_character,seclass_default,3,1,norest,nokey,0,NIL) 514 LISPFUN(get_dispatch_macro_character,seclass_rd_sig,2,1,norest,nokey,0,NIL) 515 LISPFUNN(readtable_case,1) 516 LISPFUNN(set_readtable_case,2) 517 LISPFUNN(lpar_reader,2) 518 LISPFUNN(rpar_reader,2) 519 LISPFUNN(string_reader,2) 520 LISPFUNN(quote_reader,2) 521 LISPFUNN(line_comment_reader,2) 522 LISPFUNN(function_reader,3) 523 LISPFUNN(comment_reader,3) 524 LISPFUNN(char_reader,3) 525 LISPFUNN(binary_reader,3) 526 LISPFUNN(octal_reader,3) 527 LISPFUNN(hexadecimal_reader,3) 528 LISPFUNN(radix_reader,3) 529 LISPFUNN(complex_reader,3) 530 LISPFUNN(uninterned_reader,3) 531 LISPFUNN(bit_vector_reader,3) 532 LISPFUNN(vector_reader,3) 533 LISPFUNN(array_reader,3) 534 LISPFUNN(read_eval_reader,3) 535 LISPFUNN(load_eval_reader,3) 536 LISPFUNN(label_definition_reader,3) 537 LISPFUNN(label_reference_reader,3) 538 LISPFUNN(not_readable_reader,3) 539 LISPFUNN(syntax_error_reader,3) 540 LISPFUNNR(featurep,1) 541 LISPFUNN(feature_reader,3) 542 LISPFUNN(not_feature_reader,3) 543 LISPFUNN(structure_reader,3) 544 LISPFUNN(closure_reader,3) 545 LISPFUNN(clisp_pathname_reader,3) 546 LISPFUNN(ansi_pathname_reader,3) 547 #if defined(UNIX) || defined(WIN32_NATIVE) 548 LISPFUNN(unix_executable_reader,3) 549 #endif 550 LISPFUN(readL,seclass_default,0,4,norest,nokey,0,NIL) 551 LISPFUN(read_preserving_whitespace,seclass_default,0,4,norest,nokey,0,NIL) 552 LISPFUN(read_delimited_list,seclass_default,1,2,norest,nokey,0,NIL) 553 LISPFUN(read_line,seclass_default,0,4,norest,nokey,0,NIL) 554 LISPFUN(read_char,seclass_default,0,4,norest,nokey,0,NIL) 555 LISPFUN(unread_char,seclass_default,1,1,norest,nokey,0,NIL) 556 LISPFUN(peek_char,seclass_default,0,5,norest,nokey,0,NIL) 557 LISPFUN(listenL,seclass_default,0,1,norest,nokey,0,NIL) 558 LISPFUNN(read_char_will_hang_p,1) 559 LISPFUN(read_char_no_hang,seclass_default,0,4,norest,nokey,0,NIL) 560 LISPFUN(clear_input,seclass_default,0,1,norest,nokey,0,NIL) 561 LISPFUN(read_from_string,seclass_default,1,2,norest,key,3, 562 (kw(preserve_whitespace),kw(start),kw(end)) ) 563 LISPFUN(parse_integer,seclass_rd_sig,1,0,norest,key,4, 564 (kw(start),kw(end),kw(radix),kw(junk_allowed)) ) 565 LISPFUNN(print_structure,2) 566 LISPFUN(writeL,seclass_default,1,0,norest,key,17, 567 (kw(case),kw(level),kw(length),kw(gensym),kw(escape),kw(radix), 568 kw(base),kw(array),kw(circle),kw(pretty),kw(closure),kw(readably), 569 kw(lines),kw(miser_width),kw(pprint_dispatch), 570 kw(right_margin),kw(stream))) 571 LISPFUN(prin1,seclass_default,1,1,norest,nokey,0,NIL) 572 LISPFUN(print,seclass_default,1,1,norest,nokey,0,NIL) 573 LISPFUN(pprint,seclass_default,1,1,norest,nokey,0,NIL) 574 LISPFUN(pprint_indent,seclass_default,2,1,norest,nokey,0,NIL) 575 LISPFUN(pprint_newline,seclass_default,1,1,norest,nokey,0,NIL) 576 LISPFUN(format_tabulate,seclass_default,3,2,norest,nokey,0,NIL) 577 LISPFUNN(ppprint_logical_block,3) 578 LISPFUNN(pcirclep,2) 579 LISPFUN(princ,seclass_default,1,1,norest,nokey,0,NIL) 580 LISPFUN(write_to_string,seclass_default,1,0,norest,key,16, 581 (kw(case),kw(level),kw(length),kw(gensym),kw(escape),kw(radix), 582 kw(base),kw(array),kw(circle),kw(pretty),kw(closure),kw(readably), 583 kw(lines),kw(miser_width),kw(pprint_dispatch),kw(right_margin))) 584 LISPFUNN(prin1_to_string,1) 585 LISPFUNN(princ_to_string,1) 586 LISPFUN(write_char,seclass_default,1,1,norest,nokey,0,NIL) 587 LISPFUN(write_string,seclass_default,1,1,norest,key,2, (kw(start),kw(end)) ) 588 LISPFUN(write_line,seclass_default,1,1,norest,key,2, (kw(start),kw(end)) ) 589 LISPFUN(terpri,seclass_default,0,1,norest,nokey,0,NIL) 590 LISPFUN(fresh_line,seclass_default,0,1,norest,nokey,0,NIL) 591 LISPFUN(elastic_newline,seclass_default,0,1,norest,nokey,0,NIL) 592 LISPFUN(finish_output,seclass_default,0,1,norest,nokey,0,NIL) 593 LISPFUN(force_output,seclass_default,0,1,norest,nokey,0,NIL) 594 LISPFUN(clear_output,seclass_default,0,1,norest,nokey,0,NIL) 595 LISPFUN(write_unreadable,seclass_default,3,0,norest,key,2, 596 (kw(type),kw(identity)) ) 597 LISPFUN(line_position,seclass_default,0,1,norest,nokey,0,NIL) 598 LISPFUNN(whitespacep,1) 599 LISPFUN(write_spaces,seclass_default,1,1,norest,nokey,0,NIL) 600 /* ---------- LIST ---------- */ 601 LISPFUNNR(car,1) 602 LISPFUNNR(cdr,1) 603 LISPFUNNR(caar,1) 604 LISPFUNNR(cadr,1) 605 LISPFUNNR(cdar,1) 606 LISPFUNNR(cddr,1) 607 LISPFUNNR(caaar,1) 608 LISPFUNNR(caadr,1) 609 LISPFUNNR(cadar,1) 610 LISPFUNNR(caddr,1) 611 LISPFUNNR(cdaar,1) 612 LISPFUNNR(cdadr,1) 613 LISPFUNNR(cddar,1) 614 LISPFUNNR(cdddr,1) 615 LISPFUNNR(caaaar,1) 616 LISPFUNNR(caaadr,1) 617 LISPFUNNR(caadar,1) 618 LISPFUNNR(caaddr,1) 619 LISPFUNNR(cadaar,1) 620 LISPFUNNR(cadadr,1) 621 LISPFUNNR(caddar,1) 622 LISPFUNNR(cadddr,1) 623 LISPFUNNR(cdaaar,1) 624 LISPFUNNR(cdaadr,1) 625 LISPFUNNR(cdadar,1) 626 LISPFUNNR(cdaddr,1) 627 LISPFUNNR(cddaar,1) 628 LISPFUNNR(cddadr,1) 629 LISPFUNNR(cdddar,1) 630 LISPFUNNR(cddddr,1) 631 LISPFUN(cons,seclass_no_se,2,0,norest,nokey,0,NIL) 632 LISPFUN(tree_equal,seclass_default,2,0,norest,key,2, (kw(test),kw(test_not)) ) 633 LISPFUNNF(endp,1) 634 LISPFUNNR(list_length,1) 635 LISPFUNNR(list_length_dotted,1) 636 LISPFUNNR(list_length_proper,1) 637 LISPFUNNR(list_length_in_bounds_p,4) 638 LISPFUN(proper_list_length_in_bounds_p,seclass_read,2,1,norest,nokey,0,NIL) 639 LISPFUNNR(nth,2) 640 LISPFUNNR(first,1) 641 LISPFUNNR(second,1) 642 LISPFUNNR(third,1) 643 LISPFUNNR(fourth,1) 644 LISPFUNNR(fifth,1) 645 LISPFUNNR(sixth,1) 646 LISPFUNNR(seventh,1) 647 LISPFUNNR(eighth,1) 648 LISPFUNNR(ninth,1) 649 LISPFUNNR(tenth,1) 650 LISPFUNNR(rest,1) 651 LISPFUNNR(nthcdr,2) 652 LISPFUNNR(conses_p,2) 653 LISPFUN(last,seclass_read,1,1,norest,nokey,0,NIL) 654 LISPFUN(list,seclass_no_se,0,0,rest,nokey,0,NIL) 655 LISPFUN(liststar,seclass_no_se,1,0,rest,nokey,0,NIL) 656 LISPFUN(make_list,seclass_no_se,1,0,norest,key,1, (kw(initial_element)) ) 657 LISPFUN(append,seclass_read,0,0,rest,nokey,0,NIL) 658 LISPFUNNR(copy_list,1) 659 LISPFUNNR(copy_alist,1) 660 LISPFUNNR(copy_tree,1) 661 LISPFUNNR(revappend,2) 662 LISPFUN(nconc,seclass_default,0,0,rest,nokey,0,NIL) 663 LISPFUNN(nreconc,2) 664 LISPFUNN(list_nreverse,1) 665 LISPFUN(butlast,seclass_read,1,1,norest,nokey,0,NIL) 666 LISPFUN(nbutlast,seclass_default,1,1,norest,nokey,0,NIL) 667 LISPFUNNR(ldiff,2) 668 LISPFUNN(rplaca,2) 669 LISPFUNN(prplaca,2) 670 LISPFUNN(rplacd,2) 671 LISPFUNN(prplacd,2) 672 LISPFUN(subst,seclass_default,3,0,norest,key,3, 673 (kw(test),kw(test_not),kw(key)) ) 674 LISPFUN(subst_if,seclass_default,3,0,norest,key,1, (kw(key)) ) 675 LISPFUN(subst_if_not,seclass_default,3,0,norest,key,1, (kw(key)) ) 676 LISPFUN(nsubst,seclass_default,3,0,norest,key,3, 677 (kw(test),kw(test_not),kw(key)) ) 678 LISPFUN(nsubst_if,seclass_default,3,0,norest,key,1, (kw(key)) ) 679 LISPFUN(nsubst_if_not,seclass_default,3,0,norest,key,1, (kw(key)) ) 680 LISPFUN(sublis,seclass_default,2,0,norest,key,3, 681 (kw(test),kw(test_not),kw(key)) ) 682 LISPFUN(nsublis,seclass_default,2,0,norest,key,3, 683 (kw(test),kw(test_not),kw(key)) ) 684 LISPFUNNR(memq,2) 685 LISPFUN(member,seclass_default,2,0,norest,key,3, 686 (kw(test),kw(test_not),kw(key)) ) 687 LISPFUN(member_if,seclass_default,2,0,norest,key,1, (kw(key)) ) 688 LISPFUN(member_if_not,seclass_default,2,0,norest,key,1, (kw(key)) ) 689 LISPFUNNR(tailp,2) 690 LISPFUN(adjoin,seclass_default,2,0,norest,key,3, 691 (kw(test),kw(test_not),kw(key)) ) 692 LISPFUN(acons,seclass_no_se,3,0,norest,nokey,0,NIL) 693 LISPFUN(pairlis,seclass_read,2,1,norest,nokey,0,NIL) 694 LISPFUN(assoc,seclass_default,2,0,norest,key,3, 695 (kw(test),kw(test_not),kw(key)) ) 696 LISPFUN(assoc_if,seclass_default,2,0,norest,key,1, (kw(key)) ) 697 LISPFUN(assoc_if_not,seclass_default,2,0,norest,key,1, (kw(key)) ) 698 LISPFUN(rassoc,seclass_default,2,0,norest,key,3, 699 (kw(test),kw(test_not),kw(key)) ) 700 LISPFUN(rassoc_if,seclass_default,2,0,norest,key,1, (kw(key)) ) 701 LISPFUN(rassoc_if_not,seclass_default,2,0,norest,key,1, (kw(key)) ) 702 LISPFUNN(list_upd,2) 703 LISPFUNN(list_endtest,2) 704 LISPFUNN(list_fe_init,1) 705 LISPFUNN(list_access,2) 706 LISPFUNN(list_access_set,3) 707 LISPFUNN(list_elt,2) 708 LISPFUNN(list_set_elt,3) 709 LISPFUNN(list_init_start,2) 710 LISPFUNN(list_fe_init_end,2) 711 /* ---------- MISC ---------- */ 712 LISPFUN(lisp_implementation_type,seclass_no_se,0,0,norest,nokey,0,NIL) 713 LISPFUN(lisp_implementation_version,seclass_no_se,0,0,norest,nokey,0,NIL) 714 LISPFUN(version,seclass_default,0,1,norest,nokey,0,NIL) 715 LISPFUNN(machinetype,0) 716 LISPFUNN(machine_version,0) 717 LISPFUN(get_env,seclass_default,0,1,norest,nokey,0,NIL) 718 LISPFUNN(set_env,2) 719 #ifdef WIN32_NATIVE 720 LISPFUNN(registry,2) 721 #endif 722 LISPFUN(software_type,seclass_no_se,0,0,norest,nokey,0,NIL) 723 LISPFUN(software_version,seclass_no_se,0,0,norest,nokey,0,NIL) 724 LISPFUNNF(identity,1) 725 LISPFUNN(address_of,1) 726 LISPFUNN(code_address_of,1) 727 LISPFUNN(process_id,0) 728 LISPFUNNF(ansi,0) 729 LISPFUNN(set_ansi,1) 730 LISPFUN(module_info,seclass_no_se,0,2,norest,nokey,0,NIL) 731 LISPFUN(argv,seclass_no_se,0,0,norest,nokey,0,NIL) 732 /* ---------- I18N ---------- */ 733 LISPFUNNR(current_language,0) 734 LISPFUNN(set_current_language,1) 735 LISPFUNNR(text,1) 736 /* ---------- SOCKET ---------- */ 737 LISPFUNN(machine_instance,0) 738 /* ---------- TIME ---------- */ 739 LISPFUNNR(get_internal_real_time,0) 740 LISPFUN(get_internal_run_time,seclass_read,0,1,norest,nokey,0,NIL) 741 LISPFUNNR(get_universal_time,0) 742 #if defined(UNIX) || defined(WIN32) 743 LISPFUNNR(default_time_zone,2) 744 #endif 745 LISPFUNN(psleep,2) 746 LISPFUN(pptime,seclass_read,0,1,norest,nokey,0,NIL) 747 LISPFUNNF(delta4,5) 748 /* ---------- PACKAGE ---------- */ 749 LISPFUNNR(make_symbol,1) 750 LISPFUNNR(find_package,1) 751 LISPFUNN(pfind_package,1) 752 LISPFUNNR(package_name,1) 753 LISPFUNNR(package_nicknames,1) 754 LISPFUN(rename_package,seclass_default,2,1,norest,nokey,0,NIL) 755 LISPFUNNR(package_use_list,1) 756 LISPFUNNR(package_used_by_list,1) 757 LISPFUNNR(package_shadowing_symbols,1) 758 LISPFUNNR(package_lock,1) 759 LISPFUNNR(package_shortest_name,1) 760 LISPFUNNR(package_case_sensitive_p,1) 761 LISPFUNNR(package_case_inverted_p,1) 762 LISPFUNNR(package_documentation,1) 763 LISPFUNN(set_package_documentation,2) 764 LISPFUNN(set_package_case_inverted_p,2) 765 LISPFUNN(set_package_case_sensitive_p,2) 766 LISPFUNN(set_package_lock,2) 767 LISPFUNN(symbol_value_lock,1) 768 LISPFUNN(check_package_lock,3) 769 LISPFUNNR(list_all_packages,0) 770 LISPFUN(intern,seclass_default,1,1,norest,nokey,0,NIL) 771 LISPFUN(cs_intern,seclass_default,1,1,norest,nokey,0,NIL) 772 LISPFUN(find_symbol,seclass_read,1,1,norest,nokey,0,NIL) 773 LISPFUN(cs_find_symbol,seclass_read,1,1,norest,nokey,0,NIL) 774 LISPFUN(unintern,seclass_default,1,1,norest,nokey,0,NIL) 775 LISPFUN(export,seclass_default,1,1,norest,nokey,0,NIL) 776 LISPFUN(unexport,seclass_default,1,1,norest,nokey,0,NIL) 777 LISPFUNN(re_export,2) 778 LISPFUN(import,seclass_default,1,1,norest,nokey,0,NIL) 779 LISPFUN(shadowing_import,seclass_default,1,1,norest,nokey,0,NIL) 780 LISPFUN(shadow,seclass_default,1,1,norest,nokey,0,NIL) 781 LISPFUN(cs_shadow,seclass_default,1,1,norest,nokey,0,NIL) 782 LISPFUN(use_package,seclass_default,1,1,norest,nokey,0,NIL) 783 LISPFUN(unuse_package,seclass_default,1,1,norest,nokey,0,NIL) 784 LISPFUN(make_package,seclass_default,1,0,norest,key,4, 785 (kw(nicknames),kw(use),kw(case_sensitive),kw(case_inverted)) ) 786 LISPFUN(cs_make_package,seclass_default,1,0,norest,key,4, 787 (kw(nicknames),kw(use),kw(case_sensitive),kw(case_inverted)) ) 788 LISPFUN(pin_package,seclass_default,1,0,norest,key,4, 789 (kw(nicknames),kw(use),kw(case_sensitive),kw(case_inverted)) ) 790 LISPFUNN(delete_package,1) 791 LISPFUNNR(find_all_symbols,1) 792 LISPFUNNR(cs_find_all_symbols,1) 793 LISPFUNN(map_symbols,2) 794 LISPFUNN(map_external_symbols,2) 795 LISPFUNN(map_all_symbols,1) 796 LISPFUNN(package_iterator,2) 797 LISPFUNN(package_iterate,1) 798 /* ---------- PATHNAME ---------- */ 799 LISPFUN(parse_namestring,seclass_rd_sig,1,2,norest,key,3, 800 (kw(start),kw(end),kw(junk_allowed)) ) 801 LISPFUNNR(pathname,1) 802 LISPFUN(pathnamehost,seclass_read,1,0,norest,key,1, (kw(case))) 803 LISPFUN(pathnamedevice,seclass_read,1,0,norest,key,1, (kw(case))) 804 LISPFUN(pathnamedirectory,seclass_read,1,0,norest,key,1, (kw(case))) 805 LISPFUN(pathnamename,seclass_read,1,0,norest,key,1, (kw(case))) 806 LISPFUN(pathnametype,seclass_read,1,0,norest,key,1, (kw(case))) 807 LISPFUNNR(pathnameversion,1) 808 LISPFUNNS(logical_pathname,1) 809 LISPFUN(translate_logical_pathname,seclass_default,1,0,norest,key,1, 810 (kw(absolute))) 811 LISPFUNNR(file_namestring,1) 812 LISPFUNNR(directory_namestring,1) 813 LISPFUNNR(host_namestring,1) 814 LISPFUN(merge_pathnames,seclass_read,1,2,norest,key,1, (kw(wild))) 815 LISPFUN(enough_namestring,seclass_read,1,1,norest,nokey,0,NIL) 816 LISPFUN(make_pathname,seclass_read,0,0,norest,key,8, 817 (kw(defaults),kw(case),kw(host),kw(device),kw(directory), 818 kw(name),kw(type),kw(version)) ) 819 LISPFUN(make_logical_pathname,seclass_read,0,0,norest,key,8, 820 (kw(defaults),kw(case),kw(host),kw(device),kw(directory), 821 kw(name),kw(type),kw(version)) ) 822 LISPFUN(user_homedir_pathname,seclass_default,0,1,norest,nokey,0,NIL) 823 LISPFUN(wild_pathname_p,seclass_rd_sig,1,1,norest,nokey,0,NIL) 824 LISPFUNNS(pathname_match_p,2) 825 LISPFUN(translate_pathname,seclass_default,3,0,norest,key,3, 826 (kw(all),kw(merge),kw(absolute))) 827 LISPFUNN(absolute_pathname,1) 828 LISPFUNNR(namestring,1) 829 LISPFUNNS(truename,1) 830 LISPFUNNS(probe_file,1) 831 LISPFUN(probe_pathname,seclass_rd_sig,1,0,norest,key,1,(kw(error))) 832 LISPFUNNS(probe_directory,1) 833 LISPFUNN(delete_file,1) 834 LISPFUN(rename_file,seclass_default,2,0,norest,key,1,(kw(if_exists))) 835 LISPFUN(open,seclass_default,1,0,norest,key,6, 836 (kw(direction),kw(element_type),kw(if_exists),kw(if_does_not_exist), 837 kw(external_format),kw(buffered)) ) 838 LISPFUN(directory,seclass_rd_sig,1,0,norest,key,3, 839 (kw(if_does_not_exist),kw(circle),kw(full))) 840 LISPFUN(cd,seclass_default,0,1,norest,nokey,0,NIL) 841 LISPFUNN(make_directory,1) 842 LISPFUNN(delete_directory,1) 843 LISPFUNN(rename_directory,2) 844 LISPFUN(ensure_directories_exist,seclass_default,1,0,norest,key,1, 845 (kw(verbose))) 846 LISPFUNNS(file_write_date,1) 847 LISPFUNNS(file_author,1) 848 #ifdef UNIX 849 LISPFUN(execute,seclass_default,1,0,rest,nokey,0,NIL) 850 #endif 851 #ifdef WIN32_NATIVE 852 LISPFUNN(shell_name,0) 853 #endif 854 LISPFUN(shell,seclass_default,0,1,norest,nokey,0,NIL) 855 #if defined(UNIX) || defined(WIN32_NATIVE) 856 LISPFUN(launch,seclass_default,1,0,norest,key,9,(kw(element_type),kw(external_format),kw(buffered),kw(arguments),kw(wait),kw(input),kw(output),kw(error),kw(priority))) 857 #endif 858 #ifdef WIN32_NATIVE 859 LISPFUN(shell_execute,seclass_default,0,4,norest,nokey,0,NIL) 860 #endif 861 LISPFUNN(savemem,2) 862 #ifdef DYNAMIC_MODULES 863 LISPFUNN(dynload_modules,2) 864 #endif 865 LISPFUNN(program_name,0) 866 LISPFUNN(lib_directory,0) 867 LISPFUNN(set_lib_directory,1) 868 /* ---------- PREDTYPE ---------- */ 869 LISPFUN(eq,SECFC(seclass_foldable,fastcmp_eq),2,0,norest,nokey,0,NIL) 870 LISPFUN(eql,SECFC(seclass_foldable,fastcmp_eql),2,0,norest,nokey,0,NIL) 871 LISPFUN(equal,SECFC(seclass_read,fastcmp_equal),2,0,norest,nokey,0,NIL) 872 LISPFUN(equalp,SECFC(seclass_read,fastcmp_equalp),2,0,norest,nokey,0,NIL) 873 LISPFUNNF(consp,1) 874 LISPFUNNF(atom,1) 875 LISPFUNNF(symbolp,1) 876 LISPFUNNF(stringp,1) 877 LISPFUNNF(numberp,1) 878 LISPFUNNR(compiled_function_p,1) 879 LISPFUNNR(pcompiled_function_p,1) 880 LISPFUNNF(null,1) 881 LISPFUNNF(not,1) 882 LISPFUNNF(closurep,1) 883 LISPFUNNF(listp,1) 884 LISPFUNNR(proper_list_p,1) 885 LISPFUNNF(bytep,1) 886 LISPFUNNF(integerp,1) 887 LISPFUNNF(fixnump,1) 888 LISPFUNNF(rationalp,1) 889 LISPFUNNF(floatp,1) 890 LISPFUNNF(short_float_p,1) 891 LISPFUNNF(single_float_p,1) 892 LISPFUNNF(double_float_p,1) 893 LISPFUNNF(long_float_p,1) 894 LISPFUNNF(realp,1) 895 LISPFUNNF(complexp,1) 896 LISPFUNNR(streamp,1) 897 LISPFUNNF(built_in_stream_p,1) 898 LISPFUNNF(random_state_p,1) 899 LISPFUNNF(readtablep,1) 900 LISPFUNNF(hash_table_p,1) 901 LISPFUNNF(pathnamep,1) 902 LISPFUNNF(logical_pathname_p,1) 903 LISPFUNNF(characterp,1) 904 LISPFUNNF(functionp,1) 905 LISPFUNNF(packagep,1) 906 LISPFUNNF(arrayp,1) 907 LISPFUNNF(simple_array_p,1) 908 LISPFUNNF(bit_vector_p,1) 909 LISPFUNNF(vectorp,1) 910 LISPFUNNF(simple_vector_p,1) 911 LISPFUNNF(simple_string_p,1) 912 LISPFUNNF(simple_bit_vector_p,1) 913 LISPFUNNR(type_of,1) 914 LISPFUNN(defclos,6) 915 LISPFUNNR(potential_class_p,1) 916 LISPFUNNR(defined_class_p,1) 917 LISPFUNNR(class_of,1) 918 LISPFUN(find_class,seclass_default,1,2,norest,nokey,0,NIL) 919 LISPFUNN(typep_class,2) 920 LISPFUN(expand_deftype,seclass_default,1,1,norest,nokey,0,NIL) 921 LISPFUNNS(coerce,2) 922 LISPFUNN(note_new_structure_class,0) 923 LISPFUNN(note_new_standard_class,0) 924 LISPFUNN(heap_statistics,0) 925 LISPFUNN(gc_statistics,0) 926 LISPFUNN(list_statistics,1) 927 LISPFUNN(heap_statistics_statistics,1) 928 LISPFUNN(gc_statistics_statistics,2) 929 /* ---------- RECORD ---------- */ 930 LISPFUNNR(record_ref,2) 931 LISPFUNN(record_store,3) 932 LISPFUNNR(record_length,1) 933 LISPFUNNR(pstructure_ref,3) 934 LISPFUNNR(structure_ref,3) 935 LISPFUNN(structure_store,4) 936 LISPFUNNR(make_structure,2) 937 LISPFUNNR(copy_structure,1) 938 LISPFUNNR(structure_type_p,2) 939 LISPFUNNR(closure_name,1) 940 LISPFUNN(set_closure_name,2) 941 LISPFUNNR(closure_codevec,1) 942 LISPFUNNR(closure_consts,1) 943 LISPFUNNR(closure_const,2) 944 LISPFUNN(set_closure_const,3) 945 LISPFUN(make_closure,seclass_default,0,0,norest,key,7,(kw(name),kw(code),kw(constants),kw(seclass),kw(lambda_list),kw(documentation),kw(jitc_p))) 946 LISPFUNN(make_constant_initfunction,1) 947 LISPFUNN(constant_initfunction_p,1) 948 LISPFUNN(closure_set_seclass,2) 949 LISPFUNNR(closure_documentation,1) 950 LISPFUNN(closure_set_documentation,2) 951 LISPFUNNR(closure_lambda_list,1) 952 LISPFUNN(set_funcallable_instance_function,2) 953 LISPFUNN(copy_generic_function,2) 954 LISPFUNN(generic_function_effective_method_function,1) 955 LISPFUN(make_load_time_eval,seclass_no_se,1,0,norest,nokey,0,NIL) 956 LISPFUN(make_symbol_macro,seclass_no_se,1,0,norest,nokey,0,NIL) 957 LISPFUNNF(symbol_macro_p,1) 958 LISPFUNN(symbol_macro_expand,1) 959 LISPFUN(make_global_symbol_macro,seclass_no_se,1,0,norest,nokey,0,NIL) 960 LISPFUNN(global_symbol_macro_definition,1) 961 LISPFUN(make_macro,seclass_no_se,2,0,norest,nokey,0,NIL) 962 LISPFUNN(macrop,1) 963 LISPFUNN(macro_expander,1) 964 LISPFUNN(macro_lambda_list,1) 965 LISPFUNN(make_function_macro,2) 966 LISPFUNN(function_macro_p,1) 967 LISPFUNN(function_macro_function,1) 968 LISPFUNN(function_macro_expander,1) 969 LISPFUN(finalize,seclass_default,2,1,norest,nokey,0,NIL) 970 LISPFUNNF(structure_object_p,1) 971 LISPFUNNF(std_instance_p,1) 972 LISPFUNNF(funcallable_instance_p,1) 973 LISPFUNN(allocate_metaobject_instance,2) 974 LISPFUNN(allocate_std_instance,2) 975 LISPFUNN(allocate_funcallable_instance,2) 976 LISPFUN(pallocate_instance,seclass_read,1,0,rest,nokey,0,NIL) 977 LISPFUNN(pslot_value_using_class,3) 978 LISPFUNN(pset_slot_value_using_class,4) 979 LISPFUNN(pslot_boundp_using_class,3) 980 LISPFUNN(pslot_makunbound_using_class,3) 981 LISPFUNN(slot_value,2) 982 LISPFUNN(set_slot_value,3) 983 LISPFUNN(slot_boundp,2) 984 LISPFUNN(slot_makunbound,2) 985 LISPFUNNR(slot_exists_p,2) 986 LISPFUNNR(standard_instance_access,2) 987 LISPFUNN(set_standard_instance_access,3) 988 LISPFUNNR(punbound,0) 989 LISPFUN(pshared_initialize,seclass_default,2,0,rest,nokey,0,NIL) 990 LISPFUN(preinitialize_instance,seclass_default,1,0,rest,nokey,0,NIL) 991 LISPFUN(pinitialize_instance,seclass_default,1,0,rest,nokey,0,NIL) 992 LISPFUN(pmake_instance,seclass_default,1,0,rest,nokey,0,NIL) 993 LISPFUNN(pchange_class,2) 994 /* ---------- WEAK ---------- */ 995 LISPFUN(make_weak_pointer,seclass_no_se,1,0,norest,nokey,0,NIL) 996 LISPFUNNF(weak_pointer_p,1) 997 LISPFUNNR(weak_pointer_value,1) 998 LISPFUNN(set_weak_pointer_value,2) 999 LISPFUNN(make_weak_list,1) 1000 LISPFUNNF(weak_list_p,1) 1001 LISPFUNNR(weak_list_list,1) 1002 LISPFUNN(set_weak_list_list,2) 1003 LISPFUNN(make_weak_and_relation,1) 1004 LISPFUNNF(weak_and_relation_p,1) 1005 LISPFUNNR(weak_and_relation_list,1) 1006 LISPFUNN(make_weak_or_relation,1) 1007 LISPFUNNF(weak_or_relation_p,1) 1008 LISPFUNNR(weak_or_relation_list,1) 1009 LISPFUNN(make_weak_mapping,2) 1010 LISPFUNNF(weak_mapping_p,1) 1011 LISPFUNNR(weak_mapping_pair,1) 1012 LISPFUNNR(weak_mapping_value,1) 1013 LISPFUNN(set_weak_mapping_value,2) 1014 LISPFUNN(make_weak_and_mapping,2) 1015 LISPFUNNF(weak_and_mapping_p,1) 1016 LISPFUNNR(weak_and_mapping_pair,1) 1017 LISPFUNNR(weak_and_mapping_value,1) 1018 LISPFUNN(set_weak_and_mapping_value,2) 1019 LISPFUNN(make_weak_or_mapping,2) 1020 LISPFUNNF(weak_or_mapping_p,1) 1021 LISPFUNNR(weak_or_mapping_pair,1) 1022 LISPFUNNR(weak_or_mapping_value,1) 1023 LISPFUNN(set_weak_or_mapping_value,2) 1024 LISPFUN(make_weak_alist,seclass_read,0,0,norest,key,2, 1025 (kw(type),kw(initial_contents)) ) 1026 LISPFUNNF(weak_alist_p,1) 1027 LISPFUNNR(weak_alist_type,1) 1028 LISPFUNNR(weak_alist_contents,1) 1029 LISPFUNN(set_weak_alist_contents,2) 1030 LISPFUN(weak_alist_assoc,seclass_default,2,0,norest,key,3, 1031 (kw(test),kw(test_not),kw(key)) ) 1032 LISPFUN(weak_alist_rassoc,seclass_default,2,0,norest,key,3, 1033 (kw(test),kw(test_not),kw(key)) ) 1034 LISPFUN(weak_alist_value,seclass_default,2,0,norest,key,2, 1035 (kw(test),kw(test_not)) ) 1036 LISPFUN(set_weak_alist_value,seclass_default,3,0,norest,key,2, 1037 (kw(test),kw(test_not)) ) 1038 /* ---------- SEQUENCE ---------- */ 1039 LISPFUNNR(sequencep,1) 1040 LISPFUNN(defseq,1) 1041 LISPFUNNR(elt,2) 1042 LISPFUNN(setelt,3) 1043 LISPFUN(subseq,seclass_read,2,1,norest,nokey,0,NIL) 1044 LISPFUNNR(copy_seq,1) 1045 LISPFUNNR(length,1) 1046 LISPFUNNR(reverse,1) 1047 LISPFUNN(nreverse,1) 1048 LISPFUN(make_sequence,seclass_default,2,0,norest,key,2, 1049 (kw(initial_element),kw(update)) ) 1050 LISPFUN(coerced_subseq,seclass_default,2,0,norest,key,2, (kw(start),kw(end)) ) 1051 LISPFUN(concatenate,seclass_rd_sig,1,0,rest,nokey,0,NIL) 1052 LISPFUN(map,seclass_default,3,0,rest,nokey,0,NIL) 1053 LISPFUN(map_into,seclass_default,2,0,rest,nokey,0,NIL) 1054 LISPFUN(some,seclass_default,2,0,rest,nokey,0,NIL) 1055 LISPFUN(every,seclass_default,2,0,rest,nokey,0,NIL) 1056 LISPFUN(notany,seclass_default,2,0,rest,nokey,0,NIL) 1057 LISPFUN(notevery,seclass_default,2,0,rest,nokey,0,NIL) 1058 LISPFUN(reduce,seclass_default,2,0,norest,key,5, 1059 (kw(from_end),kw(start),kw(end),kw(key),kw(initial_value)) ) 1060 LISPFUN(fill,seclass_default,2,0,norest,key,2, (kw(start),kw(end)) ) 1061 LISPFUN(replace,seclass_default,2,0,norest,key,4, 1062 (kw(start1),kw(end1),kw(start2),kw(end2)) ) 1063 LISPFUN(remove,seclass_default,2,0,norest,key,7, 1064 (kw(from_end),kw(start),kw(end),kw(key),kw(test), 1065 kw(test_not),kw(count)) ) 1066 LISPFUN(remove_if,seclass_default,2,0,norest,key,5, 1067 (kw(from_end),kw(start),kw(end),kw(key),kw(count)) ) 1068 LISPFUN(remove_if_not,seclass_default,2,0,norest,key,5, 1069 (kw(from_end),kw(start),kw(end),kw(key),kw(count)) ) 1070 LISPFUN(delete,seclass_default,2,0,norest,key,7, 1071 (kw(from_end),kw(start),kw(end),kw(key),kw(test), 1072 kw(test_not),kw(count)) ) 1073 LISPFUN(delete_if,seclass_default,2,0,norest,key,5, 1074 (kw(from_end),kw(start),kw(end),kw(key),kw(count)) ) 1075 LISPFUN(delete_if_not,seclass_default,2,0,norest,key,5, 1076 (kw(from_end),kw(start),kw(end),kw(key),kw(count)) ) 1077 LISPFUN(remove_duplicates,seclass_default,1,0,norest,key,6, 1078 (kw(from_end),kw(start),kw(end),kw(key),kw(test),kw(test_not)) ) 1079 LISPFUN(delete_duplicates,seclass_default,1,0,norest,key,6, 1080 (kw(from_end),kw(start),kw(end),kw(key),kw(test),kw(test_not)) ) 1081 LISPFUN(substitute,seclass_default,3,0,norest,key,7, 1082 (kw(from_end),kw(start),kw(end),kw(key),kw(test), 1083 kw(test_not),kw(count)) ) 1084 LISPFUN(substitute_if,seclass_default,3,0,norest,key,5, 1085 (kw(from_end),kw(start),kw(end),kw(key),kw(count)) ) 1086 LISPFUN(substitute_if_not,seclass_default,3,0,norest,key,5, 1087 (kw(from_end),kw(start),kw(end),kw(key),kw(count)) ) 1088 LISPFUN(nsubstitute,seclass_default,3,0,norest,key,7, 1089 (kw(from_end),kw(start),kw(end),kw(key),kw(test), 1090 kw(test_not),kw(count)) ) 1091 LISPFUN(nsubstitute_if,seclass_default,3,0,norest,key,5, 1092 (kw(from_end),kw(start),kw(end),kw(key),kw(count)) ) 1093 LISPFUN(nsubstitute_if_not,seclass_default,3,0,norest,key,5, 1094 (kw(from_end),kw(start),kw(end),kw(key),kw(count)) ) 1095 LISPFUN(find,seclass_default,2,0,norest,key,6, 1096 (kw(from_end),kw(start),kw(end),kw(key),kw(test),kw(test_not)) ) 1097 LISPFUN(find_if,seclass_default,2,0,norest,key,4, 1098 (kw(from_end),kw(start),kw(end),kw(key)) ) 1099 LISPFUN(find_if_not,seclass_default,2,0,norest,key,4, 1100 (kw(from_end),kw(start),kw(end),kw(key)) ) 1101 LISPFUN(position,seclass_default,2,0,norest,key,6, 1102 (kw(from_end),kw(start),kw(end),kw(key),kw(test),kw(test_not)) ) 1103 LISPFUN(position_if,seclass_default,2,0,norest,key,4, 1104 (kw(from_end),kw(start),kw(end),kw(key)) ) 1105 LISPFUN(position_if_not,seclass_default,2,0,norest,key,4, 1106 (kw(from_end),kw(start),kw(end),kw(key)) ) 1107 LISPFUN(count,seclass_default,2,0,norest,key,6, 1108 (kw(from_end),kw(start),kw(end),kw(key),kw(test),kw(test_not)) ) 1109 LISPFUN(count_if,seclass_default,2,0,norest,key,4, 1110 (kw(from_end),kw(start),kw(end),kw(key)) ) 1111 LISPFUN(count_if_not,seclass_default,2,0,norest,key,4, 1112 (kw(from_end),kw(start),kw(end),kw(key)) ) 1113 LISPFUN(mismatch,seclass_default,2,0,norest,key,8, 1114 (kw(start1),kw(end1),kw(start2),kw(end2),kw(from_end), 1115 kw(key),kw(test),kw(test_not)) ) 1116 LISPFUN(search,seclass_default,2,0,norest,key,8, 1117 (kw(start1),kw(end1),kw(start2),kw(end2),kw(from_end), 1118 kw(key),kw(test),kw(test_not)) ) 1119 LISPFUN(sort,seclass_default,2,0,norest,key,3, (kw(key),kw(start),kw(end)) ) 1120 LISPFUN(stable_sort,seclass_default,2,0,norest,key,3, 1121 (kw(key),kw(start),kw(end)) ) 1122 LISPFUN(merge,seclass_default,4,0,norest,key,1, (kw(key)) ) 1123 LISPFUN(read_char_sequence,seclass_default,2,0,norest,key,2, 1124 (kw(start),kw(end)) ) 1125 LISPFUN(write_char_sequence,seclass_default,2,0,norest,key,2, 1126 (kw(start),kw(end)) ) 1127 LISPFUN(read_byte_sequence,seclass_default,2,0,norest,key,4, 1128 (kw(start),kw(end),kw(no_hang),kw(interactive)) ) 1129 LISPFUN(write_byte_sequence,seclass_default,2,0,norest,key,4, 1130 (kw(start),kw(end),kw(no_hang),kw(interactive)) ) 1131 /* ---------- STREAM ---------- */ 1132 LISPFUN(symbol_stream,seclass_read,1,1,norest,nokey,0,NIL) 1133 LISPFUNNR(make_synonym_stream,1) 1134 LISPFUNNF(synonym_stream_p,1) 1135 LISPFUNNR(synonym_stream_symbol,1) 1136 LISPFUN(make_broadcast_stream,seclass_read,0,0,rest,nokey,0,NIL) 1137 LISPFUNNF(broadcast_stream_p,1) 1138 LISPFUNNR(broadcast_stream_streams,1) 1139 LISPFUN(make_concatenated_stream,seclass_read,0,0,rest,nokey,0,NIL) 1140 LISPFUNNF(concatenated_stream_p,1) 1141 LISPFUNNR(concatenated_stream_streams,1) 1142 LISPFUNNR(make_two_way_stream,2) 1143 LISPFUNNF(two_way_stream_p,1) 1144 LISPFUNNR(two_way_stream_input_stream,1) 1145 LISPFUNNR(two_way_stream_output_stream,1) 1146 LISPFUNNR(make_echo_stream,2) 1147 LISPFUNNF(echo_stream_p,1) 1148 LISPFUNNR(echo_stream_input_stream,1) 1149 LISPFUNNR(echo_stream_output_stream,1) 1150 LISPFUN(make_string_input_stream,seclass_read,1,2,norest,nokey,0,NIL) 1151 LISPFUNNR(string_input_stream_index,1) 1152 LISPFUN(make_string_output_stream,seclass_read,0,0,norest,key,2, 1153 (kw(element_type),kw(line_position))) 1154 LISPFUNN(get_output_stream_string,1) 1155 LISPFUNNR(make_string_push_stream,1) 1156 LISPFUNNF(string_stream_p,1) 1157 LISPFUNNR(string_stream_string,1) 1158 LISPFUNNR(make_buffered_input_stream,2) 1159 LISPFUNNR(buffered_input_stream_index,1) 1160 LISPFUN(make_buffered_output_stream,seclass_read,1,1,norest,nokey,0,NIL) 1161 #ifdef GENERIC_STREAMS 1162 LISPFUNN(generic_stream_controller,1) 1163 LISPFUNN(make_generic_stream,1) 1164 LISPFUNN(generic_stream_p,1) 1165 #endif 1166 #ifdef KEYBOARD 1167 LISPFUNN(make_keyboard_stream,0) 1168 #endif 1169 LISPFUN(terminal_raw,seclass_default,2,1,norest,nokey,0,NIL) 1170 #ifdef SCREEN 1171 LISPFUNN(make_window,0) 1172 LISPFUNN(window_size,1) 1173 LISPFUNN(window_cursor_position,1) 1174 LISPFUNN(set_window_cursor_position,3) 1175 LISPFUNN(clear_window,1) 1176 LISPFUNN(clear_window_to_eot,1) 1177 LISPFUNN(clear_window_to_eol,1) 1178 LISPFUNN(delete_window_line,1) 1179 LISPFUNN(insert_window_line,1) 1180 LISPFUNN(highlight_on,1) 1181 LISPFUNN(highlight_off,1) 1182 LISPFUNN(window_cursor_on,1) 1183 LISPFUNN(window_cursor_off,1) 1184 #endif 1185 LISPFUNNF(file_stream_p,1) 1186 #ifdef PIPES 1187 LISPFUN(make_pipe_input_stream,seclass_default,1,0,norest,key,3, 1188 (kw(element_type),kw(external_format),kw(buffered)) ) 1189 LISPFUN(make_pipe_output_stream,seclass_default,1,0,norest,key,3, 1190 (kw(element_type),kw(external_format),kw(buffered)) ) 1191 #ifdef PIPES2 1192 LISPFUN(make_pipe_io_stream,seclass_default,1,0,norest,key,3, 1193 (kw(element_type),kw(external_format),kw(buffered)) ) 1194 #endif 1195 #endif 1196 #ifdef X11SOCKETS 1197 LISPFUNN(make_x11socket_stream,2) 1198 LISPFUNN(read_n_bytes,4) 1199 LISPFUNN(write_n_bytes,4) 1200 #endif 1201 #ifdef SOCKET_STREAMS 1202 LISPFUNN(socket_server_close,1) 1203 LISPFUN(socket_server,seclass_default,0,1,norest,key,2, 1204 (kw(backlog),kw(interface)) ) 1205 LISPFUNN(socket_server_port,1) 1206 LISPFUNN(socket_server_host,1) 1207 LISPFUN(socket_accept,seclass_default,1,0,norest,key,4, 1208 (kw(element_type),kw(external_format),kw(buffered),kw(timeout)) ) 1209 LISPFUN(socket_wait,seclass_default,1,2,norest,nokey,0,NIL) 1210 LISPFUN(socket_status,seclass_default,1,2,norest,nokey,0,NIL) 1211 LISPFUN(socket_connect,seclass_default,1,1,norest,key,4, 1212 (kw(element_type),kw(external_format),kw(buffered),kw(timeout)) ) 1213 LISPFUNN(socket_stream_port,1) 1214 LISPFUNN(socket_stream_host,1) 1215 LISPFUN(socket_stream_peer,seclass_default,1,1,norest,nokey,0,NIL) 1216 LISPFUN(socket_stream_local,seclass_default,1,1,norest,nokey,0,NIL) 1217 LISPFUN(socket_options,seclass_default,1,0,rest,nokey,0,NIL) 1218 #ifdef HAVE_SHUTDOWN 1219 LISPFUNN(socket_stream_shutdown,2) 1220 #endif 1221 #endif 1222 LISPFUN(make_stream,seclass_default,1,0,norest,key,4, 1223 (kw(direction),kw(element_type),kw(external_format),kw(buffered)) ) 1224 LISPFUNN(stream_handles,1) 1225 LISPFUNNR(built_in_stream_open_p,1) 1226 LISPFUNNR(input_stream_p,1) 1227 LISPFUNNR(output_stream_p,1) 1228 LISPFUNN(stream_element_type_eq,2) 1229 LISPFUNNR(built_in_stream_element_type,1) 1230 LISPFUNN(built_in_stream_set_element_type,2) 1231 LISPFUNNR(stream_external_format,1) 1232 LISPFUN(set_stream_external_format,seclass_default,2,1,norest,nokey,0,NIL) 1233 LISPFUNN(interactive_stream_p,1) 1234 LISPFUN(built_in_stream_close,seclass_default,1,0,norest,key,1, (kw(abort)) ) 1235 LISPFUN(read_byte,seclass_default,1,2,norest,nokey,0,NIL) 1236 LISPFUNN(read_byte_lookahead,1) 1237 LISPFUNN(read_byte_will_hang_p,1) 1238 LISPFUN(read_byte_no_hang,seclass_default,1,2,norest,nokey,0,NIL) 1239 LISPFUN(read_integer,seclass_default,2,3,norest,nokey,0,NIL) 1240 LISPFUN(read_float,seclass_default,2,3,norest,nokey,0,NIL) 1241 LISPFUNN(write_byte,2) 1242 LISPFUN(write_integer,seclass_default,3,1,norest,nokey,0,NIL) 1243 LISPFUN(write_float,seclass_default,3,1,norest,nokey,0,NIL) 1244 LISPFUN(file_position,seclass_default,1,1,norest,nokey,0,NIL) 1245 LISPFUNNR(file_length,1) 1246 LISPFUNN(file_string_length,2) 1247 LISPFUNN(line_number,1) 1248 LISPFUN(stream_fasl_p,seclass_default,1,1,norest,nokey,0,NIL) 1249 LISPFUNN(defgray,1) 1250 /* ---------- SYMBOL ---------- */ 1251 LISPFUNN(putd,2) 1252 LISPFUNN(find_subr,1) 1253 LISPFUNN(proclaim_constant,2) 1254 LISPFUNN(proclaim_symbol_macro,1) 1255 LISPFUN(get,seclass_read,2,1,norest,nokey,0,NIL) 1256 LISPFUN(getf,seclass_read,2,1,norest,nokey,0,NIL) 1257 LISPFUNN(putf,3) 1258 LISPFUNN(remf,2) 1259 LISPFUNNR(get_properties,2) 1260 LISPFUNN(putplist,2) 1261 LISPFUNN(put,3) 1262 LISPFUNN(remprop,2) 1263 LISPFUNNR(symbol_package,1) 1264 LISPFUNNR(symbol_plist,1) 1265 LISPFUN(symbol_name,seclass_no_se,1,0,norest,nokey,0,NIL) 1266 LISPFUNNR(cs_symbol_name,1) 1267 LISPFUNNR(keywordp,1) 1268 LISPFUN(gensym,seclass_read,0,1,norest,nokey,0,NIL) 1269 LISPFUN(gentemp,seclass_read,0,2,norest,nokey,0,NIL) 1270 /* ---------- LISPARIT ---------- */ 1271 LISPFUN(decimal_string,seclass_no_se,1,0,norest,nokey,0,NIL) 1272 LISPFUNNF(zerop,1) 1273 LISPFUNNF(plusp,1) 1274 LISPFUNNF(minusp,1) 1275 LISPFUNNF(oddp,1) 1276 LISPFUNNF(evenp,1) 1277 LISPFUN(numequal,seclass_foldable,1,0,rest,nokey,0,NIL) 1278 LISPFUN(numunequal,seclass_foldable,1,0,rest,nokey,0,NIL) 1279 LISPFUN(smaller,seclass_foldable,1,0,rest,nokey,0,NIL) 1280 LISPFUN(greater,seclass_foldable,1,0,rest,nokey,0,NIL) 1281 LISPFUN(ltequal,seclass_foldable,1,0,rest,nokey,0,NIL) 1282 LISPFUN(gtequal,seclass_foldable,1,0,rest,nokey,0,NIL) 1283 LISPFUN(max,seclass_foldable,1,0,rest,nokey,0,NIL) 1284 LISPFUN(min,seclass_foldable,1,0,rest,nokey,0,NIL) 1285 LISPFUN(plus,seclass_foldable,0,0,rest,nokey,0,NIL) 1286 LISPFUN(minus,seclass_foldable,1,0,rest,nokey,0,NIL) 1287 LISPFUN(star,seclass_foldable,0,0,rest,nokey,0,NIL) 1288 LISPFUN(slash,seclass_foldable,1,0,rest,nokey,0,NIL) 1289 LISPFUNNF(plus_one,1) 1290 LISPFUNNF(minus_one,1) 1291 LISPFUNNF(conjugate,1) 1292 LISPFUN(gcd,seclass_foldable,0,0,rest,nokey,0,NIL) 1293 LISPFUN(xgcd,seclass_foldable,0,0,rest,nokey,0,NIL) 1294 LISPFUN(lcm,seclass_foldable,0,0,rest,nokey,0,NIL) 1295 LISPFUNNR(exp,1) 1296 LISPFUNNR(expt,2) 1297 LISPFUN(log,seclass_read,1,1,norest,nokey,0,NIL) 1298 LISPFUNNR(sqrt,1) 1299 LISPFUNNF(isqrt,1) 1300 LISPFUNNR(abs,1) 1301 LISPFUNNR(phase,1) 1302 LISPFUNNR(signum,1) 1303 LISPFUNNR(sin,1) 1304 LISPFUNNR(cos,1) 1305 LISPFUNNR(tan,1) 1306 LISPFUNNR(cis,1) 1307 LISPFUNNR(asin,1) 1308 LISPFUNNR(acos,1) 1309 LISPFUN(atan,seclass_read,1,1,norest,nokey,0,NIL) 1310 LISPFUNNR(sinh,1) 1311 LISPFUNNR(cosh,1) 1312 LISPFUNNR(tanh,1) 1313 LISPFUNNR(asinh,1) 1314 LISPFUNNR(acosh,1) 1315 LISPFUNNR(atanh,1) 1316 LISPFUN(float,seclass_read,1,1,norest,nokey,0,NIL) 1317 LISPFUNNF(rational,1) 1318 LISPFUNNF(rationalize,1) 1319 LISPFUNNF(numerator,1) 1320 LISPFUNNF(denominator,1) 1321 LISPFUN(floor,seclass_foldable,1,1,norest,nokey,0,NIL) 1322 LISPFUN(ceiling,seclass_foldable,1,1,norest,nokey,0,NIL) 1323 LISPFUN(truncate,seclass_foldable,1,1,norest,nokey,0,NIL) 1324 LISPFUN(round,seclass_foldable,1,1,norest,nokey,0,NIL) 1325 LISPFUNNF(mod,2) 1326 LISPFUNNF(rem,2) 1327 LISPFUN(ffloor,seclass_read,1,1,norest,nokey,0,NIL) 1328 LISPFUN(fceiling,seclass_read,1,1,norest,nokey,0,NIL) 1329 LISPFUN(ftruncate,seclass_read,1,1,norest,nokey,0,NIL) 1330 LISPFUN(fround,seclass_read,1,1,norest,nokey,0,NIL) 1331 LISPFUNNF(decode_float,1) 1332 LISPFUNNF(scale_float,2) 1333 LISPFUNNF(float_scale_exponent,1) 1334 LISPFUNNF(float_radix,1) 1335 LISPFUN(float_sign,seclass_foldable,1,1,norest,nokey,0,NIL) 1336 LISPFUN(float_digits,seclass_foldable,1,1,norest,nokey,0,NIL) 1337 LISPFUNNF(float_precision,1) 1338 LISPFUNNF(integer_decode_float,1) 1339 LISPFUN(complex,seclass_foldable,1,1,norest,nokey,0,NIL) 1340 LISPFUNNF(realpart,1) 1341 LISPFUNNF(imagpart,1) 1342 LISPFUN(logior,seclass_foldable,0,0,rest,nokey,0,NIL) 1343 LISPFUN(logxor,seclass_foldable,0,0,rest,nokey,0,NIL) 1344 LISPFUN(logand,seclass_foldable,0,0,rest,nokey,0,NIL) 1345 LISPFUN(logeqv,seclass_foldable,0,0,rest,nokey,0,NIL) 1346 LISPFUNNF(lognand,2) 1347 LISPFUNNF(lognor,2) 1348 LISPFUNNF(logandc1,2) 1349 LISPFUNNF(logandc2,2) 1350 LISPFUNNF(logorc1,2) 1351 LISPFUNNF(logorc2,2) 1352 LISPFUNNF(boole,3) 1353 LISPFUNNF(lognot,1) 1354 LISPFUNNF(logtest,2) 1355 LISPFUNNF(logbitp,2) 1356 LISPFUNNF(ash,2) 1357 LISPFUNNF(logcount,1) 1358 LISPFUNNF(integer_length,1) 1359 LISPFUNNR(byte,2) 1360 LISPFUNNR(bytesize,1) 1361 LISPFUNNR(byteposition,1) 1362 LISPFUNNF(ldb,2) 1363 LISPFUNNF(ldb_test,2) 1364 LISPFUNNF(mask_field,2) 1365 LISPFUNNF(dpb,3) 1366 LISPFUNNF(deposit_field,3) 1367 LISPFUN(random,seclass_default,1,1,norest,nokey,0,NIL) 1368 LISPFUN(random_posfixnum,seclass_default,0,1,norest,nokey,0,NIL) 1369 LISPFUN(make_random_state,seclass_default,0,1,norest,nokey,0,NIL) 1370 LISPFUNNF(factorial,1) 1371 LISPFUNNF(exquo,2) 1372 LISPFUNNF(mod_expt,3) 1373 LISPFUNN(long_float_digits,0) 1374 LISPFUNN(set_long_float_digits,1) 1375 LISPFUNNR(log2,1) 1376 LISPFUNNR(log10,1) 1377 /* ---------- FOREIGN ---------- */ 1378 #ifdef DYNAMIC_FFI 1379 LISPFUNN(sizeof,1) 1380 LISPFUNN(bitsizeof,1) 1381 LISPFUNNR(validp,1) 1382 LISPFUNN(set_validp,2) 1383 LISPFUNNR(foreign_pointer,1) 1384 LISPFUNN(set_foreign_pointer,2) 1385 LISPFUNNR(unsigned_foreign_address,1) 1386 LISPFUNNR(foreign_address_unsigned,1) 1387 LISPFUNNR(foreign_address,1) 1388 #if defined(HAVE_DLADDR) 1389 LISPFUNN(foreign_pointer_info,1) 1390 #endif 1391 #if defined(WIN32_NATIVE) || defined(HAVE_DLOPEN) 1392 LISPFUN(open_foreign_library,seclass_read,1,0,norest,key,1,(kw(require))) 1393 LISPFUNN(close_foreign_library,1) 1394 #endif /* WIN32_NATIVE || HAVE_DLOPEN */ 1395 LISPFUNNF(parse_foreign_inttype,2) 1396 LISPFUN(foreign_function,seclass_read,2,0,norest,key,1,(kw(name)) ) 1397 LISPFUNN(find_foreign_variable,5) 1398 LISPFUN(foreign_variable,seclass_read,2,0,norest,key,1,(kw(name)) ) 1399 LISPFUNN(foreign_value,1) 1400 LISPFUNN(set_foreign_value,2) 1401 LISPFUNN(foreign_type,1) 1402 LISPFUN(element,seclass_default,1,0,rest,nokey,0,NIL) 1403 LISPFUNN(deref,1) 1404 LISPFUNN(slot,2) 1405 LISPFUNN(cast,2) 1406 LISPFUNN(offset,3) 1407 LISPFUN(read_memory_as,seclass_default,2,1,norest,nokey,0,NIL) 1408 LISPFUN(write_memory_as,seclass_default,3,1,norest,nokey,0,NIL) 1409 LISPFUN(exec_on_stack,seclass_default,2,1,norest,nokey,0,NIL) 1410 LISPFUNN(call_with_foreign_string,6) 1411 LISPFUN(foreign_allocate,seclass_default,1,0,norest,key,3, 1412 (kw(initial_contents),kw(count),kw(read_only))) 1413 LISPFUN(foreign_free,seclass_default,1,0,norest,key,1,(kw(full))) 1414 LISPFUNN(find_foreign_function,6) 1415 LISPFUN(foreign_call_out,seclass_default,1,0,rest,nokey,0,NIL) 1416 #endif /* DYNAMIC_FFI */ 1417 /* ---------- ZTHREAD ---------- */ 1418 #ifdef MULTITHREAD 1419 LISPFUN(make_thread,seclass_default,1,0,norest,key,4, 1420 (kw(name),kw(initial_bindings),kw(cstack_size), 1421 kw(vstack_size))) 1422 LISPFUNN(call_with_timeout,3) 1423 LISPFUNN(thread_yield,0) 1424 LISPFUN(thread_interrupt,seclass_default,1,0,norest,key,3, 1425 (kw(function),kw(override),kw(arguments))) 1426 LISPFUNN(threadp,1) 1427 LISPFUNNR(thread_name,1) 1428 LISPFUN(thread_join,seclass_read,1,0,norest,key,1,(kw(timeout))) 1429 LISPFUNN(thread_active_p,1) 1430 LISPFUNN(current_thread,0) 1431 LISPFUNN(list_threads,0) 1432 LISPFUNNR(symbol_value_thread,2) 1433 LISPFUNN(set_symbol_value_thread,3) 1434 LISPFUNN(mutexp,1) 1435 LISPFUN(make_mutex,seclass_default,0,0,norest,key,2, 1436 (kw(name),kw(recursive_p))) 1437 LISPFUN(mutex_lock,seclass_default,1,0,norest,key,1, 1438 (kw(timeout))) 1439 LISPFUNN(mutex_recursive_p,1) 1440 LISPFUNNR(mutex_name,1) 1441 LISPFUNN(mutex_owner,1) 1442 LISPFUNN(mutex_unlock,1) 1443 LISPFUNN(exemptionp,1) 1444 LISPFUN(make_exemption,seclass_default,0,0,norest,key,1,(kw(name))) 1445 LISPFUNNR(exemption_name,1) 1446 LISPFUNN(exemption_signal,1) 1447 LISPFUN(exemption_wait,seclass_default,2,0,norest,key,2, 1448 (kw(test),kw(timeout))) 1449 LISPFUNN(exemption_broadcast,1) 1450 #endif 1451