1.0.23.38: fix bug 430 (stack alloc by nested defstruct constructors)

[sbcl.git] / src / compiler / codegen.lisp

diff --git a/src/compiler/codegen.lisp b/src/compiler/codegen.lisp
index 1426716..df6d06a 100644 (file)
--- a/src/compiler/codegen.lisp
+++ b/src/compiler/codegen.lisp
@@ -142,7 +142,7 @@
               (when (and cloop
                          (sb!c::loop-tail cloop)
                          (not (sb!c::loop-info cloop)))
-                (sb!assem:align sb!vm:n-lowtag-bits #x90)
+                (sb!assem:emit-alignment sb!vm:n-lowtag-bits #x90)
                 ;; Mark the loop as aligned by saving the IR1 block aligned.
                 (setf (sb!c::loop-info cloop) 1block)))
             (sb!assem:emit-label (block-label 1block)))