[Sbcl-devel] patch for tests/run-tests.lisp - v.2.

[Yaroslav K. <kav...@je...>]

Now it work:

--- tests/run-tests.lisp    Sun Jun  4 16:05:32 2006
+++ tests/run-tests.lisp    Mon Jun  5 11:46:11 2006
@@ -124,13 +124,13 @@
          (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 ()