/[gcl]/gcl/ansi-tests/cons-test-15.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/cons-test-15.lsp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.11 by pfdietz, Sun Feb 23 17:11:14 2003 UTC revision 1.12 by pfdietz, Fri Mar 7 13:30:52 2003 UTC
# Line 104  Line 104 
104    (classify-error (mapc #'car '(a b c)))    (classify-error (mapc #'car '(a b c)))
105    type-error)    type-error)
106    
107    (deftest mapc.error.8
108      (classify-error (mapc #'identity (list* 1 2 3 4)))
109      type-error)
110    
111  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
112  ;;; mapcar  ;;; mapcar
113    
# Line 208  Line 212 
212    (classify-error (mapcar #'cons '(a b c) '(1 2 3) '(4 5 6)))    (classify-error (mapcar #'cons '(a b c) '(1 2 3) '(4 5 6)))
213    program-error)    program-error)
214    
215    (deftest mapcar.error.8
216      (classify-error (mapcar #'identity (list* 1 2 3 4)))
217      type-error)
218    
219  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
220  ;;; mapcan  ;;; mapcan
# Line 320  Line 327 
327    (classify-error (mapcan #'cons '(a b c) '(1 2 3) '(4 5 6)))    (classify-error (mapcan #'cons '(a b c) '(1 2 3) '(4 5 6)))
328    program-error)    program-error)
329    
330    (deftest mapcan.error.8
331      (classify-error (mapcan #'identity (list* (list 1) (list 2) 3)))
332      type-error)
333    
334  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
335  ;;; mapl  ;;; mapl
336    
# Line 443  Line 454 
454    (classify-error (mapl #'caar '(a b c)))    (classify-error (mapl #'caar '(a b c)))
455    type-error)    type-error)
456    
457    (deftest mapl.error.8
458      (classify-error (mapl #'identity (list* (list 1) (list 2) 3)))
459      type-error)
460    
461  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
462  ;;; maplist  ;;; maplist
# Line 574  Line 588 
588    (classify-error (maplist #'cons '(a b c) '(1 2 3) '(4 5 6)))    (classify-error (maplist #'cons '(a b c) '(1 2 3) '(4 5 6)))
589    program-error)    program-error)
590    
591    (deftest maplist.error.11
592      (classify-error (maplist #'identity (list* (list 1) (list 2) 3)))
593      type-error)
594    
595  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
596  ;;; mapcon  ;;; mapcon
597    
# Line 650  Line 668 
668  (deftest mapcon.error.7  (deftest mapcon.error.7
669    (classify-error (mapcon #'cons '(a b c) '(1 2 3) '(4 5 6)))    (classify-error (mapcon #'cons '(a b c) '(1 2 3) '(4 5 6)))
670    program-error)    program-error)
671    
672    (deftest mapcon.error.8
673      (classify-error (mapcon #'copy-tree (cons 1 2)))
674      type-error)
675    

Legend:
Removed from v.1.11  
changed lines
  Added in v.1.12

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