Comment 2 for bug 1889393

Although that gives a different error,
(defun foo (f x)
  (let ((l (if x
               (list (mapcar #'car x))
               (list (list x)))))
    (declare (dynamic-extent l))
    (funcall f l)))

but they are probably caused by the same thing.