defmodule schedule files (schedule) import (debug) export (clock clockstart clockstop parallel parallelvalues tryinparallel progn-no-suspend letparallel) cpexport ((clock subr0 parano) (clockstart dmsubr ()) (clockstop dmsubr ()) (parallel fsubr parano (#:schedule:ll) (#:schedule:l) (subr1) (()) (#:schedule:e)) ( parallelvalues fsubr parano (#:schedule:ll) (#:schedule:ltask #:schedule:l #: schedule:r #:schedule:i) (subr1) (()) (#:schedule:e)) (tryinparallel fsubr parano (#:schedule:ll) (#:schedule:ltask #:schedule:l) (subr1) (()) (#: schedule:e)) (progn-no-suspend dmsubr ()) (letparallel dmsubr ())) cpfunctions () cpimport ((debug (debug . fsubr)))