Mercurial > hg > xemacs-beta
diff src/bytecode.c @ 5117:3742ea8250b5 ben-lisp-object ben-lisp-object-final-ws-year-2005
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 |
line wrap: on
line diff
--- a/src/bytecode.c Sat Dec 26 00:20:16 2009 -0600 +++ b/src/bytecode.c Sat Dec 26 00:20:27 2009 -0600 @@ -2204,8 +2204,7 @@ } } -DEFINE_BASIC_LRECORD_IMPLEMENTATION ("compiled-function", compiled_function, - 1, /*dumpable_flag*/ +DEFINE_BASIC_LISP_OBJECT ("compiled-function", compiled_function, mark_compiled_function, print_compiled_function, finalize_compiled_function, @@ -2214,8 +2213,7 @@ compiled_function_description, Lisp_Compiled_Function); #else /* not MC_ALLOC */ -DEFINE_BASIC_LRECORD_IMPLEMENTATION ("compiled-function", compiled_function, - 1, /*dumpable_flag*/ +DEFINE_BASIC_LISP_OBJECT ("compiled-function", compiled_function, mark_compiled_function, print_compiled_function, 0, compiled_function_equal, @@ -2593,7 +2591,7 @@ void syms_of_bytecode (void) { - INIT_LRECORD_IMPLEMENTATION (compiled_function); + INIT_LISP_OBJECT (compiled_function); DEFERROR_STANDARD (Qinvalid_byte_code, Qinvalid_state); DEFSYMBOL (Qbyte_code);