(def set-ip-ban (user ip yesno (o info)) (= (banned-ips* ip) (and yesno (list user (seconds) info))) (todisk banned-ips*))
-----