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:             "BASIC-COMPILE-BUNDLE-OP operations are not supported on Mac OS X for this lisp.~%~T~
  To continue, push :asdf-use-unsafe-mac-bundle-op onto *FEATURES*.~%~T~
  Please report to ASDF-DEVEL if this works for you.")))
  
  
  ;;; Backward compatibility with pre-3.1.2 names
  ;; (defclass fasl-op (selfward-operation)
  ;;   ((selfward-operation :initform 'compile-bundle-op :allocation :class)))
  ;; (defclass load-fasl-op (selfward-operation)
  ;;   ((selfward-operation :initform 'load-bundle-op :allocation :class)))
  ;; (defclass binary-op (selfward-operation)
  ;;   ((selfward-operation :initform 'deliver-asd-op :allocation :class)))
  ;; (defclass monolithic-fasl-op (selfward-operation)
  ;;   ((selfward-operation :initform 'monolithic-compile-bundle-op :allocation :class)))
  ;; (defclass monolithic-load-fasl-op (selfward-operation)
  ;;   ((selfward-operation :initform 'monolithic-load-bundle-op :allocation :class)))
  ;; (defclass monolithic-binary-op (selfward-operation)
  ;;   ((selfward-operation :initform 'monolithic-deliver-asd-op :allocation :class)))
  ;;;; -------------------------------------------------------------------------
  ;;;; Concatenate-source
  
  
negative.code:     ;; don't override user's specified preference. [2015/06/29:rpg]
      (when (stringp command)
        (unless force-shell-suppliedp
          #-(and sbcl os-windows) ;; force-shell t isn't working properly on windows as of sbcl 1.2.16
          (setf force-shell t)))
      (flet ((default (x xp output) (cond (xp x) ((eq output :interactive) :interactive))))
        (apply (if (or force-shell
                       #+(or clasp clisp) (or (not ignore-error-status) t)
                       #+clisp (member error-output '(:interactive :output))
                       ;; A race condition in ECL <= 16.0.0 prevents using ext:run-program
                       #+ecl #.(if-let (ver (parse-version (lisp-implementation-version)))
                                 (lexicographic<= '< ver '(16 0 1)))
                       #+(and lispworks os-unix) (%interactivep input output error-output)
                       #+(or abcl cormanlisp gcl (and lispworks os-windows) mcl xcl) t)
                   '%use-system '%use-run-program)
  