reconnects not exported from deployment.lisp

[Sean Whitton]

Hello,

On Fri 05 Aug 2022 at 05:59pm +01, Andreas Reuleaux wrote:

> I am sorry, but I have tried: personally I don't care, if
> moc-config-symlinked is a single property (defprop), or a list of
> properties (defproplist), but the (get-connattr :remote-home) is
> rejected in the latter case:

Sorry, you're right, you have to use DEFPROP if you are using
get-connattr.  But I don't think you need it.  See "Properties" in the
manual.

> ...So I stick with the defprop for now (as I want indeed the remote home in
> my :to path: /home/rx/... - fine with (defprop moc-config-symlinked ...)
>
> (Is there a reason, why I cannot use (get-connattr :remote-home) in the
> defproplist version ?)

Yes, see the manual.

> I think I had tried "as" before, too - but I am giving it another shot:
>
>
>   (defprop moc-config-symlinked :posix ()
>     (:desc #?"moc config symlinked")
>     (:apply
>      (file:symlinked :from ".moc/config"
>                      :to #?"${(get-connattr :remote-home)}cfg/moc/config"
>                      )
>      )
>     )
>
>
>   (defproplist moc-combined :posix ()
>     (apt:installed "moc")
>     (as "rx" (moc-config-symlinked))
>
>     )
>
>
> And apparently, this works, if I use :sbcl in my chain - so
> yes, thanks!
>
>
>   (asdf:load-system "my.consfig") (in-package :my.consfig)
>   ;;; Computing Hangul syllable names
>   T
>   * #<PACKAGE "MY.CONSFIG">
>   (deploy-these ((:ssh :user "root") :sbcl) softland (moc-combined))
>   ;; Waiting for remote Lisp to exit, this may take some time ... done.  Output was:
>   ;;         softland :: apt installed moc ... ok
>   ;;             softland :: moc config symlinked ... done
>   ;;         softland :: ((:AS :USER "rx")) reconnection ... done
>   ;;     softland :: done
>   ;; Changes were made without any reported failures.
>   NIL
>   *
>
>
> If I don't use :sbcl, the error message was a little cryptic to me,
> not really pointing me in the right direction
>
> (and maybe there is even some old cached stuff in there [?]: I have
> commented all reconnects code)
>
>
>
>
>   (asdf:load-system "my.consfig") (in-package :my.consfig)
>   ;;; Computing Hangul syllable names
>   T
>   * #<PACKAGE "MY.CONSFIG">
>   (deploy-these ((:ssh :user "root")) softland (moc-combined))
>
>   debugger invoked on a SB-INT:SIMPLE-PROGRAM-ERROR in thread
>   #<THREAD "main thread" RUNNING {1004E00073}>:
>     invalid keyword argument: :USER (valid keys are :TO).

It's a bug, now fixed on master, thank you.

-- 
Sean Whitton