X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fcondition.lisp;h=9ec433e1e518c5fd17dc5c117e5293b3a72a3f72;hb=03770e700a55a111d9d350b4c2a6fae98662e1ed;hp=07dca98cc947a2e3a35c30ae4006c0692af9e0dd;hpb=9d572e5dec980b0a9572c5a888986b4497e92a5c;p=sbcl.git

diff --git a/src/code/condition.lisp b/src/code/condition.lisp
index 07dca98..9ec433e 100644
--- a/src/code/condition.lisp
+++ b/src/code/condition.lisp
@@ -903,6 +903,9 @@
 (define-condition simple-reference-error (reference-condition simple-error)
   ())
 
+(define-condition simple-reference-warning (reference-condition simple-warning)
+  ())
+
 (define-condition duplicate-definition (reference-condition warning)
   ((name :initarg :name :reader duplicate-definition-name))
   (:report (lambda (c s)
@@ -1276,8 +1279,9 @@ the values returned by the form as a list. No associated restarts."))
 
 ;;; A knob for muffling warnings, mostly for use while loading files.
 (defvar *muffled-warnings* 'uninteresting-redefinition
-  "A type that ought to specify a subtype of WARNING.  Whenever a warning
-is signaled, if the warning if of this type, it will be muffled.")
+  "A type that ought to specify a subtype of WARNING.  Whenever a
+warning is signaled, if the warning if of this type and is not
+handled by any other handler, it will be muffled.")
 
 ;;; Various STYLE-WARNING signaled in the system.
 ;; For the moment, we're only getting into the details for function