Mercurial > hg > xemacs-beta

comparison src/bytecode.c @ 5117:3742ea8250b5 ben-lisp-object ben-lisp-object-final-ws-year-2005

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Checking in final CVS version of workspace 'ben-lisp-object'
author Ben Wing <ben@xemacs.org>
date Sat, 26 Dec 2009 00:20:27 -0600
parents 6fa9919a9a0b
children e0db3c197671
comparison
equal deleted inserted replaced
5116:e56f73345619 5117:3742ea8250b5
2202 if (cf->args_in_array) 2202 if (cf->args_in_array)
2203 xfree (cf->args, Lisp_Object *); 2203 xfree (cf->args, Lisp_Object *);
2204 } 2204 }
2205 } 2205 }
2206 2206
2207 DEFINE_BASIC_LRECORD_IMPLEMENTATION ("compiled-function", compiled_function, 2207 DEFINE_BASIC_LISP_OBJECT ("compiled-function", compiled_function,
2208 1, /*dumpable_flag*/
2209 mark_compiled_function, 2208 mark_compiled_function,
2210 print_compiled_function, 2209 print_compiled_function,
2211 finalize_compiled_function, 2210 finalize_compiled_function,
2212 compiled_function_equal, 2211 compiled_function_equal,
2213 compiled_function_hash, 2212 compiled_function_hash,
2214 compiled_function_description, 2213 compiled_function_description,
2215 Lisp_Compiled_Function); 2214 Lisp_Compiled_Function);
2216 #else /* not MC_ALLOC */ 2215 #else /* not MC_ALLOC */
2217 DEFINE_BASIC_LRECORD_IMPLEMENTATION ("compiled-function", compiled_function, 2216 DEFINE_BASIC_LISP_OBJECT ("compiled-function", compiled_function,
2218 1, /*dumpable_flag*/
2219 mark_compiled_function, 2217 mark_compiled_function,
2220 print_compiled_function, 0, 2218 print_compiled_function, 0,
2221 compiled_function_equal, 2219 compiled_function_equal,
2222 compiled_function_hash, 2220 compiled_function_hash,
2223 compiled_function_description, 2221 compiled_function_description,
2591 2589
2592 2590
2593 void 2591 void
2594 syms_of_bytecode (void) 2592 syms_of_bytecode (void)
2595 { 2593 {
2596 INIT_LRECORD_IMPLEMENTATION (compiled_function); 2594 INIT_LISP_OBJECT (compiled_function);
2597 2595
2598 DEFERROR_STANDARD (Qinvalid_byte_code, Qinvalid_state); 2596 DEFERROR_STANDARD (Qinvalid_byte_code, Qinvalid_state);
2599 DEFSYMBOL (Qbyte_code); 2597 DEFSYMBOL (Qbyte_code);
2600 DEFSYMBOL_MULTIWORD_PREDICATE (Qcompiled_functionp); 2598 DEFSYMBOL_MULTIWORD_PREDICATE (Qcompiled_functionp);
2601 2599