
(in-package :hurd-translator)

(def-fs-interface :file-utimes ((file port)
                                (atimein time-value-t)
                                (mtimein time-value-t))
  (with-lookup protid file
    (let ((err (utimes-file *translator*
                            (get-node protid)
                            (get-user protid)
                            atimein
                            mtimein)))
      (cond
        ((eq err t) t)
        ((eq err nil) :not-permitted)
        (t err)))))

