[mcclim-cvs] CVS mcclim/Drei

[thenriksen]

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)