projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
(NO-CONSING SPECIALIZED-DX-VECTORS) fails on sunos/x86. Mark this.
[sbcl.git]
/
tests
/
debug.impure.lisp
diff --git
a/tests/debug.impure.lisp
b/tests/debug.impure.lisp
index
08bbca3
..
4d02466
100644
(file)
--- a/
tests/debug.impure.lisp
+++ b/
tests/debug.impure.lisp
@@
-151,7
+151,11
@@
(funcall fun)))
(with-test (:name (:undefined-function :bug-346)
(funcall fun)))
(with-test (:name (:undefined-function :bug-346)
- :fails-on '(or :alpha :ppc :sparc :mips
+ ;; Failures on ALPHA, SPARC, MIPS, and probably
+ ;; HPPA are due to not having a full and valid
+ ;; stack frame for the undefined function frame.
+ ;; See PPC undefined_tramp for details.
+ :fails-on '(or :alpha :sparc :mips
(and :x86-64 :freebsd)))
(assert (verify-backtrace
(lambda () (test #'optimized))
(and :x86-64 :freebsd)))
(assert (verify-backtrace
(lambda () (test #'optimized))
@@
-229,6
+233,19
@@
(throw 'no-such-tag t))
(assert (verify-backtrace #'throw-test '((throw-test))))))
(throw 'no-such-tag t))
(assert (verify-backtrace #'throw-test '((throw-test))))))
+(defun bug-308926 (x)
+ (let ((v "foo"))
+ (flet ((bar (z)
+ (oops v z)
+ (oops z v)))
+ (bar x)
+ (bar v))))
+
+(with-test (:name :bug-308926)
+ (assert (verify-backtrace (lambda () (bug-308926 13))
+ '(((flet bar :in bug-308926) 13)
+ (bug-308926 &rest t)))))
+
;;; test entry point handling in backtraces
(defun oops ()
;;; test entry point handling in backtraces
(defun oops ()