diff options
author | Sean Whitton <spwhitton@spwhitton.name> | 2021-03-21 17:21:11 -0700 |
---|---|---|
committer | Sean Whitton <spwhitton@spwhitton.name> | 2021-03-21 17:22:25 -0700 |
commit | 3a7b35372040ca245969826bd5fa9f85a6980486 (patch) | |
tree | d42c5d2c28d4883e406606e2152f9f9bffc12741 /src/data.lisp | |
parent | d6e52cbd4a178bdae7961c6f199a99724bb9d04e (diff) | |
download | consfigurator-3a7b35372040ca245969826bd5fa9f85a6980486.tar.gz |
add facility for more regular progress and debug printing
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
Diffstat (limited to 'src/data.lisp')
-rw-r--r-- | src/data.lisp | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/src/data.lisp b/src/data.lisp index d3b9330..55072cf 100644 --- a/src/data.lisp +++ b/src/data.lisp @@ -279,10 +279,10 @@ appropriate. Falls back to CONNECTION-WRITEFILE." (let ((*dest* (remote-data-pathname iden1 iden2 data-version))) (declare (special *dest*)) (mrun "mkdir" "-p" (pathname-directory-pathname *dest*)) - (format t "Uploading (~@{~S~^ ~}) ... " iden1 iden2 data-version) + (informat 1 "~&Uploading (~@{~S~^ ~}) ... " iden1 iden2 data-version) (call-next-method) (push (list iden1 iden2 *dest*) (slot-value *connection* 'cached-data)) - (format t "done.~%")))) + (inform 1 "done." :fresh-line nil)))) (defmethod connection-upload-data ((data file-data)) (declare (special *dest*)) @@ -403,10 +403,12 @@ Preprocessing must occur in the root Lisp.")) (lambda (c) (declare (ignore c)) (invoke-restart 'skip-data-source)))) - ,@forms))) + (let ((*consfigurator-debug-level* ,*consfigurator-debug-level*)) + ,@forms)))) (let* ((intern-forms (loop for name in '("MISSING-DATA-SOURCE" - "SKIP-DATA-SOURCE") + "SKIP-DATA-SOURCE" + "*CONSFIGURATOR-DEBUG-LEVEL*") collect `(export (intern ,name (find-package "CONSFIGURATOR")) (find-package "CONSFIGURATOR")))) |