From 24e173765bf0859fd8ed059668369c7ffc26c269 Mon Sep 17 00:00:00 2001 From: Juho Snellman Date: Tue, 6 Jun 2006 17:11:16 +0000 Subject: [PATCH] 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) --- package-data-list.lisp-expr | 1 + tests/run-tests.lisp | 5 +++-- 2 files changed, 4 insertions(+), 2 deletions(-) diff --git a/package-data-list.lisp-expr b/package-data-list.lisp-expr index e5a878e..e92df2a 100644 --- 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 --- 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 () -- 1.7.10.4