This gems lives in CMUCL too. :) ---------- Forwarded message ---------- From: Nikodemus Siivola <nikodemus@random-state.net> Date: 16 March 2010 14:03 Subject: [Bug 539517] [NEW] DEFINE-CONDITION and constant :DEFAULT-INITARGS To: nikodemus@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"!