cl: Tidy up parser slightly.

[fringe] / cl-fringe.lisp

diff --git a/cl-fringe.lisp b/cl-fringe.lisp
index 3716f3b..a2ddf85 100644 (file)
--- a/cl-fringe.lisp
+++ b/cl-fringe.lisp
@@ -63,9 +63,7 @@
 
   (let ((len (length string)))
     (labels ((parse (i)
-              (cond ((>= i len)
-                     (values nil i))
-                    ((char= (char string i) #\()
+              (cond ((and (< i len) (char= (char string i) #\())
                      (multiple-value-bind (left i) (parse (1+ i))
                        (unless (< i len) (error "no data"))
                        (let ((data (char string i)))