From 186be010dc222767eddfb25f01dc1db36f930a3a Mon Sep 17 00:00:00 2001 From: Dimitri Fontaine Date: Thu, 7 Nov 2013 22:41:51 +0100 Subject: [PATCH] Fix the previous hasty commit. --- src/main.lisp | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/src/main.lisp b/src/main.lisp index 504baf9..2a22cff 100644 --- a/src/main.lisp +++ b/src/main.lisp @@ -69,11 +69,11 @@ (when arguments ;; process the files (handler-bind - ((catch-the-unexpected - (lambda (c) - (if debug - (trivial-backtrace:print-backtrace c :verbose t) - (trivial-backtrace:print-condition c *standard-output*))))) + ((condition + #'(lambda (c) + (if debug + (trivial-backtrace:print-backtrace c :verbose t) + (trivial-backtrace:print-condition c *standard-output*))))) (let ((min-messages (cond (debug :debug) (verbose :info) (quiet :warning)