> what implementation really does that with SAFETY being 3?
LispWorks:
CL-USER 1 > (declaim (optimize safety))
NIL
CL-USER 2 > (defun f (x) (declare (fixnum x)) x)
F
CL-USER 3 > (f "foo")
"foo"