From 5ff7cae9ac087c5358e23310a4cf53baffc49e1e Mon Sep 17 00:00:00 2001 From: Christophe Rhodes Date: Sun, 2 Jun 2013 19:50:05 +0100 Subject: [PATCH] slightly better handling of read errors in the debugger wrap the read as well as the eval in the WITH-SIMPLE-RESTART ABORT so that the user can return to the existing debugger level on read errors. --- src/code/debug.lisp | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/src/code/debug.lisp b/src/code/debug.lisp index df913ba..150e306 100644 --- a/src/code/debug.lisp +++ b/src/code/debug.lisp @@ -1106,11 +1106,11 @@ and LDB (the low-level debugger). See also ENABLE-DEBUGGER." (flush-standard-output-streams) (debug-prompt *debug-io*) (force-output *debug-io*) - (let* ((exp (debug-read *debug-io*)) - (cmd-fun (debug-command-p exp restart-commands))) - (with-simple-restart (abort - "~@" - level) + (with-simple-restart (abort + "~@" + level) + (let* ((exp (debug-read *debug-io*)) + (cmd-fun (debug-command-p exp restart-commands))) (cond ((not cmd-fun) (debug-eval-print exp)) ((consp cmd-fun) -- 1.7.10.4