X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fcoerce.lisp;h=8f1507e5658dfea3739365f3119b8f56f0d91d3f;hb=03e8baab974e52e86df105ee269e83efd65e3d8e;hp=a4a93f0c41c78477982247775110fb0683860923;hpb=6de517974934588c8b5c6355e04bef11af9db3d0;p=sbcl.git

diff --git a/src/code/coerce.lisp b/src/code/coerce.lisp
index a4a93f0..8f1507e 100644
--- a/src/code/coerce.lisp
+++ b/src/code/coerce.lisp
@@ -80,9 +80,6 @@
         ;; FIXME: If we go to a compiler-only implementation, this can
         ;; become COMPILE instead of EVAL, which seems nicer to me.
         (eval `(function ,object)))
-       ((instance-lambda)
-        (deprecation-warning 'instance-lambda 'lambda)
-        (eval `(function ,object)))
        (t
         (error 'simple-type-error
                :datum object
@@ -125,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
@@ -244,6 +241,8 @@
         ((and (csubtypep type (specifier-type 'sequence))
               (find-class output-type-spec nil))
          (let ((class (find-class output-type-spec)))
+           (unless (sb!mop:class-finalized-p class)
+             (sb!mop:finalize-inheritance class))
            (sb!sequence:make-sequence-like
             (sb!mop:class-prototype class)
             (length object) :initial-contents object)))