diff options
| author | Sean Whitton <spwhitton@spwhitton.name> | 2021-02-23 17:51:19 -0700 |
|---|---|---|
| committer | Sean Whitton <spwhitton@spwhitton.name> | 2021-02-23 17:51:19 -0700 |
| commit | 050f06479ec6ba7ca0dcf99dd09b4dbe3b4b400d (patch) | |
| tree | baded9b8cb984741a32f0121dd323c9ae1f865d0 /src/data.lisp | |
| parent | 76302017940f60286867dc083def308d3115e1e7 (diff) | |
| download | consfigurator-050f06479ec6ba7ca0dcf99dd09b4dbe3b4b400d.tar.gz | |
catch read errors in DEPLOYMENT-HANDOVER-PROGRAM
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
Diffstat (limited to 'src/data.lisp')
| -rw-r--r-- | src/data.lisp | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/src/data.lisp b/src/data.lisp index 368a6c6..98b8386 100644 --- a/src/data.lisp +++ b/src/data.lisp @@ -342,6 +342,10 @@ of the current connection, where each entry is of the form (runlines :may-fail "find" (get-remote-data-cache-dir) "-type" "f" "-printf" "%P\\n"))) +;; TODO on remote side, catch read errors and signal our own which says +;; something more specific -- "This has probably been caused by an attempt to +;; use a property application specification or set of static informational +;; attributes which cannot be serialised by the Lisp printer" (defun deployment-handover-program (remaining) "Return a program which instructs a remote Lisp image to continue DEPLOY*. |