anchor.diff:      (error "Engine already stopped"))
     (in-new-thread-waiting "shutdown-worker"
       (disable-systems *engine*))
  -  (dispose *engine*)
  -  (setf *engine* nil)
  +  (let ((latch (%stop-latch-of *engine*)))
  +    (dispose *engine*)
  +    (setf *engine* nil)
  +    (mt:open-latch latch))
     (values))
   
   
  
positive.code:    (shared-executors :initform nil)
     (shared-pool :initform nil)
     (comatose-p :initform nil)
     (disabling-order :initform '())))
  
  
  
negative.code:     (dispose ex)))
  
  
  (defun startup (properties &key (working-directory (directory-namestring
                                                      (current-executable-path)))
                               blocking)
    "Start engine synchronously loading configuration from `properties` (file, hash-table, plist
  or alist). `(:engine :systems)` property must exist in the config and should contain list
  of existing system class names loaded into current lisp image. Specified systems and their
  