+
+(defun gethostname2 ()
+ "Returns the hostname"
+ (uffi:with-foreign-object (name (:array :unsigned-char 256))
+ (if (zerop (c-gethostname (uffi:char-array-to-pointer name) 256))
+ (uffi:convert-from-foreign-string name)
+ (error "gethostname() failed."))))
+