Update of /project/mcclim/cvsroot/mcclim/Drei In directory clnet:/tmp/cvs-serv31269/Drei
Modified Files: lisp-syntax.lisp Log Message: Handle some more incomplete lexemes at end-of-buffer in Lisp syntax.
--- /project/mcclim/cvsroot/mcclim/Drei/lisp-syntax.lisp 2008/01/30 23:24:05 1.72 +++ /project/mcclim/cvsroot/mcclim/Drei/lisp-syntax.lisp 2008/01/31 18:44:36 1.73 @@ -403,8 +403,9 @@ ((#\O #\o) 8) ((#\X #\x) 16)))) (fo) - (when (char= (object-after scan) - #-) + (when (and (not (end-of-buffer-p scan)) + (char= (object-after scan) + #-)) (fo)) (loop until (end-of-buffer-p scan) while (digit-char-p (object-after scan) radix)