Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
Didier Verna
asdf
Commits
60822c12
Commit
60822c12
authored
Oct 25, 2013
by
Francois-Rene Rideau
Browse files
Non-empty backtraces for ABCL and ECL.
parent
5bd59d6a
Changes
1
Hide whitespace changes
Inline
Side-by-side
uiop/image.lisp
View file @
60822c12
...
...
@@ -94,7 +94,8 @@ This is designed to abstract away the implementation specific quit forms."
"Print a backtrace, directly accessing the implementation"
(
declare
(
ignorable
stream
count
))
#+
abcl
(
let
((
*debug-io*
stream
))
(
top-level::backtrace-command
count
))
(
dolist
(
frame
(
sys:backtrace
))
(
println
frame
stream
))
#+
allegro
(
let
((
*terminal-io*
stream
)
(
*standard-output*
stream
)
...
...
@@ -117,7 +118,10 @@ This is designed to abstract away the implementation specific quit forms."
(
debug:*debug-print-length*
*print-length*
))
(
debug:backtrace
most-positive-fixnum
stream
))
#+
ecl
(
si::tpl-backtrace
)
(
let*
((
backtrace
(
loop
:for
ihs
:from
0
:below
(
si:ihs-top
)
:collect
(
list
(
si::ihs-fun
ihs
)
(
si::ihs-env
ihs
)))))
(
dolist
(
frame
(
nreverse
backtrace
))
(
writeln
frame
:stream
stream
)))
#+
lispworks
(
let
((
dbg::*debugger-stack*
(
dbg::grab-stack
nil
:how-many
(
or
count
most-positive-fixnum
)))
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment