projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
0.8.2.33
[sbcl.git]
/
tests
/
array.pure.lisp
diff --git
a/tests/array.pure.lisp
b/tests/array.pure.lisp
index
60eb661
..
023e170
100644
(file)
--- a/
tests/array.pure.lisp
+++ b/
tests/array.pure.lisp
@@
-138,6
+138,10
@@
;; dimensions that we promised. Let's make sure that we can create
;; an array with more than 2^24 elements, since that was a symptom
;; from the CLISP and OpenMCL hosts.
;; dimensions that we promised. Let's make sure that we can create
;; an array with more than 2^24 elements, since that was a symptom
;; from the CLISP and OpenMCL hosts.
- (let ((big-array (opaque-identity
+ (let ((big-array (opaque-identity
(make-array (expt 2 26) :element-type 'bit))))
(make-array (expt 2 26) :element-type 'bit))))
- (assert (= (length big-array) (expt 2 26)))))
\ No newline at end of file
+ (assert (= (length big-array) (expt 2 26)))))
+
+;;; Bug reported by Kalle Olavi Niemitalo for CMUCL through Debian BTS
+(let ((array (make-array nil :initial-contents nil)))
+ (assert (eql (aref array) nil)))