(deftest gethostname.2 (stringp (gethostname2)) t)
(deftest gethostname.3 (plusp (length (gethostname))) t)
(deftest gethostname.4 (plusp (length (gethostname2))) t)
-(deftest gethostname.5 (gethostname) #.(gethostname2))
+(deftest gethostname.5 (string= (gethostname) (gethostname2)) t)