anchor.diff:                                                          (shiftf *pending-actions* '()))))
                                                   (mapc #'funcall actions)))
                                             :single-shot nil))
  -                        (bt:condition-notify loop-ready)))
  +                        (bt:condition-notify loop-ready))
  +                      (when on-startup
  +                        (funcall on-startup)))
                    (format *debug-io* "~&;; event thread exited.~%")))
              :name "event-thread"))
       (bt:with-lock-held (loop-ready-lock)
  
positive.code:   "Wrap ACTION (a function) by establishing ABORT-CALLBACK and EXIT-EVENT-LOOP restarts."
    #'(lambda ()
        (cl-async-util:call-with-callback-restarts
          action 
          :abort-restart-description "Abort the current action.")))
  
  (defun schedule-action (action)
  
negative.code: (defpackage :cl-async-repl
    (:use :cl)
    (:nicknames :as-repl)
    (:export #:event-thread-running-p
             #:start-async-repl
             #:ensure-async-repl
             #:stop-async-repl))
  
  (in-package :cl-async-repl)
  