/[cmucl]/src/hemlock/dired.lisp
ViewVC logotype

Diff of /src/hemlock/dired.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.3 by ram, Mon Oct 31 04:50:12 1994 UTC revision 1.3.2.1 by dtc, Thu Jul 6 08:24:55 2000 UTC
# Line 611  Line 611 
611      (unix:unix-fchmod fd (logand mode #o777))      (unix:unix-fchmod fd (logand mode #o777))
612      (unix:unix-close fd)))      (unix:unix-close fd)))
613    
 (defvar *utimes-buffer* (make-list 4 :initial-element 0))  
   
614  (defun set-write-date (ses-name secs)  (defun set-write-date (ses-name secs)
615    (multiple-value-bind (winp dev-or-err ino mode nlink uid gid rdev size atime)    (multiple-value-bind (winp dev-or-err ino mode nlink uid gid rdev size atime)
616                         (unix:unix-stat ses-name)                         (unix:unix-stat ses-name)
617      (declare (ignore ino mode nlink uid gid rdev size))      (declare (ignore ino mode nlink uid gid rdev size))
     (unless winp (funcall *error-function*  
                           "Couldn't stat file ~S failed: ~A."  ses-name  
                           dev-or-err))  
     (setf (car *utimes-buffer*) atime)  
     (setf (caddr *utimes-buffer*) secs))  
   (multiple-value-bind (winp err)  
                        `(unix:unix-utimes ses-name ,@*utimes-buffer*)  
618      (unless winp      (unless winp
619        (funcall *error-function* "Couldn't set write date of file ~S: ~A"        (funcall *error-function* "Couldn't stat file ~S failed: ~A."
620                 ses-name                 ses-name dev-or-err))
621                 (unix:get-unix-error-msg err)))))      (multiple-value-bind (winp err)
622            (unix:unix-utimes ses-name atime 0 secs 0)
623          (unless winp
624            (funcall *error-function* "Couldn't set write date of file ~S: ~A"
625                     ses-name (unix:get-unix-error-msg err))))))
626    
627  (defun get-write-date (ses-name)  (defun get-write-date (ses-name)
628    (multiple-value-bind (winp dev-or-err ino mode nlink uid gid rdev size    (multiple-value-bind (winp dev-or-err ino mode nlink uid gid rdev size

Legend:
Removed from v.1.3  
changed lines
  Added in v.1.3.2.1

  ViewVC Help
Powered by ViewVC 1.1.5