[climacs-cvs] CVS update: climacs/prolog-syntax.lisp - climacs-cvs@common-lisp.net - mailman3.common-lisp.net

4 Apr 2005

Update of /project/climacs/cvsroot/climacs
In directory common-lisp.net:/tmp/cvs-serv6433
Modified Files:
    prolog-syntax.lisp 
Log Message:
Just comment fixups
Date: Mon Apr  4 23:00:45 2005
Author: crhodes
Index: climacs/prolog-syntax.lisp
diff -u climacs/prolog-syntax.lisp:1.9 climacs/prolog-syntax.lisp:1.10

--- climacs/prolog-syntax.lisp:1.9	Mon Apr  4 21:09:49 2005
+++ climacs/prolog-syntax.lisp	Mon Apr  4 23:00:42 2005
@@ -452,11 +452,13 @@
   (([ :initarg :[ :accessor [)
    (] :initarg :] :accessor ])))
 (defmethod canonical-name ((thing empty-list))
+  ;; FIXME: this clashes with the canonical name for the atom '[]'
   "[]")
 (defclass curly-brackets (prolog-nonterminal)
   (({ :initarg :{ :accessor {)
    (} :initarg :} :accessor })))
 (defmethod canonical-name ((thing curly-brackets))
+  ;; FIXME: see comment in CANONICAL-NAME (EMPTY-LIST)
   "{}")
 (defmethod display-parse-tree ((entity atom) (syntax prolog-syntax) pane)
   (display-parse-tree (value entity) syntax pane))
@@ -857,8 +859,6 @@
    ;; incremental redisplay will Do The Right Thing (on the EQ
    ;; lexemes)
         (loop do (skip-inter-lexeme-objects lexer scan)
-	      ;; FIXME: are we allowed to mix DO and UNTIL like this?
-	      ;; I doubt it.
               until (end-of-buffer-p scan)
          until (mark<= bot (start-offset (lexeme lexer (1- valid-lex))))
          ;; FIXME: a further criterion is when scan matches the

    