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