Commit 1f4352dc authored by Robert Goldman's avatar Robert Goldman
Browse files

Add print-backtrace for clasp.

Add new code for printing backtrace on clasp.  Previously, UIOP
treated clasp as if it was ECL.  Now we invoke
`clasp-debug:print-backtrace`, instead.
parent 4b1102ed
......@@ -105,7 +105,9 @@ This is designed to abstract away the implementation specific quit forms."
:from-read-eval-print-loop nil
:count (or count t)
:all t))
#+(or clasp ecl mkcl)
#+clasp
(clasp-debug:print-backtrace :stream stream :count count)
#+(or ecl mkcl)
(let* ((top (si:ihs-top))
(repeats (if count (min top count) top))
(backtrace (loop :for ihs :from 0 :below top
......
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