From c7507589855358073282802384566ac2c293db77 Mon Sep 17 00:00:00 2001 Message-Id: From: Mark Wooding Date: Thu, 10 May 2007 20:25:30 +0000 Subject: [PATCH] Got rid of warning Organization: Straylight/Edgeware From: espen --- glib/gobject.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/glib/gobject.lisp b/glib/gobject.lisp index 424de58..50fcefd 100644 --- a/glib/gobject.lisp +++ b/glib/gobject.lisp @@ -20,7 +20,7 @@ ;; TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE ;; SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. -;; $Id: gobject.lisp,v 1.55 2007/02/19 13:49:15 espen Exp $ +;; $Id: gobject.lisp,v 1.56 2007/05/10 20:25:30 espen Exp $ (in-package "GLIB") @@ -154,7 +154,7 @@ (defmethod compute-slot-reader-function ((slotd effective-property-slot-definiti (defmethod compute-slot-writer-function :around ((slotd effective-property-slot-definition)) (if (construct-only-property-p slotd) #'(lambda (value object) - (declare (ignore value object)) + (declare (ignore value)) (unless *ignore-setting-construct-only-property* (error 'unwritable-slot :name (slot-definition-name slotd) :instance object))) (call-next-method))) -- [mdw]