0.7.13.21:

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

diff --git a/src/code/condition.lisp b/src/code/condition.lisp
index 1d20994..99375b4 100644 (file)
--- a/src/code/condition.lisp
+++ b/src/code/condition.lisp
@@ -715,6 +715,13 @@
                  "The START and END parameters ~S and ~S are bad for an array of total size ~S."
                  start end (array-total-size object))))))))
 
+(define-condition nil-array-accessed-error (type-error)
+  ()
+  (:report (lambda (condition stream)
+            (format stream
+                    "An attempt to access an array of element-type ~
+                      NIL was made.  Congratulations!"))))
+
 (define-condition io-timeout (stream-error)
   ((direction :reader io-timeout-direction :initarg :direction))
   (:report