X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fcoerce.lisp;h=8f1507e5658dfea3739365f3119b8f56f0d91d3f;hb=076d38141d1d2689a1040dc8af71bd7fbf2b54a4;hp=81f27b2f232f4b6866a973004a6876a8a9043997;hpb=19180214a7fd95ab467020469b7182f5ac62bcde;p=sbcl.git

diff --git a/src/code/coerce.lisp b/src/code/coerce.lisp
index 81f27b2..8f1507e 100644
--- a/src/code/coerce.lisp
+++ b/src/code/coerce.lisp
@@ -122,7 +122,7 @@
          object)
         ((eq type *empty-type*)
          (coerce-error))
-        ((csubtypep type (specifier-type 'character))
+        ((type= type (specifier-type 'character))
          (character object))
         ((numberp object)
          (cond