Mercurial > emacs

comparison src/data.c @ 39767:00f499d0cd16

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(Qcircular_list): New variable. (circular_list_error): New function. (syms_of_data): Initialize it Qcircular_list.
author Gerd Moellmann <gerd@gnu.org>
date Thu, 11 Oct 2001 09:03:51 +0000
parents 8cd74f2aa6e2
children 280975f8c65e
comparison
equal deleted inserted replaced
39766:2a0aa5b942d7 39767:00f499d0cd16
63 63
64 Lisp_Object Qnil, Qt, Qquote, Qlambda, Qsubr, Qunbound; 64 Lisp_Object Qnil, Qt, Qquote, Qlambda, Qsubr, Qunbound;
65 Lisp_Object Qerror_conditions, Qerror_message, Qtop_level; 65 Lisp_Object Qerror_conditions, Qerror_message, Qtop_level;
66 Lisp_Object Qerror, Qquit, Qwrong_type_argument, Qargs_out_of_range; 66 Lisp_Object Qerror, Qquit, Qwrong_type_argument, Qargs_out_of_range;
67 Lisp_Object Qvoid_variable, Qvoid_function, Qcyclic_function_indirection; 67 Lisp_Object Qvoid_variable, Qvoid_function, Qcyclic_function_indirection;
68 Lisp_Object Qcyclic_variable_indirection; 68 Lisp_Object Qcyclic_variable_indirection, Qcircular_list;
69 Lisp_Object Qsetting_constant, Qinvalid_read_syntax; 69 Lisp_Object Qsetting_constant, Qinvalid_read_syntax;
70 Lisp_Object Qinvalid_function, Qwrong_number_of_arguments, Qno_catch; 70 Lisp_Object Qinvalid_function, Qwrong_number_of_arguments, Qno_catch;
71 Lisp_Object Qend_of_file, Qarith_error, Qmark_inactive; 71 Lisp_Object Qend_of_file, Qarith_error, Qmark_inactive;
72 Lisp_Object Qbeginning_of_buffer, Qend_of_buffer, Qbuffer_read_only; 72 Lisp_Object Qbeginning_of_buffer, Qend_of_buffer, Qbuffer_read_only;
73 Lisp_Object Qtext_read_only; 73 Lisp_Object Qtext_read_only;
95 static Lisp_Object Qsubrp, Qmany, Qunevalled; 95 static Lisp_Object Qsubrp, Qmany, Qunevalled;
96 96
97 static Lisp_Object swap_in_symval_forwarding P_ ((Lisp_Object, Lisp_Object)); 97 static Lisp_Object swap_in_symval_forwarding P_ ((Lisp_Object, Lisp_Object));
98 98
99 int most_positive_fixnum, most_negative_fixnum; 99 int most_positive_fixnum, most_negative_fixnum;
100
101
102 void
103 circular_list_error (list)
104 Lisp_Object list;
105 {
106 Fsignal (Qcircular_list, list);
107 }
108
100 109
101 Lisp_Object 110 Lisp_Object
102 wrong_type_argument (predicate, value) 111 wrong_type_argument (predicate, value)
103 register Lisp_Object predicate, value; 112 register Lisp_Object predicate, value;
104 { 113 {
2878 2887
2879 Fput (Qcyclic_variable_indirection, Qerror_conditions, 2888 Fput (Qcyclic_variable_indirection, Qerror_conditions,
2880 Fcons (Qcyclic_variable_indirection, error_tail)); 2889 Fcons (Qcyclic_variable_indirection, error_tail));
2881 Fput (Qcyclic_variable_indirection, Qerror_message, 2890 Fput (Qcyclic_variable_indirection, Qerror_message,
2882 build_string ("Symbol's chain of variable indirections contains a loop")); 2891 build_string ("Symbol's chain of variable indirections contains a loop"));
2892
2893 Qcircular_list = intern ("circular-list");
2894 staticpro (&Qcircular_list);
2895 Fput (Qcircular_list, Qerror_conditions,
2896 Fcons (Qcircular_list, error_tail));
2897 Fput (Qcircular_list, Qerror_message,
2898 build_string ("List contains a loop"));
2883 2899
2884 Fput (Qvoid_variable, Qerror_conditions, 2900 Fput (Qvoid_variable, Qerror_conditions,
2885 Fcons (Qvoid_variable, error_tail)); 2901 Fcons (Qvoid_variable, error_tail));
2886 Fput (Qvoid_variable, Qerror_message, 2902 Fput (Qvoid_variable, Qerror_message,
2887 build_string ("Symbol's value as variable is void")); 2903 build_string ("Symbol's value as variable is void"));