diff --git a/ansi-tests/deftype.lsp b/ansi-tests/deftype.lsp index 71abdd0a8cbb52c3f77fa3602a88e48fa0b00f68..d3b439f456afd847b2186363309979b703ed8dfa 100644 --- a/ansi-tests/deftype.lsp +++ b/ansi-tests/deftype.lsp @@ -168,10 +168,10 @@ (deftest deftype.15 (let* ((sym (gensym)) - (a 1) - (form `(deftype ,sym (&optional (x a)) - (declare (special a)) - `(integer 0 ,x)))) + (form `(let ((a 1)) + (deftype ,sym (&optional (x a)) + (declare (special a)) + `(integer 0 ,x))))) (values (eqlt (eval form) sym) (let ((a 2))