From 1f4352dcd6058a8eb92d2fd379e98c82e46e8d76 Mon Sep 17 00:00:00 2001 From: "Robert P. Goldman" <rpgoldman@sift.net> Date: Sat, 8 May 2021 17:27:30 -0500 Subject: [PATCH] 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. --- uiop/image.lisp | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/uiop/image.lisp b/uiop/image.lisp index f3842a920..60604862d 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 -- GitLab