X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=src%2Fcode%2Fcoerce.lisp;h=81f27b2f232f4b6866a973004a6876a8a9043997;hb=4255b37e50876702d2563f3418a44a3f5bf8a2e8;hp=2fc9ff155f0c4eddb0aef8b44c23c8d4dbe4cc09;hpb=709547dfb0905983f23bf131c43affe7788a7e9f;p=sbcl.git

diff --git a/src/code/coerce.lisp b/src/code/coerce.lisp
index 2fc9ff1..81f27b2 100644
--- a/src/code/coerce.lisp
+++ b/src/code/coerce.lisp
@@ -241,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)))