projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
UPGRADED-ARRAY-ELEMENT-TYPE: more thoroughly signal errors on unknown types.
[sbcl.git]
/
tests
/
compiler.pure.lisp
diff --git
a/tests/compiler.pure.lisp
b/tests/compiler.pure.lisp
index
f20d6f5
..
1fd9166
100644
(file)
--- a/
tests/compiler.pure.lisp
+++ b/
tests/compiler.pure.lisp
@@
-4970,3
+4970,7
@@
(when (= (array-rank a) 3)
(array-dimension a 2)))))))
(assert noted)))
(when (= (array-rank a) 3)
(array-dimension a 2)))))))
(assert noted)))
+
+(with-test (:name :upgraded-array-element-type-undefined-type)
+ (raises-error? (upgraded-array-element-type 'an-undefined-type))
+ (raises-error? (upgraded-array-element-type '(and fixnum an-undefined-type))))