1.0.4.8:

[sbcl.git] / src / assembly / x86 / alloc.lisp

diff --git a/src/assembly/x86/alloc.lisp b/src/assembly/x86/alloc.lisp
index a0bac4f..b300396 100644 (file)
--- a/src/assembly/x86/alloc.lisp
+++ b/src/assembly/x86/alloc.lisp
@@ -72,8 +72,8 @@
      ((:temp ,arg-tn descriptor-reg ,(intern (format nil "~A-OFFSET" arg-tn))))
      (pseudo-atomic
       (allocation ,arg-tn (pad-data-block ,(intern (format nil "~A-SIZE" obj))))
-      (inst lea ,arg-tn (make-ea :byte :base ,arg-tn :disp ,lowtag))
-      (inst ret))))
+      (inst lea ,arg-tn (make-ea :byte :base ,arg-tn :disp ,lowtag)))
+     (inst ret)))
 
 #+sb-assembling
 (macrolet ((frob-cons-routines ()