[climacs-cvs] CVS climacs

[thenriksen]

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