Update of /project/movitz/cvsroot/movitz/losp/lib In directory common-lisp.net:/tmp/cvs-serv7742 Modified Files: repl.lisp Log Message: Only interpret integers as restarts when we're in a debugger context. Date: Wed Mar 9 08:16:48 2005 Author: ffjeld Index: movitz/losp/lib/repl.lisp diff -u movitz/losp/lib/repl.lisp:1.14 movitz/losp/lib/repl.lisp:1.15 --- movitz/losp/lib/repl.lisp:1.14 Thu Feb 24 13:21:30 2005 +++ movitz/losp/lib/repl.lisp Wed Mar 9 08:16:48 2005 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef@acm.org> ;;;; Created at: Wed Mar 19 14:58:12 2003 ;;;; -;;;; $Id: repl.lisp,v 1.14 2005/02/24 12:21:30 ffjeld Exp $ +;;;; $Id: repl.lisp,v 1.15 2005/03/09 07:16:48 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -83,6 +83,7 @@ (copy-list results))) (values-list results))) (let ((restart (and (integerp form) + muerte:*debugger-dynamic-context* (muerte:find-restart-by-index form muerte:*debugger-dynamic-context*)))) (cond