A couple fixes
authorD Herring <dherring@at.tentpost.dot.com>
Tue, 13 Mar 2007 04:12:07 +0000 (00:12 -0400)
committerD Herring <dherring@at.tentpost.dot.com>
Tue, 13 Mar 2007 04:12:07 +0000 (00:12 -0400)
examples/ISO-14977-8.1.lisp
parser.lisp

index cf69c8f..12d1fae 100644 (file)
@@ -29,7 +29,7 @@
   (grammar-string ","))
 
 (grammar-rule defining-symbol
-  (grammar-string ";"))
+  (grammar-string "="))
 
 (grammar-rule definition-separator-symbol
   (grammar-or (grammar-string "|")
 
 ;; Skipping a couple other whitespace rules...
 
+;;;
+;;; Removal of unnecessary whitespace.
+;;;
+
 (grammar-rule terminal-character
   (grammar-or
    letter
index baf5a7d..1709071 100644 (file)
                (b2 (if t2
                        (cdr b1)
                        b1)))
-          `(grammar-rule-helper ,name ,f2 ,(cons `(format t ,(format nil "~A:~A" "~5@A" name) start)
+          `(grammar-rule-helper ,name ,f2 ,(cons `(format t ,(format nil "~A:~A~A" "~5@A" name "~%") start)
                                                  b2))))
       `(grammar-rule-helper ,name nil ,body)))