fix call-with-task-handler type

lmj · May 5, 2012 · 9d60e23 · 9d60e23
1 parent 7283e5a
commit 9d60e23
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/kernel/handling.lisp b/src/kernel/handling.lisp
@@ -113,7 +113,7 @@ control (or not)."
                        :report-function #'transfer-error-report))
         (funcall fn)))))
 
-(defun/type call-with-task-handler (fn) (function) t
+(defun/type call-with-task-handler (fn) (function) (values &rest t)
   (declare #.*normal-optimize*)
   (with-task-context
     (if *handler-active-p*