(type (specifier-type translation)))
(setf (built-in-classoid-translation classoid) type)
(setf (info :type :builtin name) type)))))
(type (specifier-type translation)))
(setf (built-in-classoid-translation classoid) type)
(setf (info :type :builtin name) type)))))