Fwd: [Bug 539517] [NEW] DEFINE-CONDITION and constant :DEFAULT-INITARGS

[Nikodemus Siivola]

This gems lives in CMUCL too. :)


---------- Forwarded message ----------
From: Nikodemus Siivola <nikodemus at random-state.net>
Date: 16 March 2010 14:03
Subject: [Bug 539517] [NEW] DEFINE-CONDITION and constant :DEFAULT-INITARGS
To: nikodemus at random-state.net


Public bug reported:

CL-USER> (defconstant +foo+ (lambda () (error "oops")))
+FOO+
CL-USER> (define-condition test () ((xxx :initarg :xxx))
(:default-initargs :xxx +foo+))
TEST
CL-USER> (progn (make-condition 'test) t)

 ...gives the error "oops"!

** Affects: sbcl
    Importance: Medium
        Status: Confirmed


** Tags: ansi

--
DEFINE-CONDITION and constant :DEFAULT-INITARGS
https://bugs.launchpad.net/bugs/539517
You received this bug notification because you are a member of SBCL
hackers, which is subscribed to SBCL.

Status in Steel Bank Common Lisp: Confirmed

Bug description:
CL-USER> (defconstant +foo+ (lambda () (error "oops")))
+FOO+
CL-USER> (define-condition test () ((xxx :initarg :xxx))
(:default-initargs :xxx +foo+))
TEST
CL-USER> (progn (make-condition 'test) t)

 ...gives the error "oops"!