X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fx86%2Fnlx.lisp;h=f1ecca514bd1a2bbda4d72d813d617940c05e4bd;hb=40e3ba03d0e1b824e4d1ae75d74246b975b70964;hp=862688f9ee01f19a1a3433511509f86c885536ee;hpb=891f4de22b8a291d76d2e74e2a775e4bb659921f;p=sbcl.git

diff --git a/src/compiler/x86/nlx.lisp b/src/compiler/x86/nlx.lisp
index 862688f..f1ecca5 100644
--- a/src/compiler/x86/nlx.lisp
+++ b/src/compiler/x86/nlx.lisp
@@ -214,6 +214,8 @@
     (inst movs :dword)
 
     DONE
+    ;; solaris requires DF being zero.
+    #!+sunos (inst cld)
     ;; Reset the CSP at last moved arg.
     (inst lea esp-tn (make-ea :dword :base edi :disp n-word-bytes))))