X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fcondition.lisp;h=317d8bc33cc67acc2f834e3dc99aa12cec9004d7;hb=baee4b0e353648e6f3e7a5826f462fec95df1738;hp=7cc894651246b7f65b2d30bc7477e7d2aecfb289;hpb=7306e23c5a4687bef98fdfb3459aaf15fe79d5ca;p=sbcl.git

diff --git a/src/code/condition.lisp b/src/code/condition.lisp
index 7cc8946..317d8bc 100644
--- a/src/code/condition.lisp
+++ b/src/code/condition.lisp
@@ -1110,6 +1110,21 @@ SB-EXT:PACKAGE-LOCKED-ERROR-SYMBOL."))
                ;; Extract the bound from (INTEGER 0 (BOUND))
                (caaddr (type-error-expected-type condition)))))))
 
+(define-condition invalid-array-error (reference-condition type-error) ()
+  (:report
+   (lambda (condition stream)
+     (let ((*print-array* nil))
+       (format stream
+               "~@<Displaced array originally of type ~S has been invalidated ~
+                due its displaced-to array ~S having become too small to hold ~
+                it: the displaced array's dimensions have all been set to zero ~
+                to trap accesses to it.~:@>"
+               (type-error-expected-type condition)
+               (array-displacement (type-error-datum condition))))))
+  (:default-initargs
+      :references
+      (list '(:ansi-cl :function adjust-array))))
+
 (define-condition index-too-large-error (type-error)
   ()
   (:report