Error compiling CEILING on combined integer/float constant areguments

[Paul F. Dietz]

(compile nil '(lambda () (declare (optimize speed)) (ceiling 285493348393 94189.93)))

===>

The value
  -1
is not of type
  (UNSIGNED-BYTE 32)
when binding SB-C::VALUE
 [...]
  0: (SB-C:WRITE-VAR-INTEGER -1 #(132 0 130 60 135)) [external]
  1: (SB-C::DUMP-1-LOCATION #<SB-KERNEL:BIND :LAMBDA #<SB-C::CLAMBDA :%SOURCE-NAME SB-C::.ANONYMOUS. :%DEBUG-NAME (SB-C::TL-XEP #) :KIND :EXTERNAL :TYPE #<SB-KERNEL:BUILT-IN-CLASSOID FUNCTION (read-only)> ..
  2: (SB-C::DUMP-LOCATION-FROM-INFO #S(SB-C::LOCATION-INFO :KIND :NON-LOCAL-ENTRY :CONTEXT NIL :LABEL #1=#<SB-ASSEM:LABEL 2> :VOP #<SB-C::VOP :INFO SB-C:NOTE-ENVIRONMENT-START :ARGS NIL :RESULTS NIL :CODEG..
  3: (SB-C::COMPUTE-DEBUG-BLOCKS #<SB-C::CLAMBDA :%SOURCE-NAME SB-C::.ANONYMOUS. :%DEBUG-NAME (SB-C::TL-XEP (LAMBDA NIL)) :KIND :EXTERNAL :TYPE #<SB-KERNEL:BUILT-IN-CLASSOID FUNCTION (read-only)> :WHERE-FR..
  4: (SB-C::COMPUTE-1-DEBUG-FUN #<SB-C::CLAMBDA :%SOURCE-NAME SB-C::.ANONYMOUS. :%DEBUG-NAME (SB-C::TL-XEP (LAMBDA NIL)) :KIND :EXTERNAL :TYPE #<SB-KERNEL:BUILT-IN-CLASSOID FUNCTION (read-only)> :WHERE-FRO..
 [...]

[Paul F. Dietz (paul-f-dietz)]

Same error, with FLOOR:

(lambda () (declare (optimize speed)) (floor 302254842 -50510.5))

[Stas Boukarev (stassats)]

58bd53a58cefb009774cb40d11b2189cbc5d2f59