[mcclim-cvs] CVS mcclim/Drei

[thenriksen]

Update of /project/mcclim/cvsroot/mcclim/Drei
In directory clnet:/tmp/cvs-serv13469/Drei

Modified Files:
	lisp-syntax.lisp lr-syntax.lisp packages.lisp 
Log Message:
make-syntax-highlighting-rules -> define-syntax-highlighting-rules, as the former sounds stupid.


--- /project/mcclim/cvsroot/mcclim/Drei/lisp-syntax.lisp	2008/01/07 15:32:15	1.54
+++ /project/mcclim/cvsroot/mcclim/Drei/lisp-syntax.lisp	2008/01/07 22:05:22	1.55
@@ -1835,7 +1835,7 @@
       (macro-drawing-options (make-drawing-options :face (make-face :ink +purple+)))
       (bound-drawing-options (make-drawing-options :face (make-face :ink +darkgoldenrod+)))
       (highlighted-parenthesis-options (make-drawing-options :face (make-face :style (make-text-style nil :bold nil)))))
-  (make-syntax-highlighting-rules emacs-style-highlighting
+  (define-syntax-highlighting-rules emacs-style-highlighting
     (error-lexeme (:face :ink +red+))
     (string-form (:face :ink +rosy-brown+
                         :style (make-text-style nil :italic nil)))
@@ -1858,7 +1858,7 @@
                                            +default-drawing-options+))))))
 
 (let ((macro-drawing-options (make-drawing-options :face (make-face :style (make-text-style nil :bold nil)))))
-  (make-syntax-highlighting-rules retro-highlighting
+  (define-syntax-highlighting-rules retro-highlighting
     (error-symbol (:face :ink +red+))
     (string-form (:face :style (make-text-style nil :italic nil)))
     (comment (:face :style (make-text-style nil nil nil)
--- /project/mcclim/cvsroot/mcclim/Drei/lr-syntax.lisp	2008/01/07 22:01:58	1.11
+++ /project/mcclim/cvsroot/mcclim/Drei/lr-syntax.lisp	2008/01/07 22:05:22	1.12
@@ -412,7 +412,7 @@
 ;;;    XXXXX                  XXXXX
 ;;;     XXX                    XXX
 
-(defmacro make-syntax-highlighting-rules (name &body rules)
+(defmacro define-syntax-highlighting-rules (name &body rules)
   "Define a set of rules for highlighting a syntax. `Name', which
 must be a symbol, is the name of this set of rules, and will be
 bound to a function implementing the rules. `Rules' is a list of
@@ -456,7 +456,7 @@
                            (defmethod ,name (view (parser-symbol ,parser-symbol))
                              (funcall rule view parser-symbol)))))))
 
-(make-syntax-highlighting-rules default-syntax-highlighting)
+(define-syntax-highlighting-rules default-syntax-highlighting)
 
 (defgeneric syntax-highlighting-rules (syntax)
   (:documentation "Return the drawing options that should be used
--- /project/mcclim/cvsroot/mcclim/Drei/packages.lisp	2008/01/07 22:01:58	1.34
+++ /project/mcclim/cvsroot/mcclim/Drei/packages.lisp	2008/01/07 22:05:22	1.35
@@ -507,7 +507,7 @@
 	   #:action #:new-state #:done
 	   #:reduce-fixed-number #:reduce-until-type #:reduce-all 
 	   #:error-state #:error-reduce-state
-           #:make-syntax-highlighting-rules
+           #:define-syntax-highlighting-rules
            #:syntax-highlighting-rules)
   (:documentation "Underlying LR parsing functionality."))