From 050f06479ec6ba7ca0dcf99dd09b4dbe3b4b400d Mon Sep 17 00:00:00 2001 From: Sean Whitton Date: Tue, 23 Feb 2021 17:51:19 -0700 Subject: catch read errors in DEPLOYMENT-HANDOVER-PROGRAM Signed-off-by: Sean Whitton --- src/data.lisp | 4 ++++ 1 file changed, 4 insertions(+) (limited to 'src/data.lisp') 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*. -- cgit v1.2.3