X-Git-Url: https://git.distorted.org.uk/~mdw/fringe/blobdiff_plain/4eee07acff4f1da272dd47765a6d12d47d0bf51a..6bce693f147dfca5affdeb04f93a41b7ebd76bb9:/cl-fringe.lisp

diff --git a/cl-fringe.lisp b/cl-fringe.lisp
index 3716f3b..a2ddf85 100644
--- 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)))