diff --git a/uiop/image.lisp b/uiop/image.lisp index f3842a9205ac128ae407d71dab3417848e855f3b..60604862d8dc2aaae1fa7ca9bf6bd5d8e856d94d 100644 --- a/uiop/image.lisp +++ b/uiop/image.lisp @@ -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