diff options
-rw-r--r-- | src/connection/chroot.lisp | 2 | ||||
-rw-r--r-- | src/data/ssh-askpass.lisp | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/src/connection/chroot.lisp b/src/connection/chroot.lisp index 2d8b242..180858c 100644 --- a/src/connection/chroot.lisp +++ b/src/connection/chroot.lisp @@ -141,7 +141,7 @@ should be the mount point, without the chroot's root prefixed.") (unless (zerop (chroot (slot-value connection 'into))) (error "chroot(2) failed!")) (let ((home (connection-connattr connection :remote-home))) - (setf (uiop:getenv "HOME") (unix-namestring home)) + (setf (getenv "HOME") (unix-namestring home)) ;; chdir, else our current working directory is a pointer to something ;; outside the chroot (uiop:chdir home))) diff --git a/src/data/ssh-askpass.lisp b/src/data/ssh-askpass.lisp index e6ff0d7..b3baf4d 100644 --- a/src/data/ssh-askpass.lisp +++ b/src/data/ssh-askpass.lisp @@ -24,7 +24,7 @@ CL-PPCRE regular expressions IDEN1-RE and IDEN2-RE, obtaining the data by using ssh-askpass(1) to prompt the user to input it. Useful for things like sudo passwords." - (unless (uiop:getenv "DISPLAY") + (unless (getenv "DISPLAY") (missing-data-source "DISPLAY not set; cannot launch ssh-askpass(1).")) ;; This cache duplicates CONSFIGURATOR::*STRING-DATA*, but if we don't keep ;; our own cache here, then we would always have to return the current time |