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