(examples-for ‘case

("expands to an if-expression"
 (do (reset-uniq-counter)
     (explain-mac 1
                  `(case eq? person.name
                         "conan" (greet person)
                         "egg"   (delete person)
                         "bach"  (play person)
                         else    (interrogate person))))
 (let caseval-1 (dot-syntax person name)
   (if (eq? caseval-1 "conan") (greet person)
       (eq? caseval-1 "egg")   (delete person)
       (eq? caseval-1 "bach")  (play person)
       (interrogate person)))))