Minor style tweak
authorD Herring <dherring@at.tentpost.dot.com>
Sun, 11 Mar 2007 00:28:35 +0000 (19:28 -0500)
committerD Herring <dherring@at.tentpost.dot.com>
Sun, 11 Mar 2007 00:28:35 +0000 (19:28 -0500)
parser.lisp

index 27f2e15..9729aa4 100644 (file)
@@ -27,9 +27,8 @@
   "Does 'string' begin with 'prefix'?"
   (let ((end (+ start (length prefix)))
         (l (length string)))
-    (if (> end l)
-        nil
-        (string= prefix string :start2 start :end2 end))))
+    (unless (> end l)
+      (string= prefix string :start2 start :end2 end))))
 
 (defmacro grammar-char (c)
   "match = 'c'"