Opened 8 years ago

Closed 8 years ago

Last modified 8 years ago

#245 closed defect (fixed)

Slots of a class with a custom meta-class are reported as unbound.

Reported by: stassats Owned by: rschlatte
Priority: major Milestone: 1.1.0
Component: (A)MOP Version:
Keywords: Cc:
Parent Tickets:

Description

(defpackage test2
  (:use :cl :mop))

(in-package test2)

(defclass storable-class (standard-class)
  ())

(defmethod validate-superclass
    ((class standard-class) (superclass storable-class))
  t)

(defmethod validate-superclass
    ((class storable-class) (superclass standard-class))
  t)

;;;

(defclass identifiable ()
  ((id :accessor id
       :initform 1))
  (:metaclass storable-class))

ID slot is unbound and bound at the same time, despite having an
initform.

(describe (make-instance 'identifiable))
#<IDENTIFIABLE {181F4B24}> is an instance of #<STORABLE-CLASS IDENTIFIABLE {1E4B2D10}>.
The following slots have :INSTANCE allocation:

ID unbound

(slot-boundp (make-instance 'identifiable) 'id)
=>
NIL

(slot-value (make-instance 'identifiable) 'id)
=>
1

Change History (3)

comment:1 Changed 8 years ago by ehuelsmann

Milestone: 1.1.0
Owner: changed from ehuelsmann to rschlatte
Status: newassigned

comment:2 Changed 8 years ago by stassats

Resolution: fixed
Status: assignedclosed

Apparently, this has been fixed in ticket:14154

comment:3 Changed 8 years ago by stassats

Meaning changeset:14154

Note: See TracTickets for help on using tickets.