From 720ee21a0905d36cf29af49ce8b6d572296dddb6 Mon Sep 17 00:00:00 2001 From: Sean Whitton Date: Wed, 6 Oct 2021 14:38:01 -0700 Subject: :SETUID: error when OSICAT:USER-INFO fails Signed-off-by: Sean Whitton --- src/connection/setuid.lisp | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'src/connection') 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 -- cgit v1.2.3