[Openmcl-devel] Bug in type propagation

[Eric Marsden]

Hi,

,----
| ? (lisp-implementation-version)
| "Version 1.8-dev-r14977M  (LinuxX8664)"
| ? (lambda (x)
|     (declare (type (eql 1233131112103759845) x))
|     (ash (the real x) -73))
| #<Anonymous Function #x302000AB266F>
| ? (funcall * 1233131112103759845)
| > Error: value 1233131112103759845 is not of the expected type FIXNUM.
`----

-- 
Eric Marsden