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
ed690393
Commit
ed690393
authored
Jul 13, 2004
by
pfdietz
Browse files
Added order of arg evaluation tests for GET.
parent
5169aeb7
Changes
1
Hide whitespace changes
Inline
Side-by-side
ansi-tests/get.lsp
View file @
ed690393
...
...
@@ -46,6 +46,50 @@
evaluated))
1 t)
;;; Order of evaluation
(deftest get.order.1
(let (a b (i 0) (sym (gensym)))
(setf (get sym :foo) t)
(values
(get (progn (setf a (incf i)) sym)
(progn (setf b (incf i)) :foo))
a b i))
t 1 2 2)
(deftest get.order.2
(let (a b (i 0) (sym (gensym)))
(values
(setf (get (progn (setf a (incf i)) sym)
(progn (setf b (incf i)) :foo))
t)
a b i
(get sym :foo)
))
t 1 2 2 t)
(deftest get.order.3
(let (a b c (i 0) (sym (gensym)))
(setf (get sym :foo) t)
(values
(get (progn (setf a (incf i)) sym)
(progn (setf b (incf i)) :foo)
(progn (setf c (incf i)) nil))
a b c i))
t 1 2 3 3)
(deftest get.order.4
(let (a b c (i 0) (sym (gensym)))
(values
(setf (get (progn (setf a (incf i)) sym)
(progn (setf b (incf i)) :foo)
(progn (setf c (incf i)) nil))
t)
a b c i
(get sym :foo)
))
t 1 2 3 3 t)
;;; Error tests
(deftest get.error.1
...
...
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