Parent Directory | Revision Log | Patch
revision 1.20 by pfdietz, Fri May 6 13:34:41 2005 UTC | revision 1.21 by pfdietz, Sat May 28 15:20:15 2005 UTC | |
---|---|---|
# | Line 208 | Line 208 |
208 | "abc") | "abc") |
209 | ||
210 | (deftest map.48 | (deftest map.48 |
211 | :notes (:result-type-element-type-by-subtype) | |
212 | (let ((type '(or (vector t 10) (vector t 5)))) | (let ((type '(or (vector t 10) (vector t 5)))) |
213 | (if (subtypep type '(vector t)) | (if (subtypep type '(vector t)) |
214 | (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)) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |