From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: David Pirotte Newsgroups: gmane.lisp.guile.bugs Subject: goops: make 'allowing' the use of non existing init kw or slot Date: Sat, 20 Aug 2011 16:28:42 -0300 Message-ID: <20110820162842.213b7ed4@rascar> NNTP-Posting-Host: lo.gmane.org Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="MP_/H0VQpWEEHAxHTkaRFbdmp+6" X-Trace: dough.gmane.org 1313868554 27782 80.91.229.12 (20 Aug 2011 19:29:14 GMT) X-Complaints-To: usenet@dough.gmane.org NNTP-Posting-Date: Sat, 20 Aug 2011 19:29:14 +0000 (UTC) To: bug-guile@gnu.org Original-X-From: bug-guile-bounces+guile-bugs=m.gmane.org@gnu.org Sat Aug 20 21:29:11 2011 Return-path: Envelope-to: guile-bugs@m.gmane.org Original-Received: from lists.gnu.org ([140.186.70.17]) by lo.gmane.org with esmtp (Exim 4.69) (envelope-from ) id 1QurEE-0007Dg-OA for guile-bugs@m.gmane.org; Sat, 20 Aug 2011 21:29:10 +0200 Original-Received: from localhost ([::1]:33693 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1QurEE-0000hQ-58 for guile-bugs@m.gmane.org; Sat, 20 Aug 2011 15:29:10 -0400 Original-Received: from eggs.gnu.org ([140.186.70.92]:47227) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1QurEB-0000h9-BA for bug-guile@gnu.org; Sat, 20 Aug 2011 15:29:08 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1QurEA-0002JY-83 for bug-guile@gnu.org; Sat, 20 Aug 2011 15:29:07 -0400 Original-Received: from maximusconfessor.all2all.org ([62.58.108.13]:44370) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1QurEA-0002JT-34 for bug-guile@gnu.org; Sat, 20 Aug 2011 15:29:06 -0400 Original-Received: from localhost (unknown [192.168.0.2]) by maximusconfessor.all2all.org (Postfix) with ESMTP id 5E491A04C2C0 for ; Sat, 20 Aug 2011 21:29:03 +0200 (CEST) Original-Received: from maximusconfessor.all2all.org ([192.168.0.1]) by localhost (maximusconfessor.all2all.org [192.168.0.2]) (amavisd-new, port 10024) with ESMTP id MrorMVk9jMgf for ; Sat, 20 Aug 2011 21:09:35 +0200 (CEST) Original-Received: from rascar (unknown [189.60.180.75]) by maximusconfessor.all2all.org (Postfix) with ESMTPSA id 54770A04C2BA for ; Sat, 20 Aug 2011 21:28:56 +0200 (CEST) X-Mailer: Claws Mail 3.7.9 (GTK+ 2.24.4; i486-pc-linux-gnu) X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.6 (newer, 3) X-Received-From: 62.58.108.13 X-BeenThere: bug-guile@gnu.org X-Mailman-Version: 2.1.14 Precedence: list List-Id: "Bug reports for GUILE, GNU's Ubiquitous Extension Language" List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: bug-guile-bounces+guile-bugs=m.gmane.org@gnu.org Original-Sender: bug-guile-bounces+guile-bugs=m.gmane.org@gnu.org Xref: news.gmane.org gmane.lisp.guile.bugs:5787 Archived-At: --MP_/H0VQpWEEHAxHTkaRFbdmp+6 Content-Type: text/plain; charset=US-ASCII Content-Transfer-Encoding: 7bit Content-Disposition: inline Hello, The attached code speaks for itself: shouldn't we get an error on both of these attempts? 1] the slot exists but no :init-keyword was defined; 2] the slot does not exists. Cheers, David --MP_/H0VQpWEEHAxHTkaRFbdmp+6 Content-Type: text/x-scheme Content-Transfer-Encoding: 7bit Content-Disposition: attachment; filename=goops-make-using-non-existing-kw-or-slot.scm (define-module (goops-make-using-non-existing-kw-or-slot) :use-module (oop goops) :export ( dialog no-kw letstry )) (define-class () (dialog :accessor dialog :init-keyword :dialog :init-value #f) (no-kw :accessor no-kw :init-value #f)) (define (letstry) (make :dialog 'dialog-a :no-kw 'no-kw :non-existing-slot 'non-existing-slot)) #! (use-modules (macros push)) (push! "/usr/local/share/guile/alto/2.0/tests" %load-path) (use-modules (goops-make-using-non-existing-kw-or-slot)) (letstry) !# --MP_/H0VQpWEEHAxHTkaRFbdmp+6--