Commit 90b9e0f6 authored by pfdietz's avatar pfdietz
Browse files

More free declaration scope tests

parent ed213567
......@@ -250,6 +250,28 @@
((lambda (&key &allow-other-keys)) :a 1 :b 2 :c 3)
nil)
;;; Free declaration scope
(deftest lambda.52
(let ((x :bad))
(declare (special x))
(let ((x :good))
((lambda (&optional (y x)) (declare (special x)) y))))
:good)
(deftest lambda.53
(let ((x :bad))
(declare (special x))
(let ((x :good))
((lambda (&key (y x)) (declare (special x)) y))))
:good)
(deftest lambda.54
(let ((x :bad))
(declare (special x))
(let ((x :good))
((lambda (&aux (y x)) (declare (special x)) y))))
:good)
;;; Tests of lambda as a macro
......
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