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

[Pascal Fong Kye]

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