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

27 Apr 2005

Update of /project/climacs/cvsroot/climacs
In directory common-lisp.net:/tmp/cvs-serv19847
Modified Files:
    cl-syntax.lisp 
Log Message:
cl-syntax
Date: Wed Apr 27 16:02:03 2005
Author: pfong
Index: climacs/cl-syntax.lisp
diff -u climacs/cl-syntax.lisp:1.10 climacs/cl-syntax.lisp:1.11

--- climacs/cl-syntax.lisp:1.10	Tue Apr 26 11:25:36 2005
+++ climacs/cl-syntax.lisp	Wed Apr 27 16:02:03 2005
@@ -157,7 +157,7 @@
      (display-parse-tree item syntax pane)))))
-;;;;;;;;;;;;;;;;;;;; token-items
+;;;;;;;;;;;;; token-items
(defclass empty-item (cl-entry) ())
@@ -207,7 +207,7 @@
 (define-list token-items empty-token-items nonempty-token-items token-item)
-;;;;;;;;;;;;;;;;;;string-items
+;;;;;;;;;;;;; string-items
(defclass string-item (cl-item) ())
@@ -275,7 +275,7 @@
     (display-parse-tree item syntax pane)))
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;balanced-comment
+;;;;;;;;;;;;; balanced-comment
(defclass balanced-comment (cl-entry)
   ((start-hex :initarg :start-hex)
@@ -298,8 +298,7 @@
       (display-parse-tree item syntax pane)
       (display-parse-tree end-hex syntax pane))))
-
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;string
+;;;;;;;;;;;;; string
(defclass cl-string (cl-entry)
   ((string-start :initarg :string-start)
@@ -519,7 +518,7 @@
    			(item default-item (and (string-equal
    						 (item-head item) #\p)
    						(= (end-offset start)
-							   (start-offset header)))))
+							   (start-offset item)))))
    		    :start start :item item))
(defmethod display-parse-tree ((entity pathname-expr) (syntax cl-syntax) pane)
@@ -528,7 +527,7 @@
     (display-parse-tree item syntax pane)))
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;characters
+;;;;;;;;;;;;; characters
(defclass char-item (cl-entry)
   ((start :initarg :start)
@@ -561,7 +560,7 @@
       (display-parse-tree item syntax pane))))
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;list-expression
+;;;;;;;;;;;;; list-expression
(defclass list-expr (cl-entry)
   ((start :initarg :start)
@@ -582,7 +581,7 @@
       (display-parse-tree end syntax pane))))
-;;;;;;;;;;;;;;;;;;;;;;; read-time-attr
+;;;;;;;;;;;;; read-time-attr
(defclass read-time-attr (cl-entry)
   ((read-car :initarg :read-car)
@@ -654,7 +653,7 @@
    			   :read-car read-car :read-expr read-expr))
-;;;;;;;;;;;;;;;;;;;;;;;;;; read-time-conditional
+;;;;;;;;;;;;; read-time-conditional
(defclass read-time-conditional (cl-entry)
   ((start :initarg :start)
@@ -680,6 +679,7 @@
    				     (expr cl-terminal (/= (end-offset test) (start-offset expr))))
    				 :start start :test test :expr expr))
+
 ;;;;;;;;;;;;; read-time-conditional-minus
(defclass read-time-conditional-minus (read-time-conditional) ())
@@ -689,7 +689,8 @@
    				      (expr cl-terminal (/= (end-offset test) (start-offset expr))))
    				  :start start :test test :expr expr))
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;function-expression
+
+;;;;;;;;;;;;; function-expression
(defclass fun-expr (cl-entry) 
   ((start :initarg :start)
@@ -743,9 +744,9 @@
       (display-parse-tree item syntax pane))))
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;Quote expr
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;Quoted expr
-(defclass quoted-expr  (cl-entry)
+(defclass quoted-expr (cl-entry)
   ((start :initarg :start)
    (item :initarg :item)))
@@ -844,6 +845,8 @@
 (defmethod display-parse-tree ((entity cl-terminal) (syntax cl-syntax) pane)
   (with-slots (item) entity
       (display-parse-tree item syntax pane)))
+
+
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defmethod initialize-instance :after ((syntax cl-syntax) &rest args)
@@ -863,7 +866,6 @@
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;; update syntax
-
(defmethod update-syntax-for-display (buffer (syntax cl-syntax) top bot)
   (with-slots (parser lexer valid-parse) syntax

    