Mercurial > hg > xemacs-beta

comparison src/eval.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 facf3239ba30
children e0db3c197671
comparison
equal deleted inserted replaced
5116:e56f73345619 5117:3742ea8250b5
431 static const struct memory_description subr_description[] = { 431 static const struct memory_description subr_description[] = {
432 { XD_DOC_STRING, offsetof (Lisp_Subr, doc), 0, { 0 }, XD_FLAG_NO_KKCC }, 432 { XD_DOC_STRING, offsetof (Lisp_Subr, doc), 0, { 0 }, XD_FLAG_NO_KKCC },
433 { XD_END } 433 { XD_END }
434 }; 434 };
435 435
436 DEFINE_BASIC_LRECORD_IMPLEMENTATION ("subr", subr, 436 DEFINE_BASIC_LISP_OBJECT ("subr", subr,
437 1, /*dumpable-flag*/
438 0, print_subr, 0, 0, 0, 437 0, print_subr, 0, 0, 0,
439 subr_description, 438 subr_description,
440 Lisp_Subr); 439 Lisp_Subr);
441 440
442 /************************************************************************/ 441 /************************************************************************/
6437 /************************************************************************/ 6436 /************************************************************************/
6438 6437
6439 void 6438 void
6440 syms_of_eval (void) 6439 syms_of_eval (void)
6441 { 6440 {
6442 INIT_LRECORD_IMPLEMENTATION (subr); 6441 INIT_LISP_OBJECT (subr);
6443 6442
6444 DEFSYMBOL (Qinhibit_quit); 6443 DEFSYMBOL (Qinhibit_quit);
6445 DEFSYMBOL (Qautoload); 6444 DEFSYMBOL (Qautoload);
6446 DEFSYMBOL (Qdebug_on_error); 6445 DEFSYMBOL (Qdebug_on_error);
6447 DEFSYMBOL (Qstack_trace_on_error); 6446 DEFSYMBOL (Qstack_trace_on_error);