From 498b53ea49bdd7d640fc4f8426e8ecf6b0128cc5 Mon Sep 17 00:00:00 2001 From: dos-reis Date: Mon, 7 Apr 2008 01:45:51 +0000 Subject: * interp/sys-constants.boot ($quitTag): Define here. * interp/spaderror.lisp ($quitTag): Don't define here. --- src/ChangeLog | 5 +++++ src/interp/spaderror.lisp | 4 ---- src/interp/sys-constants.boot | 10 ++++++++++ 3 files changed, 15 insertions(+), 4 deletions(-) (limited to 'src') diff --git a/src/ChangeLog b/src/ChangeLog index 4cc31a60..b202fc6c 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,3 +1,8 @@ +2008-04-06 Gabriel Dos Reis + + * interp/sys-constants.boot ($quitTag): Define here. + * interp/spaderror.lisp ($quitTag): Don't define here. + 2008-04-05 Gabriel Dos Reis * graph/include/Gfun.H1: Remove K&R prototypes. diff --git a/src/interp/spaderror.lisp b/src/interp/spaderror.lisp index aedfc5f9..42f65a32 100644 --- a/src/interp/spaderror.lisp +++ b/src/interp/spaderror.lisp @@ -43,13 +43,9 @@ ;;(defmacro |trappedSpadEval| (form) form) ;;nop for now -#+:akcl -(defconstant |$quitTag| system::*quit-tag*) #+:akcl (defun |resetStackLimits| () (system:reset-stack-limits)) #-:akcl -(defconstant |$quitTag| (gensym)) -#-:akcl (defun |resetStackLimits| () nil) ;; failed union branch -- value returned for numeric failure 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 -- cgit v1.2.3