114 |
register Lisp_Object tem; |
register Lisp_Object tem; |
115 |
do |
do |
116 |
{ |
{ |
|
if (!EQ (Vmocklisp_arguments, Qt)) |
|
|
{ |
|
|
if (STRINGP (value) && |
|
|
(EQ (predicate, Qintegerp) || EQ (predicate, Qinteger_or_marker_p))) |
|
|
return Fstring_to_number (value, Qnil); |
|
|
if (INTEGERP (value) && EQ (predicate, Qstringp)) |
|
|
return Fnumber_to_string (value); |
|
|
} |
|
|
|
|
117 |
/* If VALUE is not even a valid Lisp object, abort here |
/* If VALUE is not even a valid Lisp object, abort here |
118 |
where we can get a backtrace showing where it came from. */ |
where we can get a backtrace showing where it came from. */ |
119 |
if ((unsigned int) XGCTYPE (value) >= Lisp_Type_Limit) |
if ((unsigned int) XGCTYPE (value) >= Lisp_Type_Limit) |