Parent Directory | Revision Log | 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 |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |