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) |
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 |