[Openmcl-devel] BUG: corrupted return results with IF

[Eric Marsden]

Hello,

Both the optimize declaration and the type declaration are necessary for
the corruption of the return value. 


? (lisp-implementation-version)
"Version 1.10-dev-r16180M  (LinuxX8664)"
? (defun foo (a b)
  (declare (optimize (safety 3)))
  ((lambda (p x) (if p x))
   a (the (complex single-float) b)))
FOO
? (foo t #c(1.0 2.0))
#C(0.0 0.0)    ;; <-- expecting #c(1.0 2.0)

-- 
Eric Marsden