From 73fd9e7121ff67a32d438f9ef29b8ff1a5d245b8 Mon Sep 17 00:00:00 2001
From: ram <ram>
Date: Fri, 2 Jul 1993 14:17:31 +0000
Subject: [PATCH] When computing restarts, pass in the condition.

---
 interface/debug.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/interface/debug.lisp b/interface/debug.lisp
index a977da74e..753f70d39 100644
--- a/interface/debug.lisp
+++ b/interface/debug.lisp
@@ -563,7 +563,7 @@
       (funcall hook condition hook)))
   (unix:unix-sigsetmask 0)
   (let* ((*debug-condition* condition)
-	 (*debug-restarts* (compute-restarts))
+	 (*debug-restarts* (compute-restarts condition))
 	 (*standard-input* *debug-io*)          ;in case of setq
 	 (*standard-output* *debug-io*)         ;''  ''  ''  ''
 	 (*error-output* *debug-io*)
-- 
GitLab