125 |
{ |
{ |
126 |
if (EQ (Vmocklisp_arguments, Qinteractive)) |
if (EQ (Vmocklisp_arguments, Qinteractive)) |
127 |
return Fread_string (prompt, Qnil, Qnil, Qnil, Qnil); |
return Fread_string (prompt, Qnil, Qnil, Qnil, Qnil); |
128 |
CHECK_NUMBER (n, 0); |
CHECK_NUMBER (n); |
129 |
XSETINT (n, XINT (n) - 1); /* Mocklisp likes to be origin-1 */ |
XSETINT (n, XINT (n) - 1); /* Mocklisp likes to be origin-1 */ |
130 |
return Fcar (Fnthcdr (n, Vmocklisp_arguments)); |
return Fcar (Fnthcdr (n, Vmocklisp_arguments)); |
131 |
} |
} |
189 |
(string, from, to) |
(string, from, to) |
190 |
Lisp_Object string, from, to; |
Lisp_Object string, from, to; |
191 |
{ |
{ |
192 |
CHECK_STRING (string, 0); |
CHECK_STRING (string); |
193 |
CHECK_NUMBER (from, 1); |
CHECK_NUMBER (from); |
194 |
CHECK_NUMBER (to, 2); |
CHECK_NUMBER (to); |
195 |
|
|
196 |
if (XINT (from) < 0) |
if (XINT (from) < 0) |
197 |
XSETINT (from, XINT (from) + XSTRING (string)->size); |
XSETINT (from, XINT (from) + XSTRING (string)->size); |