diff options
-rw-r--r-- | src/connection/setuid.lisp | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/connection/setuid.lisp b/src/connection/setuid.lisp index ef00967..1f85160 100644 --- a/src/connection/setuid.lisp +++ b/src/connection/setuid.lisp @@ -24,7 +24,8 @@ (unless (and (lisp-connection-p) (zerop (nix:geteuid))) (error "~&SETUIDing requires a Lisp image running as root")) (informat 1 "~&SETUIDing to ~A" to) - (let* ((ent (osicat:user-info to)) + (let* ((ent (or (osicat:user-info to) + (failed-change "~&Could not look up user info for ~A." to))) (xdg-cache-home (ensure-directory-pathname (stripln |