From fa50f612a37feec52626d98a00ab2e7fbee30a82 Mon Sep 17 00:00:00 2001
From: pfdietz <pfdietz@localhost>
Date: Sat, 4 Jun 2005 18:00:00 +0000
Subject: [PATCH] Add arg-evaled-only-once test

---
 ansi-tests/proclaim.lsp | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/ansi-tests/proclaim.lsp b/ansi-tests/proclaim.lsp
index 785ea8e2..9b46d0e4 100644
--- a/ansi-tests/proclaim.lsp
+++ b/ansi-tests/proclaim.lsp
@@ -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
-- 
GitLab