mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-24 05:21:20 -08:00
Code Issues Projects Releases Packages Wiki Activity

Remove a spurious character in SIGNAL.

Browse source
This commit is contained in:
Stas Boukarev 2016-04-20 19:30:54 +03:00
parent a2773fa7e6
commit e4cdda1182
1 changed files with 3 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

7
src/clos/conditions.lsp
View file

@ -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))