projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
0.pre7.31:
[sbcl.git]
/
src
/
code
/
type-init.lisp
diff --git
a/src/code/type-init.lisp
b/src/code/type-init.lisp
index
0c12825
..
b8c8d90
100644
(file)
--- a/
src/code/type-init.lisp
+++ b/
src/code/type-init.lisp
@@
-22,10
+22,8
@@
(dolist (x *built-in-classes*)
(destructuring-bind (name &key (translation nil trans-p) &allow-other-keys)
x
(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))
(when trans-p
(/show0 "in TRANS-P case")
(let ((class (class-cell-class (find-class-cell name)))
(when trans-p
(/show0 "in TRANS-P case")
(let ((class (class-cell-class (find-class-cell name)))