Commit 1f5063eb authored by pfdietz's avatar pfdietz
Browse files

Add a note to map.48

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