From mboxrd@z Thu Jan  1 00:00:00 1970
Path: news.gmane.org!not-for-mail
From: "Marco Maggi" <marco.maggi-ipsu@poste.it>
Newsgroups: gmane.lisp.guile.user
Subject: Re: goops classes for smobs
Date: Wed, 14 Nov 2007 06:48:35 +0100
Message-ID: <JRHESZ$23E7EDDB308C73BF2DD08911CE345747@poste.it>
NNTP-Posting-Host: lo.gmane.org
Mime-Version: 1.0
Content-Type: text/plain; charset=iso-8859-1
Content-Transfer-Encoding: quoted-printable
X-Trace: ger.gmane.org 1195019335 9524 80.91.229.12 (14 Nov 2007 05:48:55 GMT)
X-Complaints-To: usenet@ger.gmane.org
NNTP-Posting-Date: Wed, 14 Nov 2007 05:48:55 +0000 (UTC)
To: "guile-user" <guile-user@gnu.org>
Original-X-From: guile-user-bounces+guile-user=m.gmane.org@gnu.org Wed Nov 14 06:48:58 2007
Return-path: <guile-user-bounces+guile-user=m.gmane.org@gnu.org>
Envelope-to: guile-user@m.gmane.org
Original-Received: from lists.gnu.org ([199.232.76.165])
	by lo.gmane.org with esmtp (Exim 4.50)
	id 1IsB7S-0005AQ-6O
	for guile-user@m.gmane.org; Wed, 14 Nov 2007 06:48:58 +0100
Original-Received: from localhost ([127.0.0.1] helo=lists.gnu.org)
	by lists.gnu.org with esmtp (Exim 4.43)
	id 1IsB7F-0004U2-RH
	for guile-user@m.gmane.org; Wed, 14 Nov 2007 00:48:45 -0500
Original-Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43)
	id 1IsB78-0004SX-Jx
	for guile-user@gnu.org; Wed, 14 Nov 2007 00:48:38 -0500
Original-Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43)
	id 1IsB77-0004RR-Dh
	for guile-user@gnu.org; Wed, 14 Nov 2007 00:48:37 -0500
Original-Received: from [199.232.76.173] (helo=monty-python.gnu.org)
	by lists.gnu.org with esmtp (Exim 4.43) id 1IsB77-0004RH-4f
	for guile-user@gnu.org; Wed, 14 Nov 2007 00:48:37 -0500
Original-Received: from relay-pt4.poste.it ([62.241.4.118])
	by monty-python.gnu.org with esmtp (Exim 4.60)
	(envelope-from <marco.maggi-ipsu@poste.it>) id 1IsB76-0004vl-OV
	for guile-user@gnu.org; Wed, 14 Nov 2007 00:48:37 -0500
Original-Received: from poste.it (192.168.144.52) by relay-pt4.poste.it (7.3.122)
	(authenticated as marco.maggi-ipsu@poste.it)
	id 473A3B1400001347 for guile-user@gnu.org;
	Wed, 14 Nov 2007 06:48:35 +0100
X-Sensitivity: 3
X-XaM3-API-Version: 4.3 (R1) (B3pl19)
X-SenderIP: 83.190.104.97
X-detected-kernel: by monty-python.gnu.org: Solaris 9
X-BeenThere: guile-user@gnu.org
X-Mailman-Version: 2.1.5
Precedence: list
List-Id: General Guile related discussions <guile-user.gnu.org>
List-Unsubscribe: <http://lists.gnu.org/mailman/listinfo/guile-user>,
	<mailto:guile-user-request@gnu.org?subject=unsubscribe>
List-Archive: <http://lists.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://lists.gnu.org/mailman/listinfo/guile-user>,
	<mailto:guile-user-request@gnu.org?subject=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
Xref: news.gmane.org gmane.lisp.guile.user:6281
Archived-At: <http://permalink.gmane.org/gmane.lisp.guile.user/6281>

Corrections... :(

"Marco Maggi" wrote:
>scm_make_extended_class_with_supers("my",
>scm_variable_ref("<number>"));

This must be:

scm_make_extended_class_with_supers("my",
scm_list_1(scm_variable_ref("<number>")));

and the change to 'scm_class_of()' must
be something like:

{
  /* Goops object */
  if (! scm_is_false (SCM_OBJ_CLASS_REDEF (x)))
    scm_change_object_class (x, SCM_CLASS_OF (x),
                             SCM_OBJ_CLASS_REDEF (x));

  if (SCM_SMOB_PREDICATE(multi_smob_driver, x))
    {
      SCM class =3D
((sub_smob_driver_t)SCM_SMOB_DATA_2(x))->class;

      if (SCM_UNSPECIFIED !=3D class)
        return class;
    }

  return SCM_CLASS_OF (x);
}

-- 
Marco Maggi

"Now feel the funk blast!"
Rage Against the Machine - "Calm like a bomb"




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