From ec1a4146ce886322bba44a5bcd40dd4bc43e2b0e Mon Sep 17 00:00:00 2001 From: espen Date: Mon, 15 Nov 2004 19:20:55 +0000 Subject: [PATCH] Subclasses of STRUCT may now allocate foreign memory --- glib/proxy.lisp | 11 ++++++----- 1 file changed, 6 insertions(+), 5 deletions(-) diff --git a/glib/proxy.lisp b/glib/proxy.lisp index 9058e23..88971c1 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.12 2004-11-09 10:10:59 espen Exp $ +;; $Id: proxy.lisp,v 1.13 2004-11-15 19:20:55 espen Exp $ (in-package "GLIB") @@ -408,10 +408,11 @@ (defmethod initialize-instance ((struct struct) &rest initargs) (declare (ignore initargs)) - (let ((size (proxy-instance-size (class-of struct)))) - (if (zerop size) - (error "~A has zero size" (class-of struct)) - (setf (slot-value struct 'location) (allocate-memory size)))) + (unless (slot-boundp struct 'location) + (let ((size (proxy-instance-size (class-of struct)))) + (if (zerop size) + (error "~A has zero size" (class-of struct)) + (setf (slot-value struct 'location) (allocate-memory size))))) (call-next-method)) -- 2.11.0