Commit 1f5063eb authored by pfdietz's avatar pfdietz

Add a note to map.48

parent 3d86d143
......@@ -208,6 +208,7 @@
"abc")
(deftest map.48
:notes (:result-type-element-type-by-subtype)
(let ((type '(or (vector t 10) (vector t 5))))
(if (subtypep type '(vector t))
(equalpt (map type #'identity '(1 2 3 4 5)) #(1 2 3 4 5))
......
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