diff --git a/ansi-tests/proclaim.lsp b/ansi-tests/proclaim.lsp index 785ea8e2cdacaed7644d3f24524f96f4c343cb1e..9b46d0e429ec0ac6416858d22ac0c87040bccd51 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