Skip to content
Snippets Groups Projects
Commit fa50f612 authored by pfdietz's avatar pfdietz
Browse files

Add arg-evaled-only-once test

parent 8744f0c3
No related branches found
No related tags found
No related merge requests found
...@@ -19,6 +19,12 @@ ...@@ -19,6 +19,12 @@
nil) nil)
nil) nil)
(deftest proclaim.3
(let ((i 0))
(proclaim (progn (incf i) '(optimize)))
i)
1)
;;; Error cases ;;; Error cases
(deftest proclaim.error.1 (deftest proclaim.error.1
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment