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