Commit 8968f2cd authored by pfdietz's avatar pfdietz
Browse files

Change setf-getf.order.2 so values on failure are more informative

parent a6940e07
...@@ -154,22 +154,14 @@ ...@@ -154,22 +154,14 @@
(setf z (incf i))) (setf z (incf i)))
(progn (setf w (incf i)) 3)) (progn (setf w (incf i)) 3))
;; Must check that only a, b, c have properties ;; Must check that only a, b, c have properties
(and (values
(eqlt i 4) i x y z w
(eqlt x 1) (getf (car p) 'a)
(eqlt y 2) (getf (car p) 'b)
(eqlt z 3) (getf (car p) 'c)
(eqlt w 4) (loop for ptr on (car p) by #'cddr count
(eqlt (getf (car p) 'a) 1) (not (member (car ptr) '(a b c))))))
(eqlt (getf (car p) 'b) 2) 4 1 2 3 4 1 2 3 0)
(eqlt (getf (car p) 'c) 3)
(eqlt
(loop
for ptr on (car p) by #'cddr count
(not (member (car ptr) '(a b c))))
0)
t))
t)
(deftest incf-getf.1 (deftest incf-getf.1
(let ((p (copy-list '(a 1 b 2)))) (let ((p (copy-list '(a 1 b 2))))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment