From 81594ec43a7a4ce2021f6c0f385460d6bc6ac187 Mon Sep 17 00:00:00 2001 Message-Id: <81594ec43a7a4ce2021f6c0f385460d6bc6ac187.1714919023.git.mdw@distorted.org.uk> From: Mark Wooding Date: Sun, 20 Jan 2002 14:52:04 +0000 Subject: [PATCH] Fixed some compiler warnings Organization: Straylight/Edgeware From: espen --- glib/gboxed.lisp | 4 ++-- glib/gcallback.lisp | 4 +++- glib/pcl.lisp | 2 ++ glib/proxy.lisp | 27 +++++++++++++-------------- 4 files changed, 20 insertions(+), 17 deletions(-) diff --git a/glib/gboxed.lisp b/glib/gboxed.lisp index e510722..1da0bed 100644 --- a/glib/gboxed.lisp +++ b/glib/gboxed.lisp @@ -15,7 +15,7 @@ ;; License along with this library; if not, write to the Free Software ;; Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA -;; $Id: gboxed.lisp,v 1.7 2001-12-12 20:24:41 espen Exp $ +;; $Id: gboxed.lisp,v 1.8 2002-01-20 14:52:04 espen Exp $ (in-package "GLIB") @@ -88,7 +88,7 @@ (deftype-method translate-from-alien (deftype-method translate-to-alien gstring (type-spec string &optional weak-ref) - (declare (ignore type-spec weak-ref)) + (declare (ignore weak-ref)) `(let ((string ,string)) ;; Always copy strings to prevent seg fault due to GC (funcall diff --git a/glib/gcallback.lisp b/glib/gcallback.lisp index 12a34b6..e0d9e31 100644 --- a/glib/gcallback.lisp +++ b/glib/gcallback.lisp @@ -15,7 +15,7 @@ ;; License along with this library; if not, write to the Free Software ;; Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA -;; $Id: gcallback.lisp,v 1.4 2001-10-21 21:58:44 espen Exp $ +;; $Id: gcallback.lisp,v 1.5 2002-01-20 14:52:04 espen Exp $ (in-package "GLIB") @@ -138,6 +138,7 @@ (defbinding signal-handler-disconnect () nil (defmethod signal-connect ((gobject gobject) signal function &rest args &key after object) + (declare (ignore signal args after)) (cond ((or (eq object t) (eq object gobject)) function) ((not object) @@ -148,5 +149,6 @@ (defmethod signal-connect ((gobject gobject) signal function &rest args &key aft (defmethod signal-connect :around ((gobject gobject) signal function &key after object) + (declare (ignore object)) (let ((callback-id (register-callback-function (call-next-method)))) (signal-connect-closure gobject signal callback-id :after after))) diff --git a/glib/pcl.lisp b/glib/pcl.lisp index 4a2b96f..39b973a 100644 --- a/glib/pcl.lisp +++ b/glib/pcl.lisp @@ -86,6 +86,7 @@ (defmethod change-class ((instance funcallable-standard-object) (defmethod change-class ((instance standard-object) (new-class funcallable-standard-class) &rest initargs) + (declare (ignore initargs)) (error "Can't change the class of ~S to ~S~@ because it isn't already an instance with metaclass ~S." instance new-class 'standard-class)) @@ -93,6 +94,7 @@ (defmethod change-class ((instance standard-object) (defmethod change-class ((instance funcallable-standard-object) (new-class standard-class) &rest initargs) + (declare (ignore initargs)) (error "Can't change the class of ~S to ~S~@ because it isn't already an instance with metaclass ~S." instance new-class 'funcallable-standard-class)) diff --git a/glib/proxy.lisp b/glib/proxy.lisp index 4176447..7831a76 100644 --- a/glib/proxy.lisp +++ b/glib/proxy.lisp @@ -15,7 +15,7 @@ ;; License along with this library; if not, write to the Free Software ;; Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA -;; $Id: proxy.lisp,v 1.6 2001-10-21 16:55:39 espen Exp $ +;; $Id: proxy.lisp,v 1.7 2002-01-20 14:52:04 espen Exp $ (in-package "GLIB") @@ -285,19 +285,18 @@ (defmethod compute-virtual-slot-accessors (slotd effective-virtual-alien-slot-definition) direct-slotds) (destructuring-bind (getter setter) (call-next-method) - (let ((class-name (class-name class))) - (with-slots (type) slotd - (list - (if (stringp getter) - (let ((getter (mkbinding-late getter type 'pointer))) - #'(lambda (object) - (funcall getter (proxy-location object)))) - getter) - (if (stringp setter) - (let ((setter (mkbinding-late setter 'nil 'pointer type))) - #'(lambda (value object) - (funcall setter (proxy-location object) value))) - setter)))))) + (with-slots (type) slotd + (list + (if (stringp getter) + (let ((getter (mkbinding-late getter type 'pointer))) + #'(lambda (object) + (funcall getter (proxy-location object)))) + getter) + (if (stringp setter) + (let ((setter (mkbinding-late setter 'nil 'pointer type))) + #'(lambda (value object) + (funcall setter (proxy-location object) value))) + setter))))) (defmethod compute-slots ((class proxy-class)) (with-slots (direct-slots size) class -- [mdw]