cvs diff: Diffing .
Index: buffer.lisp
===================================================================
RCS file: /project/gsharp/cvsroot/gsharp/buffer.lisp,v
retrieving revision 1.38
diff -u -r1.38 buffer.lisp
--- buffer.lisp	19 Jun 2006 17:40:34 -0000	1.38
+++ buffer.lisp	8 Sep 2006 17:28:51 -0000
@@ -1253,7 +1253,7 @@
 	  (*readtable* readtable))
       (read stream))))
 
-(defmethod save-buffer-to-stream ((buffer buffer) stream)
+(defmethod frame-save-buffer-to-stream (application-frame (buffer buffer) stream)
   (let ((*print-circle* t)
 	(*package* (find-package :keyword)))
     ;;    (format stream "G#V3~%")
Index: gui.lisp
===================================================================
RCS file: /project/gsharp/cvsroot/gsharp/gui.lisp,v
retrieving revision 1.71
diff -u -r1.71 gui.lisp
--- gui.lisp	2 Aug 2006 02:14:44 -0000	1.71
+++ gui.lisp	8 Sep 2006 17:28:52 -0000
@@ -122,7 +122,7 @@
 			     (windows application-frame))
 		     :test #'eq))
 
-(defmethod current-buffer ((application-frame gsharp))
+(defmethod frame-current-buffer ((application-frame gsharp))
   (buffer (view (car (windows application-frame)))))
 
 (defun current-cursor ()
@@ -300,7 +300,7 @@
     (setf (input-state *application-frame*) input-state
 	  (staves (car (layers (car (segments buffer))))) (list staff))))
 
-(defmethod find-file :around (filepath (application-frame gsharp))
+(defmethod frame-find-file :around ((application-frame gsharp) filepath)
   (declare (ignore filepath))
   (let* ((buffer (call-next-method))
     	 (input-state (make-input-state))
@@ -1299,8 +1299,8 @@
 ;;;
 ;;; I/O
 
-(defmethod make-buffer-from-stream (stream (frame gsharp))
+(defmethod frame-make-buffer-from-stream ((frame gsharp) stream)
   (read-buffer-from-stream stream))
 
-(defmethod make-new-buffer ((frame gsharp))
+(defmethod frame-make-new-buffer ((frame gsharp) &key &allow-other-keys)
   (make-instance 'buffer))
\ No newline at end of file
