From d90ff5acd9f45aa50efd94f1808b04885f7e1880 Mon Sep 17 00:00:00 2001
From: pfdietz <pfdietz@localhost>
Date: Mon, 14 Oct 2002 12:41:55 +0000
Subject: [PATCH] Commented out tests of LET and LET* that have situations on
 which the standard is unclear (CMUCL does these differently.)

---
 ansi-tests/let.lsp | 60 +++++++++++++++++++++++-----------------------
 1 file changed, 30 insertions(+), 30 deletions(-)

diff --git a/ansi-tests/let.lsp b/ansi-tests/let.lsp
index 4c3eaafa..a8166ee4 100644
--- a/ansi-tests/let.lsp
+++ b/ansi-tests/let.lsp
@@ -48,17 +48,17 @@
     x)
   (a b c))
 
-(deftest let.8
-  (let ((x 0) (x 1)) x)
-  1)
+;;;(deftest let.8
+;;;  (let ((x 0) (x 1)) x)
+;;;  1)
 
 (deftest let.9
   (let (x y z) (values x y z))
   nil nil nil)
 
-(deftest let.10
-  (let ((x 1) x) x)
-  nil)
+;;; (deftest let.10
+;;;  (let ((x 1) x) x)
+;;;  nil)
 
 (deftest let.11
   (let ((x 1))
@@ -69,23 +69,23 @@
 	  x))
   (1 nil 1))
 
-(deftest let.12
-  (let ((x 0))
-    (values
-     (let ((x 20)
-	   (x (1+ x)))
-       x)
-     x))
-  1 0)
-
-(deftest let.13
-  (flet ((%f () (declare (special x))
-	     (if (boundp 'x) x 10)))
-    (let ((x 1)
-	  (x (1+ (%f))))
-      (declare (special x))
-      x))
-  11)
+;;; (deftest let.12
+;;;  (let ((x 0))
+;;;    (values
+;;;     (let ((x 20)
+;;;	   (x (1+ x)))
+;;;       x)
+;;;     x))
+;;;   1 0)
+
+;;; (deftest let.13
+;;;  (flet ((%f () (declare (special x))
+;;;	     (if (boundp 'x) x 10)))
+;;;    (let ((x 1)
+;;;	  (x (1+ (%f))))
+;;;      (declare (special x))
+;;;      x))
+;;;  11)
 
 ;;; Tests for LET*
 
@@ -155,10 +155,10 @@
     (values x y z))
   3 2 5)
 
-(deftest let*.13
-  (flet ((%f () (declare (special x)) x))
-    (let* ((x 1)
-	   (x (1+ (%f))))
-      (declare (special x))
-      x))
-  2)
+;;; (deftest let*.13
+;;;  (flet ((%f () (declare (special x)) x))
+;;;    (let* ((x 1)
+;;;	   (x (1+ (%f))))
+;;;      (declare (special x))
+;;;      x))
+;;;  2)
-- 
GitLab