symbol &optional (errorp t) environment)
(declare (ignore environment))
(if (and (constantp symbol)
- (legal-class-name-p (eval symbol))
+ (legal-class-name-p (setf symbol (constant-form-value symbol)))
(constantp errorp)
(member *boot-state* '(braid complete)))
- (let ((symbol (eval symbol))
- (errorp (not (null (eval errorp))))
+ (let ((errorp (not (null (constant-form-value errorp))))
(class-cell (make-symbol "CLASS-CELL")))
`(let ((,class-cell (load-time-value (find-class-cell ',symbol))))
(or (find-class-cell-class ,class-cell)