diff --git a/ansi-tests/symbol-macrolet.lsp b/ansi-tests/symbol-macrolet.lsp index 417763a01cef435f4eb54339606d79ab9be9ef32..036e24ce77e722ce1e4c0f9c5c3126543eb86d87 100644 --- a/ansi-tests/symbol-macrolet.lsp +++ b/ansi-tests/symbol-macrolet.lsp @@ -46,9 +46,9 @@ a b c d e) (deftest symbol-macrolet.8 - (let ((x :bad)) + (let ((x :good)) (declare (special x)) - (let ((x :good)) + (let ((x :bad)) (symbol-macrolet () (declare (special x)) x))) :good) @@ -74,5 +74,3 @@ (signals-error (symbol-macrolet ((*pathnames* 19)) *pathnames*) program-error) t) - -