chickadee » moremacros » type-case*

(type-case* EXPRESSION [(TYPE-TEST BODY ...) ...]))syntax

Like type-case but binds local variable it to the value of EXPRESSION.

(import moremacros)

(type-case* 23
  ((symbol string char) (list it 'symbolic) )
  (number               (list it 'numeric) )
  (else                 (list it 'otheric) ) )
;=> (23 numeric)