projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
0.pre8.25:
[sbcl.git]
/
src
/
compiler
/
globaldb.lisp
diff --git
a/src/compiler/globaldb.lisp
b/src/compiler/globaldb.lisp
index
a5af23c
..
242445e
100644
(file)
--- a/
src/compiler/globaldb.lisp
+++ b/
src/compiler/globaldb.lisp
@@
-1252,8
+1252,8
@@
;;; meaningful error if we only have the cons.
(define-info-type
:class :type
;;; meaningful error if we only have the cons.
(define-info-type
:class :type
- :type :class
- :type-spec (or sb!kernel::class-cell null)
+ :type :classoid
+ :type-spec (or sb!kernel::classoid-cell null)
:default nil)
;;; layout for this type being used by the compiler
:default nil)
;;; layout for this type being used by the compiler
@@
-1261,8
+1261,8
@@
:class :type
:type :compiler-layout
:type-spec (or layout null)
:class :type
:type :compiler-layout
:type-spec (or layout null)
- :default (let ((class (sb!xc:find-class name nil)))
- (when class (class-layout class))))
+ :default (let ((class (find-classoid name nil)))
+ (when class (classoid-layout class))))
(define-info-class :typed-structure)
(define-info-type
(define-info-class :typed-structure)
(define-info-type