diff options
| -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 |