From f2b5bd42f88cd51cb2479b2e6346bfa9e7abb9c3 Mon Sep 17 00:00:00 2001 Message-Id: From: Mark Wooding Date: Mon, 4 Sep 2000 22:04:24 +0000 Subject: [PATCH] Made size-of a type method Organization: Straylight/Edgeware From: espen --- glib/gtype.lisp | 10 +++++++--- 1 file changed, 7 insertions(+), 3 deletions(-) diff --git a/glib/gtype.lisp b/glib/gtype.lisp index 192e121..04a23ce 100644 --- a/glib/gtype.lisp +++ b/glib/gtype.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: gtype.lisp,v 1.3 2000-08-23 14:27:41 espen Exp $ +;; $Id: gtype.lisp,v 1.4 2000-09-04 22:04:24 espen Exp $ (in-package "GLIB") @@ -234,7 +234,11 @@ (defmethod from-alien-initialize-instance ((instance alien-instance) (deftype-method translate-type-spec alien-instance (type-spec) (declare (ignore type-spec)) - 'system-area-pointer) + (translate-type-spec 'pointer)) + +(deftype-method size-of alien-instance (type-spec) + (declare (ignore type-spec)) + (size-of 'pointer)) @@ -360,7 +364,7 @@ (defmethod compute-virtual-slot-location (alien::make-heap-alien-info :type (alien::parse-alien-type `(function - void ,alien-type system-area-pointer)) + void system-area-pointer ,alien-type)) :sap-form (system:foreign-symbol-address writer)))) (to-alien (get-to-alien-function type)) (cleanup (get-cleanup-function type))) -- [mdw]