/[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.18 by pfdietz, Tue Sep 28 14:11:29 2004 UTC revision 1.19 by pfdietz, Sat Oct 2 12:12:48 2004 UTC
# Line 254  Line 254 
254    t)    t)
255    
256  (deftest map.error.10  (deftest map.error.10
257      :notes (:result-type-element-type-by-subtype)
258    (let ((type '(or (vector bit) (vector t))))    (let ((type '(or (vector bit) (vector t))))
259      (if (subtypep type 'vector)      (if (subtypep type 'vector)
260          (eval `(signals-error-always (map ',type #'identity '(1 0 1)) error))          (eval `(signals-error-always (map ',type #'identity '(1 0 1)) error))
# Line 384  Line 385 
385          for result = (map `(vector ,type) #'identity vals)          for result = (map `(vector ,type) #'identity vals)
386          unless (and (= (length result) len)          unless (and (= (length result) len)
387                      (every #'eql vals result))                      (every #'eql vals result))
388          collect (list i vals result))          collect (list type vals result))
389    nil)    nil)
390    
391  (deftest map.specialized-vector.7  (deftest map.specialized-vector.7
# Line 397  Line 398 
398          for result = (map `(vector ,type) #'identity vals)          for result = (map `(vector ,type) #'identity vals)
399          unless (and (= (length result) len)          unless (and (= (length result) len)
400                      (every #'eql vals result))                      (every #'eql vals result))
401          collect (list i vals result))          collect (list type vals result))
402    nil)    nil)
403    
404  ;;; Order of evaluation tests  ;;; Order of evaluation tests

Legend:
Removed from v.1.18  
changed lines
  Added in v.1.19

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