Loading .gitignore +1 −0 Original line number Original line Diff line number Diff line *.*f*sl *.*f*sl foo poiu.lisp +5 −5 Original line number Original line Diff line number Diff line Loading @@ -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. Loading Loading @@ -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 Loading Loading @@ -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) Loading Loading
poiu.lisp +5 −5 Original line number Original line Diff line number Diff line Loading @@ -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. Loading Loading @@ -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 Loading Loading @@ -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) Loading