anchor.diff:                                         :if-exists :supersede
                                          :direction :output)
             (write-llf-header output-stream input-file)
  -
             (let ((*llf-dry-run* nil))
               (dolist (cmd commands)
                 (dolist (o (cdr cmd))
  
positive.code: (defvar *current-deferred-function* nil)
  
  (defun add-to-llf (action &rest objects)
    (if *current-deferred-function*
        (push (list* action objects)
              (deferred-function-additional-commands
                  *current-deferred-function*))
        (push (list* action objects) *llf-forms*)))
  
  (defun compile-file-load-time-value (form read-only-p)
    (declare (ignore read-only-p))
  
negative.code:   (if (and *compile-parallel*
             ;; If true, then this is a worker thread compiling something.
             ;; Don't schedule more work, just do it here.
             (not *current-deferred-function*)
             ;; If true then a make-load-form is actively being compiled
             ;; and is running in the context of save-object, now long past
             ;; the time that parallel compilation can be done.
             (not *compiling-make-load-form*))
        (let ((fn (make-instance 'deferred-function
                                 :ast (mezzano.compiler::pass1-lambda lambda env)
                                 :tlf-number *top-level-form-number*)))
  