latin1-char-p in character.lisp fails ungracefully in certain cases

[ksaj]

Should the following return NIL instead of bailing?

[57]> (latin1-char-p pi)

*** - The value of Character should be of type Character.
      The value is: 3.1415926535897932385L0
The following restarts are available:
STORE-VALUE    :R1      Input a new value for Character.
ABORT          :R2      Abort main loop
Break 1 [58]>