From 7ca074ea154a087bd2ba37ad597cc63689b33d6b Mon Sep 17 00:00:00 2001 From: ram <ram> Date: Fri, 20 Aug 1993 00:15:58 +0000 Subject: [PATCH] Flushed "redefining debugger command" warning. --- code/debug.lisp | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/code/debug.lisp b/code/debug.lisp index fa2c99d70..102f042e9 100644 --- a/code/debug.lisp +++ b/code/debug.lisp @@ -7,7 +7,7 @@ ;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/debug.lisp,v 1.36 1993/07/22 00:15:59 ram Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/debug.lisp,v 1.37 1993/08/20 00:15:58 ram Exp $") ;;; ;;; ********************************************************************** ;;; @@ -954,7 +954,6 @@ See the CMU Common Lisp User's Manual for more information. (let ((fun-name (intern (concatenate 'simple-string name "-DEBUG-COMMAND")))) `(progn (when (assoc ,name *debug-commands* :test #'string=) - (warn "Redefining ~S debugger command." ,name) (setf *debug-commands* (remove ,name *debug-commands* :key #'car :test #'string=))) (defun ,fun-name ,args -- GitLab