X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~mdw/git/fringe/blobdiff_plain/4eee07acff4f1da272dd47765a6d12d47d0bf51a..d782cc40f017562d106f186120df185d9995bc69:/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 @@ (defun parse-tree (string)
 
   (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)))