(defun with-default-error-location* (floc thunk)
"Invoke THUNK in a dynamic environment which attaches FLOC to errors (and
other conditions) which do not have file location information attached
(defun with-default-error-location* (floc thunk)
"Invoke THUNK in a dynamic environment which attaches FLOC to errors (and
other conditions) which do not have file location information attached