From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: "Diogo F. S. Ramos" Newsgroups: gmane.lisp.guile.user Subject: #:getter procedure returns unexpected value in GOOPS Date: Fri, 25 Apr 2014 20:24:12 -0300 Message-ID: <87mwf9hu1v.fsf@nebulosa.milkyway> NNTP-Posting-Host: plane.gmane.org Mime-Version: 1.0 Content-Type: text/plain X-Trace: ger.gmane.org 1398468298 9349 80.91.229.3 (25 Apr 2014 23:24:58 GMT) X-Complaints-To: usenet@ger.gmane.org NNTP-Posting-Date: Fri, 25 Apr 2014 23:24:58 +0000 (UTC) To: guile-user@gnu.org Original-X-From: guile-user-bounces+guile-user=m.gmane.org@gnu.org Sat Apr 26 01:24:51 2014 Return-path: Envelope-to: guile-user@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 1WdpUA-00041z-Ib for guile-user@m.gmane.org; Sat, 26 Apr 2014 01:24:50 +0200 Original-Received: from localhost ([::1]:60368 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1WdpUA-0007uY-5N for guile-user@m.gmane.org; Fri, 25 Apr 2014 19:24:50 -0400 Original-Received: from eggs.gnu.org ([2001:4830:134:3::10]:51932) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1WdpTj-0007X1-IM for guile-user@gnu.org; Fri, 25 Apr 2014 19:24:29 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1WdpTd-0005O4-Dq for guile-user@gnu.org; Fri, 25 Apr 2014 19:24:23 -0400 Original-Received: from mx1.riseup.net ([198.252.153.129]:53468) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1WdpTd-0005Nw-8S for guile-user@gnu.org; Fri, 25 Apr 2014 19:24:17 -0400 Original-Received: from fulvetta.riseup.net (fulvetta-pn.riseup.net [10.0.1.75]) (using TLSv1 with cipher DHE-RSA-AES256-SHA (256/256 bits)) (Client CN "*.riseup.net", Issuer "Gandi Standard SSL CA" (not verified)) by mx1.riseup.net (Postfix) with ESMTPS id 1EBF653F8B for ; Fri, 25 Apr 2014 16:24:16 -0700 (PDT) Original-Received: from [127.0.0.1] (localhost [127.0.0.1]) (Authenticated sender: dfsr@fulvetta.riseup.net) with ESMTPSA id 4CFE3317 User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/24.3 (gnu/linux) X-Virus-Scanned: clamav-milter 0.98.1 at mx1 X-Virus-Status: Clean X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.6.x X-Received-From: 198.252.153.129 X-BeenThere: guile-user@gnu.org X-Mailman-Version: 2.1.14 Precedence: list List-Id: General Guile related discussions List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: guile-user-bounces+guile-user=m.gmane.org@gnu.org Original-Sender: guile-user-bounces+guile-user=m.gmane.org@gnu.org Xref: news.gmane.org gmane.lisp.guile.user:11218 Archived-At: When using GOOPS, if a class has a second slot, the #:getter procedure of the first slot returns the value of the second slot when applied to an instance of a subclass. --8<---------------cut here---------------start------------->8--- (use-modules (oop goops)) (define-class () (a #:init-form 'foo #:getter foo-a) (b #:init-form 42)) (define-class () (a #:init-form 'bar)) --8<---------------cut here---------------end--------------->8--- (foo-a (make )) => foo (foo-a (make )) => 42 I expected: (foo-a (make )) => bar I'm not too familiar with GOOPS, so I'm not sure this is the right behavior. I'm using Guile 2.0.11.