X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fcodegen.lisp;h=b0107e189904b28852241eb0b94a1de53103b3d2;hb=d01d509257052e694365b76be5ab597fa06764ec;hp=37384dc2d41e8d594bbda9d948510064f67eee0c;hpb=293488f3b117854e12b0d7f4faeb742b707bbc9c;p=sbcl.git

diff --git a/src/compiler/codegen.lisp b/src/compiler/codegen.lisp
index 37384dc..b0107e1 100644
--- a/src/compiler/codegen.lisp
+++ b/src/compiler/codegen.lisp
@@ -187,6 +187,7 @@
         (let ((constants (sb!vm:sort-inline-constants *constant-vector*)))
           (assemble (*constant-segment*)
             (sb!vm:emit-constant-segment-header
+             *constant-segment*
              constants
              (do-ir2-blocks (2block component nil)
                (when (policy (block-last (ir2-block-block 2block))