0.9.1.36:

[sbcl.git] / src / code / target-type.lisp

diff --git a/src/code/target-type.lisp b/src/code/target-type.lisp
index ddf35ed..5639b78 100644 (file)
--- a/src/code/target-type.lisp
+++ b/src/code/target-type.lisp
@@ -33,6 +33,7 @@
         named-type
         member-type
         array-type
+        character-set-type
         built-in-classoid
         cons-type)
      (values (%typep obj type) t))
@@ -191,10 +192,9 @@
                        :specialized-element-type etype)))
     (cons
      (make-cons-type *universal-type* *universal-type*))
+    (character
+     (specifier-type 'character))
     (t
      (classoid-of x))))
-
-;;; Clear this cache on GC so that we don't hold onto too much garbage.
-(pushnew 'ctype-of-cache-clear *before-gc-hooks*)
 \f
 (!defun-from-collected-cold-init-forms !target-type-cold-init)