Uncaught type error in DEFTRANSFORM for ENCODE-UNIVERSAL-TIME

[Paul F. Dietz]

(lambda () (encode-universal-time 0 0 0 1 1 1900 -1))

==>

The value
  -3600
is not of type
  UNSIGNED-BYTE
from the function type declaration.
[...]
  0: (ENCODE-UNIVERSAL-TIME 0 0 0 1 1 1900 -1)
  1: ((SB-C:DEFTRANSFORM ENCODE-UNIVERSAL-TIME) #<SB-C::COMBINATION :FUN #<SB-C::REF :LEAF #<SB-C::GLOBAL-VAR :%SOURCE-NAME ENCODE-UNIVERSAL-TIME :TYPE #1=#<SB-KERNEL:FUN-TYPE #> :DEFINED-TYPE #1# :WHERE-..
  2: (SB-C::IR1-TRANSFORM #<SB-C::COMBINATION :FUN #<SB-C::REF :LEAF #<SB-C::GLOBAL-VAR :%SOURCE-NAME ENCODE-UNIVERSAL-TIME :TYPE #1=#<SB-KERNEL:FUN-TYPE #> :DEFINED-TYPE #1# :WHERE-FROM :DECLARED :KIND :..
[...]

[Stas Boukarev (stassats)]

0d677e5761624bec6d5f9a2ae077f216f272ab95