--- esa-io.lisp	20 Aug 2006 12:43:40 +0200	1.4
+++ esa-io.lisp	27 Aug 2006 17:35:41 +0200	
@@ -23,6 +23,9 @@
 (defgeneric buffers (application-frame)
   (:documentation "Return a list of all the buffers of the application"))
 
+(defgeneric (setf buffers) (newval application-frame)
+  (:documentation "Set the list of all the buffers of the application"))
+
 (defgeneric current-buffer (application-frame)
   (:documentation "Return the current buffer of APPLICATION-FRAME"))