X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Fwin32-foreign-stack-unwind.impure.lisp;h=ba5727fc2335cfb014c085ee3f426a198fbfc8de;hb=062283b901155792f65775491aea51481c56faaa;hp=99ff7c389d3cce831a6e960c908dd8ec46f03526;hpb=179de85ab4fdff049c72ddb2767b93d838494b09;p=sbcl.git diff --git a/tests/win32-foreign-stack-unwind.impure.lisp b/tests/win32-foreign-stack-unwind.impure.lisp index 99ff7c3..ba5727f 100755 --- a/tests/win32-foreign-stack-unwind.impure.lisp +++ b/tests/win32-foreign-stack-unwind.impure.lisp @@ -22,8 +22,7 @@ ;;; XXX XXX this should change to use run-compiler.sh, now that we have it (defun run-compiler () - (let ((proc (run-program "gcc" '("win32-stack-unwind.c" - "-mno-cygwin" "-shared" + (let ((proc (run-program "gcc" '("win32-stack-unwind.c" "-shared" "-o" "win32-stack-unwind.dll") :search t))) (unless (zerop (process-exit-code proc))