Error in form containing IGNORE-ERRORS

[Paul F. Dietz]

(defun bug065 ()
  (let ((lam
          '(lambda (c)
            (declare (optimize (speed 0)))
            (max
             (block nil
               (ignore-errors
                (return (floor 1020 c))))))))
    (funcall (compile nil lam) 86)))

(bug065) ==> ;; should be 11, 74

Value of #:ARG00 in (THE REAL #:ARG00) is NIL, not a REAL.
   [Condition of type SIMPLE-TYPE-ERROR]
[...]
Backtrace:
  0: (SB-C::%COMPILE-TIME-TYPE-ERROR (NIL) REAL #<unused argument> (#:ARG00) "(THE REAL #:ARG00)" NIL)
  1: ((LAMBDA (C)) 86)
[...]