Re: (asdf:oos 'asdf:load-op :gtk) failed

Chisheng Huang <[email protected]> writes:

> This is great.  Now I can compile and load clg with CMUCL snapshot 2005-03
> without any problem on a Gentoo x86 box.  Loading hello-world was O.K. but

This is nice to hear.

> loading testgtk gave a segmentation violation.  Backtrace is attached at
> the end of this email.

Although I have never experienced this segfault my self, I probably
fixed this just before your mail arrived. You may try the attached diff
and see if testgtk.lisp is working now. The shapes test still gives
segmentation violation, but I am trying to track down the cause off this
just now.

Index: gtype.lisp
===================================================================
RCS file: /cvsroot/clg/clg/glib/gtype.lisp,v
retrieving revision 1.29
diff -u -r1.29 gtype.lisp
--- gtype.lisp	11 Mar 2005 20:16:07 -0000	1.29
+++ gtype.lisp	12 Mar 2005 18:40:11 -0000
@@ -237,7 +237,7 @@
     ()))
 
 
-(defmethod shared-initialize ((class ginstance-class) names &key name gtype)
+(defmethod shared-initialize ((class ginstance-class) names &rest initargs &key name gtype)
   (declare (ignore names))
   (let* ((class-name (or name (class-name class)))
 	 (type-number 
@@ -245,9 +245,10 @@
 	   (find-type-number class-name)
 	   (register-type class-name 
 	     (or (first gtype) (default-type-init-name class-name))))))
-    (call-next-method)
-    (when (slot-boundp class 'size)
-      (setf (slot-value class 'size) (type-instance-size type-number)))))
+    (if (getf initargs :size)
+         (call-next-method)
+       (let ((size (type-instance-size type-number)))
+         (apply #'call-next-method class names :size (list size) initargs)))))
 
 
 (defmethod validate-superclass ((class ginstance-class) (super standard-class))

-- 
Espen


-------------------------------------------------------
SF email is sponsored by - The IT Product Guide
Read honest & candid reviews on hundreds of IT Products from real users.
Discover which products truly live up to the hype. Start reading now.
http://ads.osdn.com/?ad_id=6595&alloc_id=14396&op=click