DEFPACKAGE at variance restarts

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

diff --git a/src/code/condition.lisp b/src/code/condition.lisp
index a0f108a..99d0995 100644 (file)
--- a/src/code/condition.lisp
+++ b/src/code/condition.lisp
@@ -914,6 +914,11 @@
   ()
   (:default-initargs :references (list '(:ansi-cl :macro defpackage))))
 
+(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)
   ((name :initarg :name :reader defconstant-uneql-name)
    (old-value :initarg :old-value :reader defconstant-uneql-old-value)