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