Steel Bank Common Lisp

CLASS-DIRECT-DEFAULT-INITARGS does not work for condition classes

Reported by Jan Moringen on 2013-04-05
6
This bug affects 1 person
Affects Status Importance Assigned to Milestone
SBCL
Undecided
Unassigned

Bug Description

What I do (this is actually the test case from the patch in https://bugs.launchpad.net/sbcl/+bug/1164969):
(define-condition condition-with-default-initargs (condition)
  ()
  (:default-initargs :foo 1))

(let ((initargs (sb-mop:class-direct-default-initargs
   (find-class 'condition-with-default-initargs))))
  (assert (equal (subseq (first initargs) 0 2) '(:foo 1))))

What happens:
CLASS-DIRECT-DEFAULT-INITARGS returns nil.

What I expected to happen:
CLASS-DIRECT-DEFAULT-INITARGS returns ((:foo 1 A_THUNK)).

SBCL version: ~1.1.6

A patch is attached (or will be soon) to https://bugs.launchpad.net/sbcl/+bug/1164969.

Changed in sbcl:
status: New → Fix Committed
Changed in sbcl:
status: Fix Committed → Fix Released
To post a comment you must log in.
This report contains Public information  Edit
Everyone can see this information.

Other bug subscribers