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

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

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

revision 1.7 by pfdietz, Wed Jan 29 02:11:55 2003 UTC revision 1.8 by pfdietz, Mon Feb 10 03:09:37 2003 UTC
# Line 78  Line 78 
78    (notnot-mv (every 'null '(nil nil nil nil)))    (notnot-mv (every 'null '(nil nil nil nil)))
79    t)    t)
80    
81    (deftest every.17
82      (let ((i 0) x y)
83        (values
84         (every (progn (setf x (incf i)) #'null)
85                (progn (setf y (incf i)) '(nil nil a nil)))
86         i x y))
87      nil 2 1 2)
88    
89  ;;; Error cases  ;;; Error cases
90    
91  (deftest every.error.1  (deftest every.error.1

Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8

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