git » jacl.git » commit 14a29e5

diff --git a/jacl-tests.lisp b/jacl-tests.lisp
index f660b67..a9ccf3e 100644
--- a/jacl-tests.lisp
+++ b/jacl-tests.lisp
@@ -53,6 +53,13 @@
     (let ((sym '|Alan|))
       (assert= (\. sym |name|) @"Alan"))))
 
+(deftest "Dynamic Binding"
+  ;; TODO (declare special)
+  (defvar *dynvar*)
+  (let ((doit (lambda () *dynvar*)))
+    (let ((*foo* 99))
+      (assert= (funcall doit) 99))))
+
 (in-module "Lambda")
 
 (deftest "Lambda Expressions"