diff --git a/interface/debug.lisp b/interface/debug.lisp index a977da74e03faf684b7b62d26e758c135114d7a0..753f70d39a7f48febb51ec93a3ab2e7c81aa1257 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*)