fix CL case conversions of characters involving iota subscript
[sbcl.git] / tests / bug-943953.lisp
1 (defun foo (&optional count)
2   (declare (fixnum count))
3   count)