- (let ((classoid (classoid-cell-classoid (find-classoid-cell name)))
- (type (specifier-type translation)))
- (setf (built-in-classoid-translation classoid) type)
- (setf (info :type :builtin name) type)))))
+ (let ((classoid (classoid-cell-classoid (find-classoid-cell name :create t)))
+ (type (specifier-type translation)))
+ (setf (built-in-classoid-translation classoid) type)
+ (setf (info :type :builtin name) type)))))