(inherits-list (second x))
(class (make-standard-class :name name))
(class-cell (find-class-cell name)))
(inherits-list (second x))
(class (make-standard-class :name name))
(class-cell (find-class-cell name)))
(setf (class-cell-class class-cell) class
(info :type :class name) class-cell
(info :type :kind name) :instance)
(setf (class-cell-class class-cell) class
(info :type :class name) class-cell
(info :type :kind name) :instance)