From e4cdda1182558066e45629414b078bd33cc2561d Mon Sep 17 00:00:00 2001 From: Stas Boukarev Date: Wed, 20 Apr 2016 19:30:54 +0300 Subject: [PATCH] Remove a spurious character in SIGNAL. --- src/clos/conditions.lsp | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) diff --git a/src/clos/conditions.lsp b/src/clos/conditions.lsp index ecc6d3989..d8ccf1a66 100644 --- a/src/clos/conditions.lsp +++ b/src/clos/conditions.lsp @@ -403,7 +403,7 @@ (defun signal (datum &rest arguments) (let* ((condition - (coerce-to-condition datum arguments 'SIMPLE-CONDITION 'SIGNAL)) + (coerce-to-condition datum arguments 'SIMPLE-CONDITION 'SIGNAL)) (*handler-clusters* *handler-clusters*)) (if (typep condition *break-on-signals*) (break "~A~%Break entered because of *BREAK-ON-SIGNALS*." @@ -411,9 +411,8 @@ (loop (unless *handler-clusters* (return)) (let ((cluster (pop *handler-clusters*))) (dolist (handler cluster) -< (when (typep condition (car handler)) - (funcall (cdr handler) condition) - )))) + (when (typep condition (car handler)) + (funcall (cdr handler) condition))))) nil))