diff options
| author | Sean Whitton <spwhitton@spwhitton.name> | 2021-02-22 13:51:49 -0700 |
|---|---|---|
| committer | Sean Whitton <spwhitton@spwhitton.name> | 2021-02-22 13:51:49 -0700 |
| commit | 7ce5dcdcf751cdef990b933e7ee6347775e8f503 (patch) | |
| tree | 760338d1c48f21d6f3697062683e7c88b5e788da /src/connection/ssh.lisp | |
| parent | 784a7d1d85c0ec4e41b4db7d0862e77cb435806b (diff) | |
| download | consfigurator-7ce5dcdcf751cdef990b933e7ee6347775e8f503.tar.gz | |
fix calls to SLOT-VALUE
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
Diffstat (limited to 'src/connection/ssh.lisp')
| -rw-r--r-- | src/connection/ssh.lisp | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/connection/ssh.lisp b/src/connection/ssh.lisp index d9dc59e..21b40b8 100644 --- a/src/connection/ssh.lisp +++ b/src/connection/ssh.lisp @@ -37,9 +37,9 @@ (:documentation "Deploy properties using non-interactive SSH.")) (defun ssh-host (connection) - (if-let ((user (slot-value connection :user))) - (format nil "~A@~A" user (slot-value connection :hostname)) - (slot-value connection :hostname))) + (if-let ((user (slot-value connection 'user))) + (format nil "~A@~A" user (slot-value connection 'hostname)) + (slot-value connection 'hostname))) (defun sshcmd (connection &rest args) ;; wrap in 'sh -c' in case the login shell is not POSIX |