Skip to content
Snippets Groups Projects
Commit d90ff5ac authored by pfdietz's avatar pfdietz
Browse files

Commented out tests of LET and LET* that have situations on which the standard...

Commented out tests of LET and LET* that have situations on which the standard is unclear (CMUCL does these differently.)
parent 925f3c28
No related branches found
No related tags found
No related merge requests found
...@@ -48,17 +48,17 @@ ...@@ -48,17 +48,17 @@
x) x)
(a b c)) (a b c))
(deftest let.8 ;;;(deftest let.8
(let ((x 0) (x 1)) x) ;;; (let ((x 0) (x 1)) x)
1) ;;; 1)
(deftest let.9 (deftest let.9
(let (x y z) (values x y z)) (let (x y z) (values x y z))
nil nil nil) nil nil nil)
(deftest let.10 ;;; (deftest let.10
(let ((x 1) x) x) ;;; (let ((x 1) x) x)
nil) ;;; nil)
(deftest let.11 (deftest let.11
(let ((x 1)) (let ((x 1))
...@@ -69,23 +69,23 @@ ...@@ -69,23 +69,23 @@
x)) x))
(1 nil 1)) (1 nil 1))
(deftest let.12 ;;; (deftest let.12
(let ((x 0)) ;;; (let ((x 0))
(values ;;; (values
(let ((x 20) ;;; (let ((x 20)
(x (1+ x))) ;;; (x (1+ x)))
x) ;;; x)
x)) ;;; x))
1 0) ;;; 1 0)
(deftest let.13 ;;; (deftest let.13
(flet ((%f () (declare (special x)) ;;; (flet ((%f () (declare (special x))
(if (boundp 'x) x 10))) ;;; (if (boundp 'x) x 10)))
(let ((x 1) ;;; (let ((x 1)
(x (1+ (%f)))) ;;; (x (1+ (%f))))
(declare (special x)) ;;; (declare (special x))
x)) ;;; x))
11) ;;; 11)
;;; Tests for LET* ;;; Tests for LET*
...@@ -155,10 +155,10 @@ ...@@ -155,10 +155,10 @@
(values x y z)) (values x y z))
3 2 5) 3 2 5)
(deftest let*.13 ;;; (deftest let*.13
(flet ((%f () (declare (special x)) x)) ;;; (flet ((%f () (declare (special x)) x))
(let* ((x 1) ;;; (let* ((x 1)
(x (1+ (%f)))) ;;; (x (1+ (%f))))
(declare (special x)) ;;; (declare (special x))
x)) ;;; x))
2) ;;; 2)
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment