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

Fix the fix to PRINT-BACKTRACE on SBCL

parent b95d3a04
Loading
Loading
Loading
Loading
+1 −3
Original line number Diff line number Diff line
@@ -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))
    #+sbcl
    (sb-debug:print-backtrace
     #.(if (find-symbol* "*VERBOSITY*" "SB-DEBUG" nil) :stream '(or count most-positive-fixnum))
     stream)
    (sb-debug:print-backtrace :stream stream :count (or count most-positive-fixnum))
    #+xcl
    (loop :for i :from 0 :below (or count most-positive-fixnum)
          :for frame :in (extensions:backtrace-as-list) :do