0.9.13.29:

	Fix some regressions:

        * x86 build was broken by the ALWAYS-TRANSLATABLE defknown changes
        * Some symbol package issues in the test framework caused
          --break-on-failure to stop working (patch by Yaroslav Kavenchuk)

diff --git a/package-data-list.lisp-expr b/package-data-list.lisp-expr
index e5a878e..e92df2a 100644 (file)
--- a/package-data-list.lisp-expr
+++ b/package-data-list.lisp-expr
@@ -221,6 +221,7 @@ of SBCL which maintained the CMU-CL-style split into two packages.)"
                "ALLOC-ALIEN-STACK-SPACE" "ALLOC-NUMBER-STACK-SPACE"
                "ALLOCATE-CODE-OBJECT" "ALLOCATE-FRAME"
                "ALLOCATE-DYNAMIC-CODE-OBJECT" "ALLOCATE-FULL-CALL-FRAME"
+               "ALWAYS-TRANSLATABLE"
                "ANY" "ARG-COUNT-ERROR" "ASSEMBLE-FILE"
                "ATTRIBUTES" "ATTRIBUTES-INTERSECTION" "ATTRIBUTES-UNION"
                "ATTRIBUTES=" "BIND"

diff --git a/tests/run-tests.lisp b/tests/run-tests.lisp
index 80eaf38..ae0fee2 100644 (file)
--- 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 ()