0.7.7.9:

[sbcl.git] / src / code / condition.lisp

diff --git a/src/code/condition.lisp b/src/code/condition.lisp
index c089af9..bd9c545 100644 (file)
--- a/src/code/condition.lisp
+++ b/src/code/condition.lisp
@@ -497,10 +497,6 @@
          (t
           (error "unknown option: ~S" (first option)))))
 
-      (when (all-writers)
-       (warn "Condition slot setters probably not allowed in ANSI CL:~%  ~S"
-             (all-writers)))
-
       `(progn
         (eval-when (:compile-toplevel :load-toplevel :execute)
           (%compiler-define-condition ',name ',parent-types ',layout))