X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fcondition.lisp;h=faa04474d8eeb6a46231f38e6ffc77e38fc4ff82;hb=bcd323c39d6f5f80020ba4a5d9eb8d348c6cc499;hp=a0f108a3adef17ff22945423cbcd32d4ed0736d0;hpb=ef0891e470ff35840def7a5717ede18a58266e76;p=sbcl.git

diff --git a/src/code/condition.lisp b/src/code/condition.lisp
index a0f108a..faa0447 100644
--- 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)