(a newer & cleaner) common lisp cooldown system