slot unbound on conditions with :ALLOCATION :CLASS and :DEFAULT-INITARGS

[Michał "phoe" Herda]

CL-USER> (define-condition foo ()
           ((%bar :reader bar :initarg :bar :allocation :class))
           (:default-initargs :bar 42))
FOO
CL-USER> (describe (make-condition 'foo))
#<FOO {100D69FCF3}>
  [condition]

Slots with :CLASS allocation:
  %BAR = #<unbound>

The slot is unbound - it should be bound to 42.

SBCL 1.4.11 on Linux

[Stas Boukarev (stassats)]

34d83d6f5a1be0a5776d513bab8860d7bc5208c5