Comment 0 for bug 2036306

Revision history for this message
Paul F. Dietz (paul-f-dietz) wrote :

(defun bug236 (a)
  (declare (type number a))
  (declare (optimize debug))
  (setf a 1)
  (let ((v9 1))
    (let ((v1 (/ a 1)))
      (if (= v9 v1)
          :good
          :bad))))

(bug236 0) ==> :bad