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: integer? as generic function
Date: Tue, 23 May 2006 20:58:25 +0200
Message-ID: <IZQFDD$3310AC6A18D68D2923A0A1CA292CFBCD@poste.it>
NNTP-Posting-Host: main.gmane.org
Mime-Version: 1.0
Content-Type: text/plain; charset=iso-8859-1
Content-Transfer-Encoding: quoted-printable
X-Trace: sea.gmane.org 1148410716 24139 80.91.229.2 (23 May 2006 18:58:36 GMT)
X-Complaints-To: usenet@sea.gmane.org
NNTP-Posting-Date: Tue, 23 May 2006 18:58:36 +0000 (UTC)
Original-X-From: guile-user-bounces+guile-user=m.gmane.org@gnu.org Tue May 23 20:58:34 2006
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 ciao.gmane.org with esmtp (Exim 4.43)
	id 1Fic5R-00014C-R1
	for guile-user@m.gmane.org; Tue, 23 May 2006 20:58:33 +0200
Original-Received: from localhost ([127.0.0.1] helo=lists.gnu.org)
	by lists.gnu.org with esmtp (Exim 4.43)
	id 1Fic5R-0006PO-Fy
	for guile-user@m.gmane.org; Tue, 23 May 2006 14:58:33 -0400
Original-Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43)
	id 1Fic5N-0006PJ-6F
	for guile-user@gnu.org; Tue, 23 May 2006 14:58:29 -0400
Original-Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43)
	id 1Fic5L-0006Ow-VZ
	for guile-user@gnu.org; Tue, 23 May 2006 14:58:28 -0400
Original-Received: from [199.232.76.173] (helo=monty-python.gnu.org)
	by lists.gnu.org with esmtp (Exim 4.43) id 1Fic5L-0006Op-N5
	for guile-user@gnu.org; Tue, 23 May 2006 14:58:27 -0400
Original-Received: from [62.241.4.164] (helo=relay-pt1.poste.it)
	by monty-python.gnu.org with esmtp (Exim 4.52) id 1Fic9c-0000Va-FZ
	for guile-user@gnu.org; Tue, 23 May 2006 15:02:52 -0400
Original-Received: from poste.it (192.168.144.100) by relay-pt1.poste.it (7.2.063)
	(authenticated as marco.maggi-ipsu@poste.it)
	id 44119E6200158E52 for guile-user@gnu.org;
	Tue, 23 May 2006 20:58:25 +0200
X-Sensitivity: 3
Original-To: "guile-user" <guile-user@gnu.org>
X-XaM3-API-Version: 4.1 (B107)
X-SenderIP: 62.10.43.49
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:5306
Archived-At: <http://permalink.gmane.org/gmane.lisp.guile.user/5306>

"marco.maggi-ipsu@poste.it" wrote:
>(define-generic   gee-gmp-oop-integer?)
>
>(let ((integer? integer?))
>  (define-method (gee-gmp-oop-integer? (o <number>))
>    (integer? o)))
>
>(set! integer? gee-gmp-oop-integer?)

It works if I do this:

     (define saved-integer? integer?)
     (define-generic integer?)
     (define-method (integer? (o <number>))
       (saved-integer? o)))

     (export integer?)

-- 
Marco Maggi




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