Macro: WITH-TAL-COMPILATION-UNIT

Source

(defmacro with-tal-compilation-unit (pathname &body body)
  (rebinding (pathname)
    `(let ((*tal-truename* (truename ,pathname)))
      ,@body)))