X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Fwin32-foreign-stack-unwind.impure.lisp;h=40a63623b3353bde61ce8be50bb8ed5982fc0f1b;hb=e6d83d25e4cc19a43498703e2262ff1f60939f85;hp=2d78069b8a136dafb60736dd14d337b5ef1e5d9c;hpb=45b5a21316381ecab98a0e5a5296294e044170e8;p=sbcl.git

diff --git a/tests/win32-foreign-stack-unwind.impure.lisp b/tests/win32-foreign-stack-unwind.impure.lisp
index 2d78069..40a6362 100755
--- a/tests/win32-foreign-stack-unwind.impure.lisp
+++ b/tests/win32-foreign-stack-unwind.impure.lisp
@@ -11,7 +11,7 @@
 ;;;; absolutely no warranty. See the COPYING and CREDITS files for
 ;;;; more information.
 
-#-win32 (quit :unix-status 104) ;; This is extremely win32-specific.
+#-win32 (exit :code 104) ;; This is extremely win32-specific.
 
 (use-package :sb-alien)
 
@@ -19,6 +19,7 @@
 ;;; go away.
 (import 'sb-alien::alien-lambda)
 
+;;; 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"
@@ -30,7 +31,7 @@
 
 (run-compiler)
 
-(load-shared-object "win32-stack-unwind.dll")
+(load-shared-object (truename "win32-stack-unwind.dll"))
 
 
 (defvar *current-test-callback*)