(let* (;; FIXME: use OUT as the pathname designator
(out-name (namestring (translate-logical-pathname output-file)))
(prot (elt (multiple-value-list (sb-unix:unix-stat out-name)) 3)))
(let* (;; FIXME: use OUT as the pathname designator
(out-name (namestring (translate-logical-pathname output-file)))
(prot (elt (multiple-value-list (sb-unix:unix-stat out-name)) 3)))