From mboxrd@z Thu Jan  1 00:00:00 1970
Path: main.gmane.org!not-for-mail
From: Anders Vinjar <andersvi@notam02.no>
Newsgroups: gmane.lisp.guile.user
Subject: goops: union for class-slots
Date: 10 Jul 2003 08:58:33 +0200
Sender: guile-user-bounces+guile-user=m.gmane.org@gnu.org
Message-ID: <m1znjmc1gm.fsf@localhost.localdomain>
Reply-To: andersvi@notam02.no
NNTP-Posting-Host: main.gmane.org
Mime-Version: 1.0
Content-Type: text/plain; charset=us-ascii
X-Trace: main.gmane.org 1057820254 13180 80.91.224.249 (10 Jul 2003 06:57:34 GMT)
X-Complaints-To: usenet@main.gmane.org
NNTP-Posting-Date: Thu, 10 Jul 2003 06:57:34 +0000 (UTC)
Original-X-From: guile-user-bounces+guile-user=m.gmane.org@gnu.org Thu Jul 10 08:57:32 2003
Return-path: <guile-user-bounces+guile-user=m.gmane.org@gnu.org>
Original-Received: from monty-python.gnu.org ([199.232.76.173])
	by main.gmane.org with esmtp (Exim 3.35 #1 (Debian))
	id 19aVMy-0003QS-00
	for <guile-user@m.gmane.org>; Thu, 10 Jul 2003 08:57:32 +0200
Original-Received: from localhost ([127.0.0.1] helo=monty-python.gnu.org)
	by monty-python.gnu.org with esmtp (Exim 4.20)
	id 19aVMb-00056v-N4
	for guile-user@m.gmane.org; Thu, 10 Jul 2003 02:57:09 -0400
Original-Received: from list by monty-python.gnu.org with tmda-scanned (Exim 4.20)
	id 19aVKm-00046x-DE
	for guile-user@gnu.org; Thu, 10 Jul 2003 02:55:16 -0400
Original-Received: from mail by monty-python.gnu.org with spam-scanned (Exim 4.20)
	id 19aVJJ-0002eU-JO
	for guile-user@gnu.org; Thu, 10 Jul 2003 02:53:46 -0400
Original-Received: from ti211310a080-5431.bb.online.no ([80.212.85.55] helo=niente)
	by monty-python.gnu.org with esmtp (Exim 4.20) id 19aVHQ-0001SC-6h
	for guile-user@gnu.org; Thu, 10 Jul 2003 02:51:48 -0400
Original-Received: from niente (localhost.localdomain [127.0.0.1])
	by niente (8.12.8/8.12.8) with ESMTP id h6A70XZG028385
	for <guile-user@gnu.org>; Thu, 10 Jul 2003 09:00:34 +0200
Original-Received: (from andersvi@localhost)
	by niente (8.12.8/8.12.8/Submit) id h6A6xX6B028361;
	Thu, 10 Jul 2003 08:59:33 +0200
X-Authentication-Warning: niente: andersvi set sender to andersvi@notam02.no
	using -f
Original-To: guile-user@gnu.org
Original-Lines: 20
User-Agent: Gnus/5.0808 (Gnus v5.8.8) XEmacs/21.4 (Honest Recruiter)
X-BeenThere: guile-user@gnu.org
X-Mailman-Version: 2.1.2
Precedence: list
List-Id: General Guile related discussions  <guile-user.gnu.org>
List-Unsubscribe: <http://mail.gnu.org/mailman/listinfo/guile-user>,
	<mailto:guile-user-request@gnu.org?subject=unsubscribe>
List-Archive: <http://mail.gnu.org/pipermail/guile-user>
List-Post: <mailto:guile-user@gnu.org>
List-Help: <mailto:guile-user-request@gnu.org?subject=help>
List-Subscribe: <http://mail.gnu.org/mailman/listinfo/guile-user>,
	<mailto:guile-user-request@gnu.org?subject=subscribe>
Errors-To: guile-user-bounces+guile-user=m.gmane.org@gnu.org
Xref: main.gmane.org gmane.lisp.guile.user:2068
X-Report-Spam: http://spam.gmane.org/gmane.lisp.guile.user:2068

In goops.scm theres a method 'class-slots which can be defined
for a new meta-class.  So a quick question: does anyone already
have a method on 'class-slots which returns the union of the
various slot-definitions for a class?

what i'd like:

(define-class <super> ()
  (name #:init-keyword #:name #:init-form 'joe #:getter sname))

(define-class <sub> (<super>)
  (name #:accessor sname))

and have 

(make <sub>)

return an object with 'name initialized to 'joe.

-anders


_______________________________________________
Guile-user mailing list
Guile-user@gnu.org
http://mail.gnu.org/mailman/listinfo/guile-user