1 |
/* Execution of byte code produced by bytecomp.el. |
/* Execution of byte code produced by bytecomp.el. |
2 |
Copyright (C) 1985, 1986, 1987, 1988, 1993, 2000, 2001, 2002, 2003 |
Copyright (C) 1985, 1986, 1987, 1988, 1993, 2000, 2001, 2002, 2003, 2004 |
3 |
Free Software Foundation, Inc. |
Free Software Foundation, Inc. |
4 |
|
|
5 |
This file is part of GNU Emacs. |
This file is part of GNU Emacs. |
387 |
Vquit_flag = Qnil; \ |
Vquit_flag = Qnil; \ |
388 |
BEFORE_POTENTIAL_GC (); \ |
BEFORE_POTENTIAL_GC (); \ |
389 |
Fsignal (Qquit, Qnil); \ |
Fsignal (Qquit, Qnil); \ |
390 |
|
AFTER_POTENTIAL_GC (); \ |
391 |
} \ |
} \ |
392 |
} while (0) |
} while (0) |
393 |
|
|
540 |
TOP = Qnil; |
TOP = Qnil; |
541 |
else |
else |
542 |
{ |
{ |
543 |
BEFORE_POTENTIAL_GC (); |
wrong_type_argument (Qlistp, v1); |
|
Fcar (wrong_type_argument (Qlistp, v1)); |
|
|
AFTER_POTENTIAL_GC (); |
|
544 |
} |
} |
545 |
break; |
break; |
546 |
} |
} |
573 |
TOP = Qnil; |
TOP = Qnil; |
574 |
else |
else |
575 |
{ |
{ |
576 |
BEFORE_POTENTIAL_GC (); |
wrong_type_argument (Qlistp, v1); |
|
Fcdr (wrong_type_argument (Qlistp, v1)); |
|
|
AFTER_POTENTIAL_GC (); |
|
577 |
} |
} |
578 |
break; |
break; |
579 |
} |
} |
904 |
else if (!NILP (v1)) |
else if (!NILP (v1)) |
905 |
{ |
{ |
906 |
immediate_quit = 0; |
immediate_quit = 0; |
907 |
BEFORE_POTENTIAL_GC (); |
wrong_type_argument (Qlistp, v1); |
|
v1 = wrong_type_argument (Qlistp, v1); |
|
|
AFTER_POTENTIAL_GC (); |
|
|
immediate_quit = 1; |
|
|
op++; |
|
908 |
} |
} |
909 |
} |
} |
910 |
immediate_quit = 0; |
immediate_quit = 0; |
913 |
else if (NILP (v1)) |
else if (NILP (v1)) |
914 |
TOP = Qnil; |
TOP = Qnil; |
915 |
else |
else |
916 |
{ |
wrong_type_argument (Qlistp, v1); |
|
BEFORE_POTENTIAL_GC (); |
|
|
Fcar (wrong_type_argument (Qlistp, v1)); |
|
|
AFTER_POTENTIAL_GC (); |
|
|
} |
|
917 |
break; |
break; |
918 |
} |
} |
919 |
|
|
1550 |
else if (!NILP (v1)) |
else if (!NILP (v1)) |
1551 |
{ |
{ |
1552 |
immediate_quit = 0; |
immediate_quit = 0; |
1553 |
BEFORE_POTENTIAL_GC (); |
wrong_type_argument (Qlistp, v1); |
|
v1 = wrong_type_argument (Qlistp, v1); |
|
|
AFTER_POTENTIAL_GC (); |
|
|
immediate_quit = 1; |
|
|
op++; |
|
1554 |
} |
} |
1555 |
} |
} |
1556 |
immediate_quit = 0; |
immediate_quit = 0; |
1559 |
else if (NILP (v1)) |
else if (NILP (v1)) |
1560 |
TOP = Qnil; |
TOP = Qnil; |
1561 |
else |
else |
1562 |
{ |
wrong_type_argument (Qlistp, v1); |
|
BEFORE_POTENTIAL_GC (); |
|
|
Fcar (wrong_type_argument (Qlistp, v1)); |
|
|
AFTER_POTENTIAL_GC (); |
|
|
} |
|
1563 |
} |
} |
1564 |
else |
else |
1565 |
{ |
{ |