diff --git a/code/debug-int.lisp b/code/debug-int.lisp index 3196762b3c3fac2e0066e452d885f5b5c3df7062..ecdedcc4f7e7d2bf1414e1a4b15662de0048546f 100644 --- a/code/debug-int.lisp +++ b/code/debug-int.lisp @@ -5,7 +5,7 @@ ;;; Carnegie Mellon University, and has been placed in the public domain. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/debug-int.lisp,v 1.113 2004/08/30 14:55:38 rtoy Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/debug-int.lisp,v 1.114 2004/10/13 13:50:16 rtoy Exp $") ;;; ;;; ********************************************************************** ;;; @@ -3785,7 +3785,13 @@ (let ((n-frame (gensym)) (fun (code-location-debug-function loc))) (unless (debug-variable-info-available fun) - (debug-signal 'no-debug-variables :debug-function fun)) + ;;; Do we really want to signal this? This prevents the + ;;; debugger repl from evaluating other things that might be + ;;; useful that doesn't refer to local vars. A warning, + ;;; however, might still be useful. + #+nil + (debug-signal 'no-debug-variables :debug-function fun) + (warn "~&~S has no debug-variable information." fun)) (ext:collect ((binds) (symbol-macros) (special-binds)) (do-debug-function-variables (var fun) (let ((validity (debug-variable-validity var loc)))