Commit bb47dcce authored by pfdietz's avatar pfdietz

Two tests that free declarations do not affect the bindings of the enclosing let/let* form

parent a854c939
......@@ -119,6 +119,16 @@
(return-from done 'good)))
good)
;;; Check that free declarations do not apply to the init forms
(deftest let.17
(let ((x :bad))
(declare (special x))
(let ((x :good)) ;; lexical binding
(let ((y x))
(declare (special x)) ;; free declaration
y)))
:good)
;;; Tests for LET*
......@@ -227,3 +237,15 @@
10
(return-from done 'good)))
good)
;;; Check that free declarations do not apply to the init forms
(deftest let*.17
(let ((x :bad))
(declare (special x))
(let ((x :good)) ;; lexical binding
(let* ((y x))
(declare (special x)) ;; free declaration
y)))
:good)
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment