((and warning-time (> (- (get-universal-time) warning-time) 180))
;;give up frequent checking because no disconnection despite waiting
(setf (warning-message-utime logger) nil))
((and warning-time (> (- (get-universal-time) warning-time) 180))
;;give up frequent checking because no disconnection despite waiting
(setf (warning-message-utime logger) nil))