diff options
author | Sean Whitton <spwhitton@spwhitton.name> | 2021-05-25 15:50:01 -0700 |
---|---|---|
committer | Sean Whitton <spwhitton@spwhitton.name> | 2021-05-25 15:50:01 -0700 |
commit | 6cd38e86ed9c131150efe081896eeacec4a0db0e (patch) | |
tree | 8e54e536dbc4f71e998b497443538f97cd7aa7eb /src | |
parent | 5967d67e2650ee100dce46eb377d77f61e2265ac (diff) | |
download | consfigurator-6cd38e86ed9c131150efe081896eeacec4a0db0e.tar.gz |
drop two unnecessary package name qualifications
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
Diffstat (limited to 'src')
-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 |