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

Diff of /src/hemlock/rcs.lisp

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

revision 1.24 by ram, Fri Dec 20 00:03:13 1991 UTC revision 1.25 by wlott, Sat Feb 15 13:12:53 1992 UTC
# Line 86  Line 86 
86    (in-directory pathname    (in-directory pathname
87      (let ((file (file-namestring pathname)))      (let ((file (file-namestring pathname)))
88        (do-command "rcs" `("-l" ,file))        (do-command "rcs" `("-l" ,file))
89        (multiple-value-bind (won dev ino mode) (mach:unix-stat file)        (multiple-value-bind (won dev ino mode) (unix:unix-stat file)
90          (declare (ignore ino))          (declare (ignore ino))
91          (cond (won          (cond (won
92                 (mach:unix-chmod file (logior mode mach:writeown)))                 (unix:unix-chmod file (logior mode unix:writeown)))
93                (t                (t
94                 (editor-error "MACH:UNIX-STAT lost in RCS-LOCK-FILE: ~A"                 (editor-error "UNIX:UNIX-STAT lost in RCS-LOCK-FILE: ~A"
95                               (mach:get-unix-error-msg dev)))))))                               (unix:get-unix-error-msg dev)))))))
96    (invoke-hook rcs-lock-file-hook buffer pathname))    (invoke-hook rcs-lock-file-hook buffer pathname))
97    
98    
# Line 175  Line 175 
175            ;; the rcs file.            ;; the rcs file.
176            (multiple-value-bind            (multiple-value-bind
177                (dev ino mode nlink uid gid rdev size atime mtime)                (dev ino mode nlink uid gid rdev size atime mtime)
178                (mach:unix-stat rcs-filename)                (unix:unix-stat rcs-filename)
179              (declare (ignore mode nlink uid gid rdev size))              (declare (ignore mode nlink uid gid rdev size))
180              (cond (dev              (cond (dev
181                     (multiple-value-bind                     (multiple-value-bind
182                         (wonp errno)                         (wonp errno)
183                         (mach:unix-utimes filename (list atime 0 mtime 0))                         (unix:unix-utimes filename (list atime 0 mtime 0))
184                       (unless wonp                       (unless wonp
185                         (editor-error "MACH:UNIX-UTIMES failed: ~A"                         (editor-error "UNIX:UNIX-UTIMES failed: ~A"
186                                       (mach:get-unix-error-msg errno)))))                                       (unix:get-unix-error-msg errno)))))
187                    (t                    (t
188                     (editor-error "MACH:UNIX-STAT failed: ~A"                     (editor-error "UNIX:UNIX-STAT failed: ~A"
189                                   (mach:get-unix-error-msg ino)))))                                   (unix:get-unix-error-msg ino)))))
190            (delete-buffer-if-possible buffer)))))            (delete-buffer-if-possible buffer)))))
191    
192    

Legend:
Removed from v.1.24  
changed lines
  Added in v.1.25

  ViewVC Help
Powered by ViewVC 1.1.5