[elephant-devel] Status of Elephant Unstable Branch

[Ian Eslick]

Thank you!  Added and committed.  -Ian

On Mar 25, 2008, at 6:40 AM, kmkaplan+elephant at ded.kim-minh.com wrote:
> +(deftest slot-unbound
> +    (progn
> +      (defclass class-one ()
> +       (slot1 slot2)
> +       (:metaclass persistent-metaclass))
> +      (defmethod slot-unbound (class (instance class-one)
> +                              (slot-name (eql 'slot2)))
> +       t)
> +      (let ((inst (make-instance 'class-one)))
> +       (values
> +        (signals-specific-condition (unbound-slot)
> +          (slot-value inst 'slot1))
> +        (is-not-null (eq t (slot-value inst 'slot2))))))
> +  t t)