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

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

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

revision 1.4 by pfdietz, Fri May 6 13:34:41 2005 UTC revision 1.5 by pfdietz, Tue Jun 14 03:05:19 2005 UTC
# Line 46  Line 46 
46       x))       x))
47    ((a a a a a) 3))    ((a a a a a) 3))
48    
 (defvar *mapc.6-var* nil)  
 (defun mapc.6-fun (x)  
   (push x *mapc.6-var*)  
   x)  
   
49  (deftest mapc.6  (deftest mapc.6
50    (let* ((x (copy-list '(a b c d e f g h)))    (let* ((x (copy-list '(a b c d e f g h)))
51           (xcopy (make-scaffold-copy x)))           (xcopy (make-scaffold-copy x)))
# Line 73  Line 68 
68       i x y z))       i x y z))
69    (a b c) 3 1 2 3)    (a b c) 3 1 2 3)
70    
71    ;;; Error tests
72    
73  (deftest mapc.error.1  (deftest mapc.error.1
74    (check-type-error #'(lambda (x) (mapc #'identity x)) #'listp)    (check-type-error #'(lambda (x) (mapc #'identity x)) #'listp)
75    nil)    nil)

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

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