projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
0.8.18.13:
[sbcl.git]
/
src
/
compiler
/
generic
/
early-type-vops.lisp
diff --git
a/src/compiler/generic/early-type-vops.lisp
b/src/compiler/generic/early-type-vops.lisp
index
fff6768
..
8c854fb
100644
(file)
--- a/
src/compiler/generic/early-type-vops.lisp
+++ b/
src/compiler/generic/early-type-vops.lisp
@@
-11,12
+11,11
@@
(in-package "SB!VM")
\f
(defparameter *immediate-types*
(in-package "SB!VM")
\f
(defparameter *immediate-types*
- (list unbound-marker-widetag base-char-widetag))
+ (list unbound-marker-widetag character-widetag))
(defparameter *fun-header-widetags*
(list funcallable-instance-header-widetag
simple-fun-header-widetag
(defparameter *fun-header-widetags*
(list funcallable-instance-header-widetag
simple-fun-header-widetag
- closure-fun-header-widetag
closure-header-widetag))
(defun canonicalize-headers (headers)
closure-header-widetag))
(defun canonicalize-headers (headers)
@@
-58,7
+57,7
@@
(if (subsetp headers *fun-header-widetags*)
t
(error "can't test for mix of function subtypes ~
(if (subsetp headers *fun-header-widetags*)
t
(error "can't test for mix of function subtypes ~
- and normal header types"))
+ and normal header types"))
nil)))
(unless type-codes
(error "At least one type must be supplied for TEST-TYPE."))
nil)))
(unless type-codes
(error "At least one type must be supplied for TEST-TYPE."))