diff options
Diffstat (limited to 'src/interp/sys-constants.boot')
| -rw-r--r-- | src/interp/sys-constants.boot | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/src/interp/sys-constants.boot b/src/interp/sys-constants.boot index 5540a575..c79941ea 100644 --- a/src/interp/sys-constants.boot +++ b/src/interp/sys-constants.boot @@ -624,3 +624,13 @@ BLANK == '" " ++ UNDERBAR == '"__" + +++ Lisp catch tag used by some Lisp systems to exit the debugger loop. +$quitTag == +)if %hasFeature KEYWORD::GCL + SYSTEM::_*QUIT_-TAG_* +)elseif %hasFeature KEYWORD::SBCL + QUOTE SB_-INT::TOPLEVEL_-CATCHER +)else + GENSYM() +)endif |