chiark / gitweb /
Fixed some compiler warnings
authorespen <espen>
Sun, 20 Jan 2002 14:52:04 +0000 (14:52 +0000)
committerespen <espen>
Sun, 20 Jan 2002 14:52:04 +0000 (14:52 +0000)
glib/gboxed.lisp
glib/gcallback.lisp
glib/pcl.lisp
glib/proxy.lisp

index e510722..1da0bed 100644 (file)
@@ -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
index 12a34b6..e0d9e31 100644 (file)
@@ -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)))
index 4a2b96f..39b973a 100644 (file)
@@ -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))
index 4176447..7831a76 100644 (file)
@@ -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