Mercurial > hg > xemacs-beta

comparison src/data.c @ 5207:1096ef427b56

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Error on too many arguments to #'function, #'quote. 2010-04-29 Aidan Kehoe <kehoea@parhasard.net> * eval.c (Fquote, Ffunction): Error on more than one argument to these special operators. * data.c (syms_of_data): Move Qquote to general-slots.h from this file, now it's used in eval.c
author Aidan Kehoe <kehoea@parhasard.net>
date Thu, 29 Apr 2010 15:49:21 +0100
parents 71ee43b8a74d
children c096d8051f89 308d34e9f07d
comparison
equal deleted inserted replaced
5206:39d74978fd32 5207:1096ef427b56
32 #include "bytecode.h" 32 #include "bytecode.h"
33 #include "gc.h" 33 #include "gc.h"
34 #include "syssignal.h" 34 #include "syssignal.h"
35 #include "sysfloat.h" 35 #include "sysfloat.h"
36 36
37 Lisp_Object Qnil, Qt, Qquote, Qlambda, Qunbound; 37 Lisp_Object Qnil, Qt, Qlambda, Qunbound;
38 Lisp_Object Qerror_conditions, Qerror_message; 38 Lisp_Object Qerror_conditions, Qerror_message;
39 Lisp_Object Qerror, Qquit, Qsyntax_error, Qinvalid_read_syntax; 39 Lisp_Object Qerror, Qquit, Qsyntax_error, Qinvalid_read_syntax;
40 Lisp_Object Qlist_formation_error, Qstructure_formation_error; 40 Lisp_Object Qlist_formation_error, Qstructure_formation_error;
41 Lisp_Object Qmalformed_list, Qmalformed_property_list; 41 Lisp_Object Qmalformed_list, Qmalformed_property_list;
42 Lisp_Object Qcircular_list, Qcircular_property_list; 42 Lisp_Object Qcircular_list, Qcircular_property_list;
3514 { 3514 {
3515 INIT_LISP_OBJECT (weak_list); 3515 INIT_LISP_OBJECT (weak_list);
3516 INIT_LISP_OBJECT (ephemeron); 3516 INIT_LISP_OBJECT (ephemeron);
3517 INIT_LISP_OBJECT (weak_box); 3517 INIT_LISP_OBJECT (weak_box);
3518 3518
3519 DEFSYMBOL (Qquote);
3520 DEFSYMBOL (Qlambda); 3519 DEFSYMBOL (Qlambda);
3521 DEFSYMBOL (Qlistp); 3520 DEFSYMBOL (Qlistp);
3522 DEFSYMBOL (Qtrue_list_p); 3521 DEFSYMBOL (Qtrue_list_p);
3523 DEFSYMBOL (Qconsp); 3522 DEFSYMBOL (Qconsp);
3524 DEFSYMBOL (Qsubrp); 3523 DEFSYMBOL (Qsubrp);