(class-cell (make-symbol "CLASS-CELL")))
`(let ((,class-cell (load-time-value (find-class-cell ',symbol))))
(or (find-class-cell-class ,class-cell)
(class-cell (make-symbol "CLASS-CELL")))
`(let ((,class-cell (load-time-value (find-class-cell ',symbol))))
(or (find-class-cell-class ,class-cell)