X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fcross-condition.lisp;h=269241c15fa42d4f1d5bb896c3d8a328e9420506;hb=fea8ea02847ddc0864546a02480fb3e97d6fa318;hp=6867cb4c48256e5dc36e235e45c0386846e92592;hpb=0332a8dfdfffccb839cd55ddb682c2d03785b376;p=sbcl.git

diff --git a/src/code/cross-condition.lisp b/src/code/cross-condition.lisp
index 6867cb4..269241c 100644
--- a/src/code/cross-condition.lisp
+++ b/src/code/cross-condition.lisp
@@ -17,6 +17,8 @@
 ;;; compiler, it will only be a style-warning.
 (define-condition format-too-many-args-warning (simple-warning) ())
 
+(define-condition encapsulated-condition () ())
+
 (define-condition bug (simple-error)
   ()
   (:report
@@ -33,3 +35,9 @@ an averrance that is violated (check your code!). If you are a user, ~
 please submit a bug report to the developers' mailing list, details of ~
 which can be found at <http://sbcl.sourceforge.net/>.~:@>"
 	     ()))))
+
+;;; These are should never be instantiated before the real definitions
+;;; come in.
+(deftype package-lock-violation () nil)
+(deftype package-locked-error () nil)
+(deftype symbol-package-locked-error () nil)