From mboxrd@z Thu Jan 1 00:00:00 1970 Path: main.gmane.org!not-for-mail From: Greg Troxel Newsgroups: gmane.lisp.guile.user Subject: Re: equivalent of "this" in goops? Date: 18 Feb 2005 12:42:42 -0500 Message-ID: References: <87sm3wt877.fsf@ivanova.rotty.yi.org> <4213DA97.5000700@ossau.uklinux.net> NNTP-Posting-Host: main.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii X-Trace: sea.gmane.org 1108748907 4242 80.91.229.2 (18 Feb 2005 17:48:27 GMT) X-Complaints-To: usenet@sea.gmane.org NNTP-Posting-Date: Fri, 18 Feb 2005 17:48:27 +0000 (UTC) Cc: Andreas Rottmann , guile-user@gnu.org Original-X-From: guile-user-bounces+guile-user=m.gmane.org@gnu.org Fri Feb 18 18:48:27 2005 Original-Received: from lists.gnu.org ([199.232.76.165]) by ciao.gmane.org with esmtp (Exim 4.43) id 1D2CEU-0008Rv-Gr for guile-user@m.gmane.org; Fri, 18 Feb 2005 18:48:02 +0100 Original-Received: from localhost ([127.0.0.1] helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1D2CUs-00049R-6b for guile-user@m.gmane.org; Fri, 18 Feb 2005 13:04:58 -0500 Original-Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1D2CTL-0003iO-C1 for guile-user@gnu.org; Fri, 18 Feb 2005 13:03:23 -0500 Original-Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43) id 1D2CTA-0003c7-BS for guile-user@gnu.org; Fri, 18 Feb 2005 13:03:15 -0500 Original-Received: from [199.232.76.173] (helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1D2CT9-0003aD-BG for guile-user@gnu.org; Fri, 18 Feb 2005 13:03:11 -0500 Original-Received: from [192.1.100.210] (helo=fnord.ir.bbn.com) by monty-python.gnu.org with esmtp (TLSv1:DES-CBC3-SHA:168) (Exim 4.34) id 1D2C9v-0006Gc-8s for guile-user@gnu.org; Fri, 18 Feb 2005 12:43:20 -0500 Original-Received: by fnord.ir.bbn.com (Postfix, from userid 10853) id 319E81F86; Fri, 18 Feb 2005 12:42:42 -0500 (EST) Original-To: Neil Jerram In-Reply-To: <4213DA97.5000700@ossau.uklinux.net> Original-Lines: 25 User-Agent: Gnus/5.09 (Gnus v5.9.0) Emacs/21.3 X-BeenThere: guile-user@gnu.org X-Mailman-Version: 2.1.5 Precedence: list List-Id: General Guile related discussions List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Original-Sender: guile-user-bounces+guile-user=m.gmane.org@gnu.org Errors-To: guile-user-bounces+guile-user=m.gmane.org@gnu.org X-MailScanner-To: guile-user@m.gmane.org Xref: main.gmane.org gmane.lisp.guile.user:4250 X-Report-Spam: http://spam.gmane.org/gmane.lisp.guile.user:4250 Thanks very much for your suggestion. I now have the following (but haven't tested yet): ;; set of links (define-class () ;; hash key is on other endpoint (link-hash #:accessor link-hash #:init-thunk (lambda () (make-hash-table 61))) (my-node #:accessor my-node #:init-keyword my-node)) (define-class () [other stuff] ;; links is a set of links, findable by the other endpoint (links-ip #:accessor links-ip) (links-udaan #:accessor links-udaan)) ;; override initialize in order to pass this to linkset constructor (define-method (initialize (this ) initargs) (next-method) (slot-set this 'links-ip (make #:my-node this)) (slot-set this 'links-udaan (make #:my-node this)) -- Greg Troxel _______________________________________________ Guile-user mailing list Guile-user@gnu.org http://lists.gnu.org/mailman/listinfo/guile-user