Commit 7f85e3eb authored by Francois-Rene Rideau's avatar Francois-Rene Rideau
Browse files

1.30.7: hush poiu a little

parent ede520b7
Loading
Loading
Loading
Loading
+1 −0
Original line number Original line Diff line number Diff line
*.*f*sl
*.*f*sl
foo
+5 −5
Original line number Original line Diff line number Diff line
@@ -3,8 +3,8 @@
#+xcvb (module (:depends-on ("asdf")))
#+xcvb (module (:depends-on ("asdf")))
(in-package :asdf)
(in-package :asdf)
(eval-when (:compile-toplevel :load-toplevel :execute)
(eval-when (:compile-toplevel :load-toplevel :execute)
(defparameter *poiu-version* "1.30.6")
(defparameter *poiu-version* "1.30.7")
(defparameter *asdf-version-required-by-poiu* "3.0.1.4"))
(defparameter *asdf-version-required-by-poiu* "3.0.1.4")) ;; make-plan
#|
#|
POIU is a modification of ASDF that may operate on your systems in parallel.
POIU is a modification of ASDF that may operate on your systems in parallel.
This version of POIU was designed to work with ASDF no earlier than specified.
This version of POIU was designed to work with ASDF no earlier than specified.
@@ -356,7 +356,7 @@ The original copyright and (MIT-style) licence of ASDF (below) applies to POIU:
        (error "Cycle detected in the dependency graph:~%~S"
        (error "Cycle detected in the dependency graph:~%~S"
               plan)))))
               plan)))))


(defmethod make-plan :around (plan-class (o operation) (c component) &rest keys &key &allow-other-keys)
(defmethod make-plan :around (plan-class (o operation) (c component) &key &allow-other-keys)
  (let ((plan (call-next-method)))
  (let ((plan (call-next-method)))
    (when (typep plan 'parallel-plan)
    (when (typep plan 'parallel-plan)
      ;; make a plan once already and destructively check it
      ;; make a plan once already and destructively check it
@@ -770,7 +770,7 @@ The original copyright and (MIT-style) licence of ASDF (below) applies to POIU:
                  (destructuring-bind (&key &allow-other-keys) result)))
                  (destructuring-bind (&key &allow-other-keys) result)))
               (when backgroundp
               (when backgroundp
                 (decf planned-output-action-count)
                 (decf planned-output-action-count)
                 (format t "~&[~vd to go] Done ~A~%"
                 (asdf-message "~&[~vd to go] Done ~A~%"
                               ltogo planned-output-action-count (action-description o c))
                               ltogo planned-output-action-count (action-description o c))
                 (finish-outputs))
                 (finish-outputs))
               (mark-as-done plan o c)
               (mark-as-done plan o c)