-;;; 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 ((class (class-cell-class (find-class-cell name)))
- (type (specifier-type translation)))
- (setf (built-in-class-translation class) type)
- (setf (info :type :builtin name) type)))))
-