git » jacl.git » commit 5df3cfc

diff --git a/jacl-tests.lisp b/jacl-tests.lisp
index df3b329..661021c 100644
--- a/jacl-tests.lisp
+++ b/jacl-tests.lisp
@@ -33,6 +33,17 @@
   (let ((sym nil))
     (setq sym (await (read1 @"somesym ")))
     (assert= (\. sym |name|) @"SOMESYM" "simple symbol name")
-    (assert= (\. sym |packageName|) @"COMMON-LISP-USER" "simple symbol package")))
+    (assert= (\. sym |packageName|) @"COMMON-LISP-USER" "simple symbol package")
+
+    (setq sym (await (read1 @"|Alan| ")))
+    (assert= (\. sym |name|) @"Alan" "simple symbol name")
+    ))
+
+(let ()
+  1
+  2
+  3
+  ; TODO fix comments that appear before a closing paren in list syntax
+  )
 
 (\. @|QUnit| (|start|))