Typecase

(typecase some-number

(integer (print 'integer))

(single-float (print 'single-float))

(double-float (print 'double-float))

(otherwise (print 'dunno)))

Previous slide

Next slide

Back to first slide

View graphic version