Mercurial > hg > xemacs-beta

comparison src/data.c @ 153:25f70ba0133c r20-3b3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b3
author cvs
date Mon, 13 Aug 2007 09:38:25 +0200
parents fe104dbd9147
children 3bb7ccffb0c0
comparison
equal deleted inserted replaced
152:4c132ee2d62b 153:25f70ba0133c
107 { 107 {
108 /* This function can GC */ 108 /* This function can GC */
109 REGISTER Lisp_Object tem; 109 REGISTER Lisp_Object tem;
110 do 110 do
111 { 111 {
112 #ifdef MOCKLISP_SUPPORT
113 if (!EQ (Vmocklisp_arguments, Qt))
114 {
115 if (STRINGP (value) &&
116 (EQ (predicate, Qintegerp) ||
117 EQ (predicate, Qinteger_or_marker_p) ||
118 EQ (predicate, Qinteger_char_or_marker_p)))
119 return Fstring_to_number (value);
120 if (INTP (value) && EQ (predicate, Qstringp))
121 return Fnumber_to_string (value);
122 if (CHARP (value) && EQ (predicate, Qstringp))
123 return Fchar_to_string (value);
124 }
125 #endif /* MOCKLISP_SUPPORT */
126 value = Fsignal (Qwrong_type_argument, list2 (predicate, value)); 112 value = Fsignal (Qwrong_type_argument, list2 (predicate, value));
127 tem = call1 (predicate, value); 113 tem = call1 (predicate, value);
128 } 114 }
129 while (NILP (tem)); 115 while (NILP (tem));
130 return value; 116 return value;