/[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.3 by pfdietz, Wed Oct 23 03:10:23 2002 UTC revision 1.4 by pfdietz, Mon Jan 13 14:11:49 2003 UTC
# Line 64  Line 64 
64             *mapc-6-var*)))             *mapc-6-var*)))
65    (h g f e d c b a))    (h g f e d c b a))
66    
67  (deftest mapc-7  (deftest mapc.error.1
68    (classify-error (mapc #'identity 1))    (classify-error (mapc #'identity 1))
69    type-error)    type-error)
70    
71    (deftest mapc.error.2
72      (classify-error (mapc))
73      program-error)
74    
75    (deftest mapc.error.3
76      (classify-error (mapc #'append))
77      program-error)
78    
79  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
80  ;;; mapcar  ;;; mapcar
81    
# Line 131  Line 139 
139             (list *mapc-6-var* result))))             (list *mapc-6-var* result))))
140   ((h g f e d c b a) (a b c d e f g h)))   ((h g f e d c b a) (a b c d e f g h)))
141    
142  (deftest mapcar-7  (deftest mapcar.error.1
143    (classify-error (mapcar #'identity 1))    (classify-error (mapcar #'identity 1))
144    type-error)    type-error)
145    
146    (deftest mapcar.error.2
147      (classify-error (mapcar))
148      program-error)
149    
150    (deftest mapcar.error.3
151      (classify-error (mapcar #'append))
152      program-error)
153    
154  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
155  ;;; mapcan  ;;; mapcan
156    
# Line 201  Line 217 
217              nil)              nil)
218    nil)    nil)
219    
220  (deftest mapcan-10  (deftest mapcan.error.1
221    (classify-error (mapcan #'identity 1))    (classify-error (mapcan #'identity 1))
222    type-error)    type-error)
223    
224    (deftest mapcan.error.2
225      (classify-error (mapcan))
226      program-error)
227    
228    (deftest mapcan.error.3
229      (classify-error (mapcan #'append))
230      program-error)
231    
232  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
233  ;;; mapl  ;;; mapl
234    
# Line 285  Line 309 
309    ((d 4) (c 3) (d 4) (b 2) (c 3) (d 4)    ((d 4) (c 3) (d 4) (b 2) (c 3) (d 4)
310     (a 1) (b 2) (c 3) (d 4)))     (a 1) (b 2) (c 3) (d 4)))
311    
312  (deftest mapl-6  (deftest mapl.error.1
313    (classify-error (mapl #'identity 1))    (classify-error (mapl #'identity 1))
314    type-error)    type-error)
315    
316    (deftest mapl.error.2
317      (classify-error (mapl))
318      program-error)
319    
320    (deftest mapl.error.3
321      (classify-error (mapl #'append))
322      program-error)
323    
324  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
325  ;;; maplist  ;;; maplist
326    
# Line 363  Line 395 
395             )             )
396    (a c c e e g g))    (a c c e e g g))
397    
398  (deftest maplist-8  (deftest maplist.error.1
399    (classify-error (maplist #'identity 'a))    (classify-error (maplist #'identity 'a))
400    type-error)    type-error)
401    
402  (deftest maplist-9  (deftest maplist.error.2
403    (classify-error (maplist #'identity 1))    (classify-error (maplist #'identity 1))
404    type-error)    type-error)
405    
406  (deftest maplist-10  (deftest maplist.error.3
407    (classify-error (maplist #'identity 1.1323))    (classify-error (maplist #'identity 1.1323))
408    type-error)    type-error)
409    
410  (deftest maplist-11  (deftest maplist.error.4
411    (classify-error (maplist #'identity "abcde"))    (classify-error (maplist #'identity "abcde"))
412    type-error)    type-error)
413    
414    (deftest maplist.error.5
415      (classify-error (maplist))
416      program-error)
417    
418    (deftest maplist.error.6
419      (classify-error (maplist #'append))
420      program-error)
421    
422    
423  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
424  ;;; mapcan  ;;; mapcan
425    
# Line 411  Line 452 
452       result))       result))
453    (a b c d b c c d e d e e f))    (a b c d b c c d e d e e f))
454    
455  (deftest mapcon-4  (deftest mapcon.error.1
456    (classify-error (mapcon #'identity 1))    (classify-error (mapcon #'identity 1))
457    type-error)    type-error)
458    
459    (deftest mapcon.error.2
460      (classify-error (mapcon))
461      program-error)
462    
463    (deftest mapcon.error.3
464      (classify-error (mapcon #'append))
465      program-error)
466    
467    

Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4

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