projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
0.8.16.10:
[sbcl.git]
/
src
/
code
/
target-type.lisp
diff --git
a/src/code/target-type.lisp
b/src/code/target-type.lisp
index
ddf35ed
..
f8dccd3
100644
(file)
--- a/
src/code/target-type.lisp
+++ b/
src/code/target-type.lisp
@@
-33,6
+33,7
@@
named-type
member-type
array-type
named-type
member-type
array-type
+ character-set-type
built-in-classoid
cons-type)
(values (%typep obj type) t))
built-in-classoid
cons-type)
(values (%typep obj type) t))
@@
-191,6
+192,8
@@
:specialized-element-type etype)))
(cons
(make-cons-type *universal-type* *universal-type*))
:specialized-element-type etype)))
(cons
(make-cons-type *universal-type* *universal-type*))
+ (character
+ (specifier-type 'character))
(t
(classoid-of x))))
(t
(classoid-of x))))