- (type-case* EXPRESSION [(TYPE-TEST BODY ...) ...]))syntax
Like type-case but binds local variable it to the value of EXPRESSION.
(use moremacros) (type-case* 23 ((symbol string char) (list it 'symbolic) ) (number (list it 'numeric) ) (else (list it 'otheric) ) ) ;=> (23 numeric)