projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
fix long-standing debug-name confusion
[sbcl.git]
/
tests
/
debug.impure.lisp
diff --git
a/tests/debug.impure.lisp
b/tests/debug.impure.lisp
index
dab0481
..
65683d4
100644
(file)
--- a/
tests/debug.impure.lisp
+++ b/
tests/debug.impure.lisp
@@
-346,14
+346,17
@@
(assert (verify-backtrace #'bt.2.3
'((bt.2.3 &rest))))))
(assert (verify-backtrace #'bt.2.3
'((bt.2.3 &rest))))))
+;;; This test is somewhat deceptively named. Due to confusion in debug naming
+;;; these functions used to have sb-c::varargs-entry debug names for their
+;;; main lambda.
(with-test (:name (:backtrace :varargs-entry))
(with-details t
(assert (verify-backtrace #'bt.3.1
(with-test (:name (:backtrace :varargs-entry))
(with-details t
(assert (verify-backtrace #'bt.3.1
- '(((sb-c::varargs-entry bt.3.1) :key nil))))
+ '((bt.3.1 :key nil))))
(assert (verify-backtrace #'bt.3.2
(assert (verify-backtrace #'bt.3.2
- '(((sb-c::varargs-entry bt.3.2) :key ?))))
+ '((bt.3.2 :key ?))))
(assert (verify-backtrace #'bt.3.3
(assert (verify-backtrace #'bt.3.3
- '(((sb-c::varargs-entry bt.3.3) &rest)))))
+ '((bt.3.3 &rest)))))
(with-details nil
(assert (verify-backtrace #'bt.3.1
'((bt.3.1 :key nil))))
(with-details nil
(assert (verify-backtrace #'bt.3.1
'((bt.3.1 :key nil))))
@@
-362,14
+365,17
@@
(assert (verify-backtrace #'bt.3.3
'((bt.3.3 &rest))))))
(assert (verify-backtrace #'bt.3.3
'((bt.3.3 &rest))))))
+;;; This test is somewhat deceptively named. Due to confusion in debug naming
+;;; these functions used to have sb-c::hairy-args-processor debug names for
+;;; their main lambda.
(with-test (:name (:backtrace :hairy-args-processor))
(with-details t
(assert (verify-backtrace #'bt.4.1
(with-test (:name (:backtrace :hairy-args-processor))
(with-details t
(assert (verify-backtrace #'bt.4.1
- '(((sb-c::hairy-arg-processor bt.4.1) ?))))
+ '((bt.4.1 ?))))
(assert (verify-backtrace #'bt.4.2
(assert (verify-backtrace #'bt.4.2
- '(((sb-c::hairy-arg-processor bt.4.2) ?))))
+ '((bt.4.2 ?))))
(assert (verify-backtrace #'bt.4.3
(assert (verify-backtrace #'bt.4.3
- '(((sb-c::hairy-arg-processor bt.4.3) &rest)))))
+ '((bt.4.3 &rest)))))
(with-details nil
(assert (verify-backtrace #'bt.4.1
'((bt.4.1 ?))))
(with-details nil
(assert (verify-backtrace #'bt.4.1
'((bt.4.1 ?))))