From 0f42ae0e6d61e344e10604bc9b82f033fcdb91c9 Mon Sep 17 00:00:00 2001 From: colin Date: Tue, 8 Aug 2023 07:03:58 -0700 Subject: Added more documentation gen; deflangauge no longer uses defvar --- docgen.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'docgen.lisp') diff --git a/docgen.lisp b/docgen.lisp index cb43edc..49b0d34 100644 --- a/docgen.lisp +++ b/docgen.lisp @@ -4,7 +4,7 @@ (defun write-rule-doc (lhs pattern) (format *standard-output* "~15s ::= " lhs) - (write-pattern-doc pattern )) + (write-pattern-doc pattern)) (defun write-sequence-doc (args ) (loop :for (a . more) :on args @@ -36,7 +36,7 @@ (defun write-grammar-pattern-doc (grammar-name) (princ "{") (princ grammar-name) (princ "}")) -(defun write-pattern-doc (pattern ) +(defun write-pattern-doc (pattern) (cond ((nonterminal? pattern) (princ pattern)) ((atom pattern) -- cgit v1.2.3