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))