From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: David Pirotte Newsgroups: gmane.lisp.guile.devel Subject: Re: goops - guile-clutter unexpected bug while using #:virtual slot allocation for a subclass Date: Wed, 28 Jan 2015 17:24:16 -0200 Message-ID: <20150128172416.48c09ab8@capac> References: <20141219174633.6efb845e@capac> <8761btfcni.fsf@pobox.com> <20150126230044.2d1e71de@capac> <87sieweie4.fsf@pobox.com> <20150127171115.6172ccea@capac> <87zj94c5rv.fsf@pobox.com> <20150128010524.762e14a2@capac> <87mw53cbbd.fsf@pobox.com> NNTP-Posting-Host: plane.gmane.org Mime-Version: 1.0 Content-Type: multipart/signed; micalg=pgp-sha256; boundary="Sig_/XETLFBYo_y9LLQliVYP30uK"; protocol="application/pgp-signature" X-Trace: ger.gmane.org 1422473106 1144 80.91.229.3 (28 Jan 2015 19:25:06 GMT) X-Complaints-To: usenet@ger.gmane.org NNTP-Posting-Date: Wed, 28 Jan 2015 19:25:06 +0000 (UTC) Cc: guile-devel To: Andy Wingo Original-X-From: guile-devel-bounces+guile-devel=m.gmane.org@gnu.org Wed Jan 28 20:25:06 2015 Return-path: Envelope-to: guile-devel@m.gmane.org Original-Received: from lists.gnu.org ([208.118.235.17]) by plane.gmane.org with esmtp (Exim 4.69) (envelope-from ) id 1YGYEb-0001ij-Ed for guile-devel@m.gmane.org; Wed, 28 Jan 2015 20:25:05 +0100 Original-Received: from localhost ([::1]:55569 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1YGYEa-0002vj-NB for guile-devel@m.gmane.org; Wed, 28 Jan 2015 14:25:04 -0500 Original-Received: from eggs.gnu.org ([2001:4830:134:3::10]:49333) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1YGYE9-0002NP-RS for guile-devel@gnu.org; Wed, 28 Jan 2015 14:24:38 -0500 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1YGYE5-0001Nh-QJ for guile-devel@gnu.org; Wed, 28 Jan 2015 14:24:37 -0500 Original-Received: from maximusconfessor.all2all.org ([79.99.200.102]:45310) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1YGYE5-0001NN-Hc for guile-devel@gnu.org; Wed, 28 Jan 2015 14:24:33 -0500 Original-Received: from localhost (unknown [192.168.0.2]) by maximusconfessor.all2all.org (Postfix) with ESMTP id 621D8A04C213; Wed, 28 Jan 2015 20:24:32 +0100 (CET) Original-Received: from maximusconfessor.all2all.org ([192.168.0.1]) by localhost (maximusconfessor.all2all.org [192.168.0.2]) (amavisd-new, port 10024) with ESMTP id yV0cib9ahDHP; Wed, 28 Jan 2015 20:24:21 +0100 (CET) Original-Received: from capac (unknown [139.82.89.157]) by maximusconfessor.all2all.org (Postfix) with ESMTPSA id 05BA7A04C147; Wed, 28 Jan 2015 20:24:18 +0100 (CET) In-Reply-To: <87mw53cbbd.fsf@pobox.com> X-Mailer: Claws Mail 3.11.1 (GTK+ 2.24.25; x86_64-pc-linux-gnu) X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.6.x X-Received-From: 79.99.200.102 X-BeenThere: guile-devel@gnu.org X-Mailman-Version: 2.1.14 Precedence: list List-Id: "Developers list for Guile, the GNU extensibility library" List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: guile-devel-bounces+guile-devel=m.gmane.org@gnu.org Original-Sender: guile-devel-bounces+guile-devel=m.gmane.org@gnu.org Xref: news.gmane.org gmane.lisp.guile.devel:17646 Archived-At: --Sig_/XETLFBYo_y9LLQliVYP30uK Content-Type: text/plain; charset=US-ASCII Content-Transfer-Encoding: quoted-printable Hello Andy, > > david@capac:~/alto/projects/guile-tests/goops 15 $ guile > > GNU Guile 2.0.11.113-583a >=20 > This version had bugs, as I tried to explain. Please update your > stable-2.0 and try again. Thanks :) as an aside note, yesterday I did not pull, i thought all the comments you made on irc and here were about the refactoring you have been working on, and which i pulled 2 days ago: next time, even if you think it is not necessary, just to avoid [my] confusion, please tell me explicit= ly 'david please pull, check, I made changes since the refactoring...' thanks! So, I just pulled/compiled your latest changes, but it is not working: david@capac:~/alto/projects/guile-tests/goops/setter-inheritance-bug 25 $ g= uile GNU Guile 2.0.11.114-649ec Copyright (C) 1995-2014 Free Software Foundation, Inc. Guile comes with ABSOLUTELY NO WARRANTY; for details type `,show w'. This program is free software, and you are welcome to redistribute it under certain conditions; type `,show c' for details. Enter `,help' for help. scheme@(guile-user)> ,use (oop goops) scheme@(guile-user)> ,use (b) ;;; note: auto-compilation is enabled, set GUILE_AUTO_COMPILE=3D0 ;;; or pass the --no-auto-compile argument to disable. ;;; compiling ./b.scm ;;; compiling ./a.scm ;;; compiled /home/david/.cache/guile/ccache/2.0-LE-8-2.0/usr/alto/projects= /guile-tests/goops/setter-inheritance-bug/a.scm.go ;;; compiled /home/david/.cache/guile/ccache/2.0-LE-8-2.0/usr/alto/projects= /guile-tests/goops/setter-inheritance-bug/b.scm.go scheme@(guile-user)> (set! (!width (make )) 20) $1 =3D 20 scheme@(guile-user)> =20 Cheers, David ;; module a.scm starts here (define-module (a) #:use-module (oop goops) #:export ( !width)) (define-class () (width #:accessor !width #:init-keyword #:width #:init-value 0)) (define-method ((setter !width) (self ) width) ;; here comes complex code, computing earth orbit and calling lower ;; level clutter internals, such as the layout... (pk "this is !width setter method, hello!") (slot-set! self 'width width)) ;; module ends here ;; module b.scm starts here (define-module (b) #:use-module (oop goops) #:use-module (a) #:export () #:re-export (!width)) (define-class ()) ;; module ends here --Sig_/XETLFBYo_y9LLQliVYP30uK Content-Type: application/pgp-signature Content-Description: OpenPGP digital signature -----BEGIN PGP SIGNATURE----- Version: GnuPG v2 iQEcBAEBCAAGBQJUyTdgAAoJEPN0/ZOjBXrXSSkIAKI0l/Z2G+sDyWN/1DktfJIr tqzGonJTJyOnkHezICrNbp/zVKzxS4Psa5EUKxBjAxeJxE/p2/8tmoZlbxuPRF9K +cDIl2snz2u9s5WnjMiE/CsSJnRdyMIP+ededX6Rn6QnXIgyyJkfJbuPPwdH8o4S 7c3Q4QVKfAoCQjfXxbNEdysmkR+l1OX4hsK94eVmefv7HStOthafgTaJM+ZwGyqE ZHy4lVfdL4xoxy7U8RaC40U5hSl3ceVcjxtSmGiNumMRte9ke3/nUZmhAYM8c6pV dRM0szJ806DFmcpTZ8KafqxJ0pqUFem226OL/qpr1NvKLjScQCU9YtQc5A6yrIk= =60rS -----END PGP SIGNATURE----- --Sig_/XETLFBYo_y9LLQliVYP30uK--