Silence compiler noise.

sbcl · Jul 13, 2016 · fd320bd · fd320bd
1 parent 5d2d20f
commit fd320bd
Showing 1 changed file with 5 additions and 1 deletion.
diff --git a/src/code/target-type.lisp b/src/code/target-type.lisp
@@ -143,7 +143,11 @@
        (typecase x
          (standard-char (specifier-type 'standard-char))
          (base-char (specifier-type 'base-char))
-         (extended-char (specifier-type 'extended-char))))
+         ;; If the last case were expressed as EXTENDED-CHAR,
+         ;; we wrongly get "this is not a (VALUES CTYPE): NIL"
+         ;; because the compiler is too naive to see that
+         ;; the last 2 cases partition CHARACTER.
+         (t (specifier-type 'extended-char))))
       #!+sb-simd-pack
       (simd-pack
        (let ((tag (%simd-pack-tag x)))