X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=src%2Fcode%2Ftarget-type.lisp;h=f8dccd315ed0a03a90ea63a29d53d486bfb4d5d6;hb=2034cb134af58c5998f4e305673af6e2c75bc179;hp=ddf35edcfbb567b723ca0965af6a2114f97061e7;hpb=63817d29028c8551cda23f432a3328acd7fdd62f;p=sbcl.git

diff --git a/src/code/target-type.lisp b/src/code/target-type.lisp
index ddf35ed..f8dccd3 100644
--- 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,6 +192,8 @@
 			:specialized-element-type etype)))
     (cons
      (make-cons-type *universal-type* *universal-type*))
+    (character
+     (specifier-type 'character))
     (t
      (classoid-of x))))