Remove a style-warning from sb-bsd-sockets.asd when #-sb-testing-contrib.

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

diff --git a/src/code/condition.lisp b/src/code/condition.lisp
index a0f108a..faa0447 100644 (file)
--- a/src/code/condition.lisp
+++ b/src/code/condition.lisp
@@ -912,6 +912,12 @@
 
 (define-condition package-at-variance (reference-condition simple-warning)
   ()
+  (:default-initargs :references (list '(:ansi-cl :macro defpackage)
+                                       '(:sbcl :variable *on-package-variance*))))
+
+(define-condition package-at-variance-error (reference-condition simple-condition
+                                             package-error)
+  ()
   (:default-initargs :references (list '(:ansi-cl :macro defpackage))))
 
 (define-condition defconstant-uneql (reference-condition error)