be consistent with the arguments passed to signal handlers

The :process keyword argument is used inconsistently for symbols
    denoting functions and function objects. Furthermore, it isn't
    needed and unused in our own code.
This commit is contained in:
Marius Gerbershagen 2019-02-20 21:51:28 +01:00
parent eb6854f6d9
commit c5d2408cc5
2 changed files with 5 additions and 9 deletions

View file

@ -337,15 +337,11 @@ handle_signal_now(cl_object signal_code, cl_object process)
* be a function, a symbol denoting a function or
* a symbol denoting a condition.
*/
if (cl_find_class(2, signal_code, ECL_NIL) != ECL_NIL)
if (cl_find_class(2, signal_code, ECL_NIL) != ECL_NIL) {
cl_cerror(2, str_ignore_signal, signal_code);
#ifdef ECL_THREADS
else if (!Null(process))
_ecl_funcall3(signal_code, @':process', process);
#endif
else
_ecl_funcall1(signal_code);
break;
break;
}
/* fallthrough */
case t_cfun:
case t_cfunfixed:
case t_cclosure:

View file

@ -513,7 +513,7 @@ Use special code 0 to cancel this operation.")
(restart-case (simple-terminal-interrupt)
(continue ())))
(defun terminal-interrupt (&key process (correctablep t))
(defun terminal-interrupt (&key (correctablep t))
(declare (ignore correctablep))
#+threads
(mp:without-interrupts