Closed sasagawa888 closed 1 year ago
($eval (defclass a-3 () ())) ($eval (defglobal a-3 (create (class a-3)))) ($test (eq (class-of a-3) (class a-3)) t) ($eval (defclass a-3 () ())) ($test (eq (class-of a-3) (class )) t)
(class-of a-3) should return class.
Fixed.
($eval (defclass a-3 () ())) ($eval (defglobal a-3 (create (class a-3)))) ($test (eq (class-of a-3) (class a-3)) t) ($eval (defclass a-3 () ())) ($test (eq (class-of a-3) (class)) t)
(class-of a-3) should return class.