X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Fwin32-foreign-stack-unwind.impure.lisp;h=43c2a3ba378a64ce09628a9dcc0bb3d2e826b1ca;hb=9ebf496afbad179facaa8db5d45e5a807b1c002c;hp=18f6230b0f7bdab6f32dead7eba3b50574fc5450;hpb=801730762f17302c33b70398b632aa1393c6722a;p=sbcl.git

diff --git a/tests/win32-foreign-stack-unwind.impure.lisp b/tests/win32-foreign-stack-unwind.impure.lisp
index 18f6230..43c2a3b 100755
--- a/tests/win32-foreign-stack-unwind.impure.lisp
+++ b/tests/win32-foreign-stack-unwind.impure.lisp
@@ -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"