Skip to content
Snippets Groups Projects
Commit 60822c12 authored by Francois-Rene Rideau's avatar Francois-Rene Rideau
Browse files

Non-empty backtraces for ABCL and ECL.

parent 5bd59d6a
Branches
Tags
No related merge requests found
...@@ -94,7 +94,8 @@ This is designed to abstract away the implementation specific quit forms." ...@@ -94,7 +94,8 @@ This is designed to abstract away the implementation specific quit forms."
"Print a backtrace, directly accessing the implementation" "Print a backtrace, directly accessing the implementation"
(declare (ignorable stream count)) (declare (ignorable stream count))
#+abcl #+abcl
(let ((*debug-io* stream)) (top-level::backtrace-command count)) (dolist (frame (sys:backtrace))
(println frame stream))
#+allegro #+allegro
(let ((*terminal-io* stream) (let ((*terminal-io* stream)
(*standard-output* stream) (*standard-output* stream)
...@@ -117,7 +118,10 @@ This is designed to abstract away the implementation specific quit forms." ...@@ -117,7 +118,10 @@ This is designed to abstract away the implementation specific quit forms."
(debug:*debug-print-length* *print-length*)) (debug:*debug-print-length* *print-length*))
(debug:backtrace most-positive-fixnum stream)) (debug:backtrace most-positive-fixnum stream))
#+ecl #+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 #+lispworks
(let ((dbg::*debugger-stack* (let ((dbg::*debugger-stack*
(dbg::grab-stack nil :how-many (or count most-positive-fixnum))) (dbg::grab-stack nil :how-many (or count most-positive-fixnum)))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment