2
Copyright (C) 1994 M. Hagiya, W. Schelter, T. Yuasa
4
This file is part of GNU Common Lisp, herein referred to as GCL
6
GCL is free software; you can redistribute it and/or modify it under
7
the terms of the GNU LIBRARY GENERAL PUBLIC LICENSE as published by
8
the Free Software Foundation; either version 2, or (at your option)
11
GCL is distributed in the hope that it will be useful, but WITHOUT
12
ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
13
FITNESS FOR A PARTICULAR PURPOSE. See the GNU Library General Public
14
License for more details.
16
You should have received a copy of the GNU Library General Public License
17
along with GCL; see the file COPYING. If not, write to the Free Software
18
Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
26
frame and non-local jump
40
&& frs_top->frs_class == FRS_CATCH
42
&& frs_top->frs_class != FRS_PROTECT
43
&& frs_top->frs_class != FRS_CATCHALL
48
lex_env = frs_top->frs_lex;
49
ihs_top = frs_top->frs_ihs;
50
bds_unwind(frs_top->frs_bds_top);
51
in_signal_handler = frs_top->frs_in_signal_handler;
52
signals_allowed=sig_normal;
53
longjmp(frs_top->frs_jmpbuf, 0);
57
frame_ptr frs_sch (frame_id)
62
for (top = frs_top; top >= frs_org; top--)
63
if (top->frs_val == frame_id && top->frs_class == FRS_CATCH)
68
frame_ptr frs_sch_catch(frame_id)
73
for(top = frs_top; top >= frs_org ;top--)
74
if (top->frs_val == frame_id && top->frs_class == FRS_CATCH
75
|| top->frs_class == FRS_CATCHALL