CONSTANTLY in branches cause (NOT (LVAR-DYNAMIC-EXTENT LVAR)) error

Bug #2059950 reported by Stas Boukarev
6
This bug affects 1 person
Affects Status Importance Assigned to Milestone
SBCL
Confirmed
Undecided
Unassigned

Bug Description

(defun dynamic-extent-constantly (x)
  (let ((function (if x (constantly x) (constantly t))))
    (declare (dynamic-extent function))
    (funcall function)))

failed AVER: (NOT (LVAR-DYNAMIC-EXTENT LVAR))

Reported by bohonghuang on sbcl-bugs@

To post a comment you must log in.
This report contains Public information  
Everyone can see this information.

Other bug subscribers

Remote bug watches

Bug watches keep track of this bug in other bug trackers.