anchor.diff:                        :members
                         ,(loop :for f :in (reverse fasls)
                                :collect `(,(namestring f) :load-only t))))
  -             (scm:concatenate-system output :fasls-to-concatenate))
  +             (scm:concatenate-system output :fasls-to-concatenate :force t))
           (loop :for f :in fasls :do (ignore-errors (delete-file f)))
           (ignore-errors (lispworks:delete-system :fasls-to-concatenate))))))
   ;;;; ---------------------------------------------------------------------------
  
positive.code:   ;; but instead inherit from a basic-FOO-op as with basic-compile-bundle-op above.
  
    (defclass dll-op (link-op gather-op non-propagating-operation)
      ((bundle-type :initform :dll))
      (:documentation "compile the system and produce dynamic (.so/.dll) library for it."))
  
    (defclass deliver-asd-op (basic-compile-op selfward-operation)
      ((selfward-operation :initform '(compile-bundle-op #+(or clasp ecl mkcl) lib-op) :allocation :class))
      (:documentation "produce an asd file for delivering the system as a single fasl"))
  
  
    (defclass monolithic-deliver-asd-op (monolithic-bundle-op deliver-asd-op)
      ((selfward-operation
        :initform '(monolithic-compile-bundle-op #+(or clasp ecl mkcl) monolithic-lib-op)
        :allocation :class))
      (:documentation "produce fasl and asd files for combined system and dependencies."))
  
    (defclass monolithic-compile-bundle-op (monolithic-bundle-op basic-compile-bundle-op
                                            #+(or clasp ecl mkcl) link-op gather-op non-propagating-operation)
      ((gather-op :initform #+(or clasp ecl mkcl) 'lib-op #-(or clasp ecl mkcl) 'compile-bundle-op :allocation :class))
      (:documentation "Create a single fasl for the system and its dependencies."))
  
    (defclass monolithic-load-bundle-op (monolithic-bundle-op load-bundle-op)
      ((selfward-operation :initform 'monolithic-compile-bundle-op :allocation :class))
      (:documentation "Load a single fasl for the system and its dependencies."))
  
    (defclass monolithic-lib-op (monolithic-bundle-op lib-op non-propagating-operation) ()
      (:documentation "Create a single linkable library for the system and its dependencies."))
  
    (defclass monolithic-dll-op (monolithic-bundle-op dll-op non-propagating-operation)
      ((bundle-type :initform :dll))
      (:documentation "Create a single dynamic (.so/.dll) library for the system and its dependencies."))
  
    (defclass image-op (monolithic-bundle-op selfward-operation
                        #+(or clasp ecl mkcl) link-op #+(or clasp ecl mkcl) gather-op)
      ((bundle-type :initform :image)
       (selfward-operation :initform '(#-(or clasp ecl mkcl) load-op) :allocation :class))
      (:documentation "create an image file from the system and its dependencies"))
  
  
negative.code:   (defmacro with-staging-pathname ((pathname-var &optional (pathname-value pathname-var)) &body body)
      "Trivial syntax wrapper for CALL-WITH-STAGING-PATHNAME"
      `(call-with-staging-pathname ,pathname-value #'(lambda (,pathname-var) ,@body))))
  ;;;; -------------------------------------------------------------------------
  ;;;; Starting, Stopping, Dumping a Lisp image
  
  