X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fcondition.lisp;h=7f664314602ca4437433384aabd7417c2c7c6949;hb=ec066d84dd46611428943d152749b3891a3f4b7c;hp=a44131081a6d1e6712f67f4dd4bcd5827626b041;hpb=61b189e9b70c125a31eaf041a55e00b517cafbd3;p=sbcl.git

diff --git a/src/code/condition.lisp b/src/code/condition.lisp
index a441310..7f66431 100644
--- a/src/code/condition.lisp
+++ b/src/code/condition.lisp
@@ -781,6 +781,7 @@
 (define-condition nil-array-accessed-error (type-error)
   ()
   (:report (lambda (condition stream)
+	     (declare (ignore condition))
 	     (format stream
 		     "An attempt to access an array of element-type ~
                       NIL was made.  Congratulations!"))))