From 8f266445bde8ec50b40bcbd8ecf80c517c681570 Mon Sep 17 00:00:00 2001 From: pfdietz <pfdietz@localhost> Date: Fri, 27 May 2005 03:18:05 +0000 Subject: [PATCH] Fixed bug in deftype.15 --- ansi-tests/deftype.lsp | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/ansi-tests/deftype.lsp b/ansi-tests/deftype.lsp index 71abdd0a..d3b439f4 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)) -- GitLab