/[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.8 by pfdietz, Mon Feb 10 03:09:37 2003 UTC revision 1.9 by pfdietz, Mon Feb 17 04:22:04 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  (deftest every.order.1
82    (let ((i 0) x y)    (let ((i 0) x y)
83      (values      (values
84       (every (progn (setf x (incf i)) #'null)       (every (progn (setf x (incf i)) #'null)
# Line 86  Line 86 
86       i x y))       i x y))
87    nil 2 1 2)    nil 2 1 2)
88    
89    (deftest every.order.2
90      (let ((i 0) x y z)
91        (values
92         (every (progn (setf x (incf i)) #'equal)
93                (progn (setf y (incf i)) '(nil nil a nil))
94                (progn (setf z (incf i)) '(nil nil a b)))
95         i x y z))
96      nil 3 1 2 3)
97    
98  ;;; Error cases  ;;; Error cases
99    
100  (deftest every.error.1  (deftest every.error.1

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

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