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

[Christophe Rhodes]

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

Modified Files:
	prolog-syntax.lisp 
Log Message:
implement CANONICAL-NAME for commas (fixes crash on "1,2")

Date: Wed Apr  6 11:30:19 2005
Author: crhodes

Index: climacs/prolog-syntax.lisp
diff -u climacs/prolog-syntax.lisp:1.11 climacs/prolog-syntax.lisp:1.12
--- climacs/prolog-syntax.lisp:1.11	Tue Apr  5 22:28:29 2005
+++ climacs/prolog-syntax.lisp	Wed Apr  6 11:30:19 2005
@@ -448,6 +448,8 @@
 (defmethod canonical-name ((thing name))
   ;; FIXME: should canonize
   (lexeme-string (syntactic-lexeme thing)))
+(defmethod canonical-name ((thing comma))
+  ",")
 (defclass empty-list (prolog-nonterminal)
   (([ :initarg :[ :accessor [)
    (] :initarg :] :accessor ])))