[climacs-cvs] CVS update: climacs/buffer.lisp climacs/gui.lisp

[Christophe Rhodes]

Update of /project/climacs/cvsroot/climacs
In directory common-lisp.net:/tmp/cvs-serv19641

Modified Files:
	buffer.lisp gui.lisp 
Log Message:
Restore the (in-package ...) and the copyright information to 
buffer.lisp

The buffer accessor is FILEPATH, not FILENAME

Date: Tue May 10 18:28:54 2005
Author: crhodes

Index: climacs/buffer.lisp
diff -u climacs/buffer.lisp:1.30 climacs/buffer.lisp:1.31
--- climacs/buffer.lisp:1.30	Mon May  9 16:13:44 2005
+++ climacs/buffer.lisp	Tue May 10 18:28:53 2005
@@ -1,3 +1,35 @@
+;;; -*- Mode: Lisp; Package: CLIMACS-BUFFER -*-
+
+;;;  (c) copyright 2004-2005 by
+;;;           Robert Strandh (strandh at labri.fr)
+;;;  (c) copyright 2004-2005 by
+;;;           Elliott Johnson (ejohnson at fasl.info)
+;;;  (c) copyright 2005 by
+;;;           Matthieu Villeneuve (matthieu.villeneuve at free.fr)
+
+;;; This library is free software; you can redistribute it and/or
+;;; modify it under the terms of the GNU Library General Public
+;;; License as published by the Free Software Foundation; either
+;;; version 2 of the License, or (at your option) any later version.
+;;;
+;;; This library is distributed in the hope that it will be useful,
+;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+;;; Library General Public License for more details.
+;;;
+;;; You should have received a copy of the GNU Library General Public
+;;; License along with this library; if not, write to the
+;;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
+;;; Boston, MA  02111-1307  USA.
+
+;;; A not-so-stupid implementation of the buffer protocol.  This
+;;; implementation serves two purposes: First, so that higher-level
+;;; functionality can be built on top of a working implementation of
+;;; the buffer protocol, and second, to use as a comparison for
+;;; testing a new, better implementation of the buffer protocol.
+
+(in-package :climacs-buffer)
+
 (defclass buffer () ()
   (:documentation "A base class for all buffers. A buffer conceptually contains a
 large array of arbitrary objects.  Lines of objects are separated by


Index: climacs/gui.lisp
diff -u climacs/gui.lisp:1.137 climacs/gui.lisp:1.138
--- climacs/gui.lisp:1.137	Mon May  9 16:47:45 2005
+++ climacs/gui.lisp	Tue May 10 18:28:53 2005
@@ -742,14 +742,14 @@
 (define-named-command (com-quit) ()
   (loop for buffer in (buffers *application-frame*)
 	when (and (needs-saving buffer)
-		  (filename buffer)
+		  (filepath buffer)
 		  (handler-case (accept 'boolean
 					:prompt (format nil "Save buffer: ~a ?" (name buffer)))
 		    (error () (progn (beep)
 				     (display-message "Invalid answer")
 				     (return-from com-quit nil)))))
 	  do (save-buffer buffer))
-  (when (or (notany #'(lambda (buffer) (and (needs-saving buffer) (filename buffer)))
+  (when (or (notany #'(lambda (buffer) (and (needs-saving buffer) (filepath buffer)))
 		    (buffers *application-frame*))
 	    (handler-case (accept 'boolean :prompt "Modified buffers exist.  Quit anyway?")
 	      (error () (progn (beep)