[climacs-cvs] CVS update: climacs/prolog-syntax.lisp

[Christophe Rhodes]

Update of /project/climacs/cvsroot/climacs
In directory common-lisp.net:/tmp/cvs-serv8369

Modified Files:
	prolog-syntax.lisp 
Log Message:
an alpha numeric char in ISO prolog is either alphanumericp or eql to #\_

Date: Sun Mar 27 18:58:20 2005
Author: crhodes

Index: climacs/prolog-syntax.lisp
diff -u climacs/prolog-syntax.lisp:1.3 climacs/prolog-syntax.lisp:1.4
--- climacs/prolog-syntax.lisp:1.3	Sun Mar 27 18:22:45 2005
+++ climacs/prolog-syntax.lisp	Sun Mar 27 18:58:20 2005
@@ -180,7 +180,9 @@
 	       (t (fo) (return (make-instance 'error-lexeme))))
 	   IDENTIFIER
 	     (loop until (end-of-buffer-p scan)
-		while (alphanumericp (object-after scan))
+		while (let ((object (object-after scan)))
+                        (or (alphanumericp object)
+                            (eql object #\_)))
 		do (fo))
 	     (return (make-instance 'identifier-lexeme))
            LINE-COMMENT
@@ -239,12 +241,16 @@
                         (return (make-instance 'quoted-lexeme))))
 	   VARIABLE
 	     (if (or (end-of-buffer-p scan)
-		     (not (alphanumericp (object-after scan))))
+                     (let ((object (object-after scan)))
+                       (not (or (alphanumericp object)
+                                (eql object #\_)))))
 		 (return (make-instance 'anonymous-lexeme))
 		 (go NAMED-VARIABLE))
 	   NAMED-VARIABLE
 	     (loop until (end-of-buffer-p scan)
-		while (alphanumericp (object-after scan))
+		while (let ((object (object-after scan)))
+                        (or (alphanumericp object)
+                            (eql object #\_)))
 		do (fo))
 	     (return (make-instance 'named-lexeme))
 	   NUMBER