Update of /project/climacs/cvsroot/climacs
In directory clnet:/tmp/cvs-serv15442
Modified Files:
java-syntax.lisp c-syntax.lisp
Log Message:
Removed unnecessary defgenerics.
--- /project/climacs/cvsroot/climacs/java-syntax.lisp 2007/05/06 11:08:56 1.3
+++ /project/climacs/cvsroot/climacs/java-syntax.lisp 2007/06/04 22:34:44 1.4
@@ -1120,7 +1120,7 @@
(match right-brace-lexeme))
t)
-(defmethod backward-one-expression (mark (syntax java-syntax))
+(defmethod backward-one-expression ((mark mark) (syntax java-syntax))
(let ((tlv (top-level-vector syntax)))
(multiple-value-bind (form count)
(top-level-form-before-in-vector tlv (offset mark) t)
@@ -1141,7 +1141,7 @@
(t (return nil))))
(setf (offset mark) (start-offset form)))))))
-(defmethod forward-one-expression (mark (syntax java-syntax))
+(defmethod forward-one-expression ((mark mark) (syntax java-syntax))
(let ((tlv (top-level-vector syntax)))
(multiple-value-bind (form count)
(top-level-form-after-in-vector tlv (offset mark) t)
@@ -1162,10 +1162,6 @@
(t (return nil))))
(setf (offset mark) (end-offset form)))))))
-(defgeneric forward-one-list (mark syntax)
- (:documentation "Move `mark' forward by one list.
-Return T if successful, or NIL if the buffer limit was reached."))
-
(defmethod forward-one-list (mark (syntax java-syntax))
(let ((tlv (top-level-vector syntax)))
(multiple-value-bind (form count)
@@ -1188,10 +1184,6 @@
(t (return nil)))))
finally (return nil))))))
-(defgeneric backward-one-list (mark syntax)
- (:documentation "Move `mark' backward by one list. Return T if
-successful, or NIL if the buffer limit was reached."))
-
(defmethod backward-one-list (mark (syntax java-syntax))
(let ((tlv (top-level-vector syntax)))
(multiple-value-bind (form count)
--- /project/climacs/cvsroot/climacs/c-syntax.lisp 2007/05/08 10:23:09 1.3
+++ /project/climacs/cvsroot/climacs/c-syntax.lisp 2007/06/04 22:34:45 1.4
@@ -1187,11 +1187,7 @@
(t (return nil))))
(setf (offset mark) (end-offset form)))))))
-(defgeneric forward-one-list (mark syntax)
- (:documentation "Move `mark' forward by one list.
-Return T if successful, or NIL if the buffer limit was reached."))
-
-(defmethod forward-one-list (mark (syntax c-syntax))
+(defmethod forward-one-list ((mark mark) (syntax c-syntax))
(let ((tlv (top-level-vector syntax)))
(multiple-value-bind (form count)
(top-level-form-after-in-vector tlv (offset mark))
@@ -1213,11 +1209,7 @@
(t (return nil)))))
finally (return nil))))))
-(defgeneric backward-one-list (mark syntax)
- (:documentation "Move `mark' backward by one list. Return T if
-successful, or NIL if the buffer limit was reached."))
-
-(defmethod backward-one-list (mark (syntax c-syntax))
+(defmethod backward-one-list ((mark mark) (syntax c-syntax))
(let ((tlv (top-level-vector syntax)))
(multiple-value-bind (form count)
(top-level-form-before-in-vector tlv (offset mark))
