;; 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")
(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
;; 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")
(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)
(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)))
(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))
(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))
;; 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")
(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