Commit 60822c12 authored by Francois-Rene Rideau's avatar Francois-Rene Rideau
Browse files

Non-empty backtraces for ABCL and ECL.

parent 5bd59d6a
......@@ -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)))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment