Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
Karsten Poeck
ansi-test
Commits
8968f2cd
Commit
8968f2cd
authored
Aug 23, 2005
by
pfdietz
Browse files
Change setf-getf.order.2 so values on failure are more informative
parent
a6940e07
Changes
1
Hide whitespace changes
Inline
Side-by-side
ansi-tests/getf.lsp
View file @
8968f2cd
...
...
@@ -154,22 +154,14 @@
(setf z (incf i)))
(progn (setf w (incf i)) 3))
;; Must check that only a, b, c have properties
(and
(eqlt i 4)
(eqlt x 1)
(eqlt y 2)
(eqlt z 3)
(eqlt w 4)
(eqlt (getf (car p) 'a) 1)
(eqlt (getf (car p) 'b) 2)
(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)
(values
i x y z w
(getf (car p) 'a)
(getf (car p) 'b)
(getf (car p) 'c)
(loop for ptr on (car p) by #'cddr count
(not (member (car ptr) '(a b c))))))
4 1 2 3 4 1 2 3 0)
(deftest incf-getf.1
(let ((p (copy-list '(a 1 b 2))))
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment