X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fx86-64%2Falloc.lisp;h=8a3553c929b8ffb4b578d15bbbaa7a61b245eecf;hb=9627f5a03e642fa950e1557fef17c506dfd386a6;hp=c7b7de2549fee91ae6e704a8fe7183466488bbf8;hpb=66cff1e1319861c080d563359afea284614b3a7f;p=sbcl.git

diff --git a/src/compiler/x86-64/alloc.lisp b/src/compiler/x86-64/alloc.lisp
index c7b7de2..8a3553c 100644
--- a/src/compiler/x86-64/alloc.lisp
+++ b/src/compiler/x86-64/alloc.lisp
@@ -255,7 +255,7 @@
   (:results (result :scs (descriptor-reg)))
   (:node-var node)
   (:generator 50
-    (pseudo-atomic
+    (maybe-pseudo-atomic stack-allocate-p
      (allocation result (pad-data-block words) node stack-allocate-p)
      (inst lea result (make-ea :byte :base result :disp lowtag))
      (when type