X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Frun-tests.lisp;h=bcd090db8a3d17dd649c3b48607ff8c8c5c7b5e4;hb=e119a2f79cf36039a39996f5490934b4d927529a;hp=80eaf385a4ff8b3bec53fa9a9a381e7bd790db76;hpb=b8a2248d3193902592fb58c5ea74209dc1124f08;p=sbcl.git

diff --git a/tests/run-tests.lisp b/tests/run-tests.lisp
index 80eaf38..bcd090d 100644
--- a/tests/run-tests.lisp
+++ b/tests/run-tests.lisp
@@ -124,13 +124,14 @@
         (restart-case
             (handler-bind
                 ((error (lambda (condition)
-                          (push (list :unhandled-error cl-user::file) test-util::*failures*)
+                          (push (list :unhandled-error file)
+                                test-util::*failures*)
                           (cond (*break-on-error*
                                  (test-util:really-invoke-debugger condition))
                                 (t
                                  (format *error-output* "~&Unhandled ~a: ~a~%"
                                          (type-of condition) condition)
-                                 (funcall (symbol-function (intern "BACKTRACE" :sb-debug)))))
+                                 (sb-debug:backtrace)))
                           (invoke-restart 'skip-file))))
               ,test-code)
           (skip-file ()
@@ -194,7 +195,7 @@
 (defun sh-test (file)
   ;; What? No SB-POSIX:EXECV?
   `(let ((process (sb-ext:run-program "/bin/sh"
-                                      (list (namestring ,file))
+                                      (list (native-namestring ,file))
                                       :output *error-output*)))
      (sb-ext:quit :unix-status (process-exit-code process))))