Add execute-task to execute task and discard return value

src/kernel/core.lisp

@@ -502,6 +502,17 @@ Calling `broadcast-task' from inside a worker is an error."
     (repeat worker-count (push-queue t to-workers))
     (map-into (make-array worker-count) (lambda () (receive-result channel)))))
 
+(defun submit-bare-task (fn &rest args)
+  "Schedule a task to be run with the current value of `*kernel*'.
+
+The result of the function call is discarded."
+  (declare #.*normal-optimize*)
+  (submit-raw-task (make-task (task-lambda (apply fn args)))
+                   *kernel*))
+
+(defmacro bare-task (&body body)
+  `(submit-bare-task (lambda () ,@body)))
+
 (defun track-exit ()
   (setf *lisp-exiting-p* t))
 

src/kernel/package.lisp

@@ -51,6 +51,8 @@
   (:export #:make-channel
            #:submit-task
            #:broadcast-task
+           #:submit-bare-task
+           #:bare-task
            #:submit-timeout
            #:cancel-timeout
            #:receive-result

test/kernel-test.lisp

@@ -697,7 +697,15 @@
       (signals error
         (receive-result channel)))
     (signals error
-      (broadcast-task (lambda () (broadcast-task (lambda ())))))))
+             (broadcast-task (lambda () (broadcast-task (lambda ())))))))
+
+(full-test bare-task-test
+  (let ((queue (make-queue :fixed-capacity 1)))
+    (submit-bare-task (lambda (v)
+                        (sleep 0.5)
+                        (push-queue v queue)) t)
+    (is (null (try-pop-queue queue :timeout 0)))
+    (is (try-pop-queue queue :timeout 1))))
 
 (full-test worker-index-test
   (is (null (kernel-worker-index)))