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 ])))