X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fx86-64%2Fnlx.lisp;h=5425b3bd84d1b4358b7e7b4018dc86874cadbfb2;hb=ed891a4fd882d1b9fe066ab14bcf2107aea95baa;hp=96cf3f870d3b60f1ee6497afe3eaf8b169b5ef2b;hpb=508d38dc908e6d9f951d539874bf87bd85f8c902;p=sbcl.git

diff --git a/src/compiler/x86-64/nlx.lisp b/src/compiler/x86-64/nlx.lisp
index 96cf3f8..5425b3b 100644
--- a/src/compiler/x86-64/nlx.lisp
+++ b/src/compiler/x86-64/nlx.lisp
@@ -212,7 +212,7 @@
     (inst std)
     (inst rep)
     (inst movs :qword)
-
+    (inst cld)
     DONE
     ;; Reset the CSP at last moved arg.
     (inst lea rsp-tn (make-ea :qword :base rdi :disp n-word-bytes))))