;;; Here's an exaple
(defun foo (n) (selector n '((0 'zero) (1/2 'half) (1 'one))))
(defun foo (n)
  (cond
    ((>= n 0) 'zero)
    ((>= n 1/2) 'half)
    ((>= n 1) 'one)))