/[gcl]/gcl/ansi-tests/map.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/map.lsp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch 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))

Legend:
Removed from v.1.20  
changed lines
  Added in v.1.21

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26