Fixed some compiler warnings

diff --git a/glib/gboxed.lisp b/glib/gboxed.lisp
index e510722b83f5fbe88aaf278c1fa05b88bc485b5b..1da0bede8c0bddb61e41fc9f25e78f5f050b6e18 100644 (file)
--- 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
 
 ;; 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")
 
 
 (in-package "GLIB")
 


@@ -88,7 +88,7 @@ (deftype-method translate-from-alien
 
 (deftype-method translate-to-alien
     gstring (type-spec string &optional weak-ref)
 
 (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
   `(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 12a34b693a055c4915bd9d1feda6428cfa64cf9f..e0d9e31079542d42b9416791650f8dff3607dadb 100644 (file)
--- 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
 
 ;; 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")
 
 
 (in-package "GLIB")
 


@@ -138,6 +138,7 @@ (defbinding signal-handler-disconnect () nil
 
 
 (defmethod signal-connect ((gobject gobject) signal function &rest args &key after object)
 
 
 (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)
   (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)
 
 (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)))
   (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 4a2b96f708de421f9306ebf9308bd14463321aea..39b973a57819ab8a36fbed1e224f0fbc2a217254 100644 (file)
--- 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)
 (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))
   (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)
 (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))
   (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 41764479e21569150d41175043c754eab06a43d6..7831a7677276da190d50ddd4cbd6f8258deef554 100644 (file)
--- 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
 
 ;; 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")
 
 
 (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)
        (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
 
   (defmethod compute-slots ((class proxy-class))
     (with-slots (direct-slots size) class