Compiled code computing incorrect value NIL

[pfdietz]

Compiling this function:

(defun f321 (a b)
  (if (if a t (>= 0 67108863 (unwind-protect 0 0)))
      (complex (let ((v (cons 0 b))) (cdr v)) 0)
      0))

leads to this error:

(f321 t 0) ==>

The value NIL is not of the expected type REAL. [Condition of type TYPE-ERROR] [...] Backtrace: 0: (COMPLEX NIL 0) [...]

---

Want to back this issue? Post a bounty on it! We accept bounties via Bountysource.