Parent Directory | Revision Log | Patch
revision 1.4 by pfdietz, Fri Jan 24 04:22:54 2003 UTC | revision 1.5 by pfdietz, Fri Feb 14 05:10:36 2003 UTC | |
---|---|---|
# | Line 79 | Line 79 |
79 | (notevery 'null '(nil nil nil nil)) | (notevery 'null '(nil nil nil nil)) |
80 | nil) | nil) |
81 | ||
82 | (deftest notevery.order.1 | |
83 | (let ((i 0) a b) | |
84 | (values | |
85 | (notevery (progn (setf a (incf i)) #'identity) | |
86 | (progn (setf b (incf i)) '(a b c d))) | |
87 | i a b)) | |
88 | nil 2 1 2) | |
89 | ||
90 | ;;; Error cases | ;;; Error cases |
91 | ||
92 | (deftest notevery.error.1 | (deftest notevery.error.1 |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |