From 595023766d1e45eaa92c612e1f959e781c7d878a Mon Sep 17 00:00:00 2001 From: Sean Whitton Date: Wed, 24 Feb 2021 11:25:14 -0700 Subject: note about the WHEN-LET in DEPLOY* Signed-off-by: Sean Whitton --- src/deployment.lisp | 2 ++ 1 file changed, 2 insertions(+) diff --git a/src/deployment.lisp b/src/deployment.lisp index 6cebee3..18a747d 100644 --- a/src/deployment.lisp +++ b/src/deployment.lisp @@ -128,6 +128,8 @@ used by implementations of ESTABLISH-CONNECTION.") ((connect (connections) (destructuring-bind ((type . args) . remaining) connections (let ((*last-hop-info* *this-hop-info*) *this-hop-info*) + ;; implementations of ESTABLISH-CONNECTION return nil if they + ;; have handed off to a remote Lisp image (when-let ((*connection* (apply #'establish-connection type remaining args))) (if remaining -- cgit v1.2.3