Commit 53b8f2bf authored by Francois-Rene Rideau's avatar Francois-Rene Rideau
Browse files

Fix the fix to PRINT-BACKTRACE on SBCL

parent b95d3a04
......@@ -142,9 +142,7 @@ This is designed to abstract away the implementation specific quit forms."
(dbg:*debug-print-length* *print-length*))
(dbg:bug-backtrace nil))
#.(if (find-symbol* "*VERBOSITY*" "SB-DEBUG" nil) :stream '(or count most-positive-fixnum))
(sb-debug:print-backtrace :stream stream :count (or count most-positive-fixnum))
(loop :for i :from 0 :below (or count most-positive-fixnum)
:for frame :in (extensions:backtrace-as-list) :do
Supports Markdown
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