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