comparison src/bytecode.h @ 424:11054d720c21 r21-2-20

Import from CVS: tag r21-2-20
author cvs
date Mon, 13 Aug 2007 11:26:11 +0200
parents 697ef44129c6
children
comparison
equal deleted inserted replaced
423:28d9c139be4c 424:11054d720c21
91 DECLARE_LRECORD (compiled_function, Lisp_Compiled_Function); 91 DECLARE_LRECORD (compiled_function, Lisp_Compiled_Function);
92 #define XCOMPILED_FUNCTION(x) XRECORD (x, compiled_function, \ 92 #define XCOMPILED_FUNCTION(x) XRECORD (x, compiled_function, \
93 Lisp_Compiled_Function) 93 Lisp_Compiled_Function)
94 #define XSETCOMPILED_FUNCTION(x, p) XSETRECORD (x, p, compiled_function) 94 #define XSETCOMPILED_FUNCTION(x, p) XSETRECORD (x, p, compiled_function)
95 #define COMPILED_FUNCTIONP(x) RECORDP (x, compiled_function) 95 #define COMPILED_FUNCTIONP(x) RECORDP (x, compiled_function)
96 #define GC_COMPILED_FUNCTIONP(x) GC_RECORDP (x, compiled_function)
97 #define CHECK_COMPILED_FUNCTION(x) CHECK_RECORD (x, compiled_function) 96 #define CHECK_COMPILED_FUNCTION(x) CHECK_RECORD (x, compiled_function)
98 #define CONCHECK_COMPILED_FUNCTION(x) CONCHECK_RECORD (x, compiled_function) 97 #define CONCHECK_COMPILED_FUNCTION(x) CONCHECK_RECORD (x, compiled_function)
99 98
100 extern Lisp_Object Qbyte_code; 99 extern Lisp_Object Qbyte_code;
101 100