diff options
Diffstat (limited to 'src/connection/setuid.lisp')
-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 8b3353f..e61222b 100644 --- a/src/connection/setuid.lisp +++ b/src/connection/setuid.lisp @@ -32,7 +32,8 @@ (defclass setuid-connection (rehome-connection fork-connection) ()) (defmethod establish-connection ((type (eql :setuid)) remaining &key to) - (unless (and (lisp-connection-p) (zerop (foreign-funcall "geteuid" :int))) + (unless (and (lisp-connection-p) + (zerop (foreign-funcall "geteuid" :unsigned-int))) (error "~&SETUIDing requires a Lisp image running as root")) (informat 1 "~&SETUIDing to ~A" to) (multiple-value-bind (match groups) |