;;; 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
;;; 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
- #+sb-show (progn
- (/show0 "doing class with name=..")
- #+sb-xc-host (/show0 name)
- #-sb-xc-host (%primitive print (symbol-name name)))
+ (/show0 "doing class with NAME=..")
+ (/primitive-print (symbol-name name))
;;; FIXME: It should be possible to do this in the cross-compiler,
;;; but currently the cross-compiler's type system is too dain-bramaged to
;;; FIXME: It should be possible to do this in the cross-compiler,
;;; but currently the cross-compiler's type system is too dain-bramaged to