-;;; built-in classes
-(/show0 "beginning type-init.lisp")
-(dolist (x *built-in-classes*)
- (destructuring-bind (name &key (translation nil trans-p) &allow-other-keys)
- x
- (/show0 "doing class with NAME=..")
- (/primitive-print (symbol-name name))
- (when trans-p
- (/show0 "in TRANS-P case")
- (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)))))
-