From mboxrd@z Thu Jan  1 00:00:00 1970
Path: main.gmane.org!not-for-mail
From: Michael Burschik <Michael.Burschik@gmx.de>
Newsgroups: gmane.lisp.guile.bugs
Subject: MOP bug?
Date: Mon, 29 Apr 2002 19:03:46 +0200
Sender: bug-guile-admin@gnu.org
Message-ID: <02042919034600.00893@linux>
NNTP-Posting-Host: localhost.gmane.org
Mime-Version: 1.0
Content-Type: text/plain;
  charset="iso-8859-15"
Content-Transfer-Encoding: 8bit
X-Trace: main.gmane.org 1020099990 25491 127.0.0.1 (29 Apr 2002 17:06:30 GMT)
X-Complaints-To: usenet@main.gmane.org
NNTP-Posting-Date: Mon, 29 Apr 2002 17:06:30 +0000 (UTC)
Return-path: <bug-guile-admin@gnu.org>
Original-Received: from fencepost.gnu.org ([199.232.76.164])
	by main.gmane.org with esmtp (Exim 3.33 #1 (Debian))
	id 172Ebd-0006d2-00
	for <guile-bugs@m.gmane.org>; Mon, 29 Apr 2002 19:06:29 +0200
Original-Received: from localhost ([127.0.0.1] helo=fencepost.gnu.org)
	by fencepost.gnu.org with esmtp (Exim 3.34 #1 (Debian))
	id 172EbH-00075a-00; Mon, 29 Apr 2002 13:06:07 -0400
Original-Received: from mail.gmx.net ([213.165.64.20])
	by fencepost.gnu.org with smtp (Exim 3.34 #1 (Debian))
	id 172EaU-00071g-00
	for <bug-guile@gnu.org>; Mon, 29 Apr 2002 13:05:19 -0400
Original-Received: (qmail 12093 invoked by uid 0); 29 Apr 2002 17:05:17 -0000
Original-Received: from unknown (HELO linux) (62.27.157.246)
  by mail.gmx.net (mp007-rz3) with SMTP; 29 Apr 2002 17:05:17 -0000
Original-To: bug-guile@gnu.org
X-Mailer: KMail [version 1.2]
Errors-To: bug-guile-admin@gnu.org
X-BeenThere: bug-guile@gnu.org
X-Mailman-Version: 2.0.9
Precedence: bulk
List-Help: <mailto:bug-guile-request@gnu.org?subject=help>
List-Post: <mailto:bug-guile@gnu.org>
List-Subscribe: <http://mail.gnu.org/mailman/listinfo/bug-guile>,
	<mailto:bug-guile-request@gnu.org?subject=subscribe>
List-Id: Bug reports for GUILE,
	GNU's Ubiquitous Extension Language <bug-guile.gnu.org>
List-Unsubscribe: <http://mail.gnu.org/mailman/listinfo/bug-guile>,
	<mailto:bug-guile-request@gnu.org?subject=unsubscribe>
List-Archive: <http://mail.gnu.org/pipermail/bug-guile/>
Xref: main.gmane.org gmane.lisp.guile.bugs:202
X-Report-Spam: http://spam.gmane.org/gmane.lisp.guile.bugs:202

If I call guile interactively and type this:

(use-modules (oop goops))
(define-class <thing> () (slot1))
(define-method (slot-unbound (c <class>) (o <thing>) s)
(display "You can't do that.\n"))
(define mything (make <thing>))
(slot-ref mything 'slot1)

I get what I want. If I put the above statements in a file and execute guile 
-f file or guile -s file, I get this error message:

ERROR: In procedure class-direct-methods:
ERROR: Wrong type argument in position 1: #<struct 40209640:40209640>

Now why should that be?

I am using guile 1.4, goops 1.0.2 and linux 2.4.

Regards

Michael Burschik


_______________________________________________
Bug-guile mailing list
Bug-guile@gnu.org
http://mail.gnu.org/mailman/listinfo/bug-guile