Commit 2c81c5a0 authored by pfdietz's avatar pfdietz

Added test that (UPGRADED-ARRAY-ELEMENT-TYPE NIL) is type equivalent to NIL.

parent 7f1fadc6
......@@ -71,6 +71,15 @@
(upgraded-array-element-type 'bit env))))
(%foo))
t)
;;; Tests of upgrading NIL (it should be type equivalent to NIL)
(deftest upgraded-array-element-type.nil.1
(let ((uaet-nil (upgraded-array-element-type nil)))
(loop for e in *universe*
when (typep e uaet-nil)
collect e))
nil)
;;; Error tests
......@@ -82,7 +91,3 @@
(deftest upgraded-array-element-type.error.2
(classify-error (upgraded-array-element-type 'bit nil nil))
program-error)
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment