From d3d35229e707d43684adf0be3412e1332691e065 Mon Sep 17 00:00:00 2001 From: Douglas Katzman Date: Tue, 8 Aug 2017 16:58:51 -0400 Subject: [PATCH] Fix warning under CLISP host --- tools-for-build/ucd.lisp | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/tools-for-build/ucd.lisp b/tools-for-build/ucd.lisp index fddee508d..2d3405283 100644 --- a/tools-for-build/ucd.lisp +++ b/tools-for-build/ucd.lisp @@ -632,11 +632,10 @@ Length should be adjusted when the standard changes.") (defun parse-property (stream &optional name) (let ((result (make-array 1 :fill-pointer 0 :adjustable t))) - ;; FIXME: something in this loop provokes a warning from CLISP (loop for line = (read-line stream nil nil) + for entry = (subseq line 0 (position #\# line)) ;; Deal with Blah=Blah in DerivedNormalizationProps.txt while (and line (not (position #\= (substitute #\Space #\= line :count 1)))) - for entry = (subseq line 0 (position #\# line)) when (and entry (string/= entry "")) do (destructuring-bind (start end) -- 2.11.4.GIT