incorrect double-float member types on Sparc

[Nikodemus Siivola]

Eric Marsden <email address hidden> via lists.sourceforge.net to sbcl-devel

Hi,

On Sparc64/Linux:

,----
| * (lisp-implementation-version)
| "1.0.52.45-5d9de0a-dirty"
| * (funcall (compile nil (lambda (p1)
| (declare (optimize (debug 3)))
| (truncate (the (member 1.0d0 2.0d0) p1))))
| 2.0d0)
| debugger invoked on a TYPE-ERROR:
| The value 2.0d0
| is not of type
| (OR (DOUBLE-FLOAT 1.0d0 1.0d0) (DOUBLE-FLOAT 2.0d0 2.0d0)).
| Type HELP for debugger help, or (SB-EXT:QUIT) to exit from SBCL.
`----

There is nothing useful in the backtrace.