Commit fa50f612 authored by pfdietz's avatar pfdietz

Add arg-evaled-only-once test

parent 8744f0c3
......@@ -19,6 +19,12 @@
nil)
nil)
(deftest proclaim.3
(let ((i 0))
(proclaim (progn (incf i) '(optimize)))
i)
1)
;;; Error cases
(deftest proclaim.error.1
......
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