Index: cl-syntax.lisp
===================================================================
RCS file: /project/climacs/cvsroot/climacs/cl-syntax.lisp,v
retrieving revision 1.12
diff -u -r1.12 cl-syntax.lisp
--- cl-syntax.lisp	29 Apr 2005 20:10:32 -0000	1.12
+++ cl-syntax.lisp	8 May 2005 21:35:08 -0000
@@ -588,8 +588,14 @@
    (items :initarg :items)
    (end :initarg :end)))
 
+(define-list list-items empty-list-items nonempty-list-items cl-terminal)
+
+(add-cl-rule (list-expr -> ((start paren-open)
+			    (end paren-close))
+			:start start :items nil :end end))
+
 (add-cl-rule (list-expr -> ((start paren-open)
-			    (items cl-terminals)
+			    (items nonempty-list-items)
 			    (end paren-close))
 			:start start :items items :end end))
 
@@ -597,7 +603,8 @@
   (with-slots (start items end) entity
     (with-text-face (pane :bold)
       (display-parse-tree start syntax pane))
-      (display-parse-tree items syntax pane)
+    (when items
+      (display-parse-tree items syntax pane))
     (with-text-face (pane :bold)
       (display-parse-tree end syntax pane))))
 
