/[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.4 by wlott, Fri Feb 9 21:08:09 1990 UTC revision 1.5 by wlott, Fri Feb 9 21:20:32 1990 UTC
# Line 319  Line 319 
319                            :directory (concatenate 'simple-vector                            :directory (concatenate 'simple-vector
320                                                    (pathname-directory dir)                                                    (pathname-directory dir)
321                                                    (vector "RCS"))))                                                    (vector "RCS"))))
322            (did-any nil))            (count 0))
323        (unless (directoryp rcsdir)        (unless (directoryp rcsdir)
324          (editor-error "Could not find the RCS directory."))          (editor-error "Could not find the RCS directory."))
325        (dolist (rcsfile (directory rcsdir))        (dolist (rcsfile (directory rcsdir))
# Line 328  Line 328 
328              (let* ((name (subseq rcsname 0 (- (length rcsname) 2)))              (let* ((name (subseq rcsname 0 (- (length rcsname) 2)))
329                     (file (merge-pathnames (parse-namestring name)                     (file (merge-pathnames (parse-namestring name)
330                                            dir)))                                            dir)))
331                (when (< (file-write-date file) (file-write-date rcsfile))                (when (and (probe-file file)
332                             (< (file-write-date file) (file-write-date rcsfile)))
333                  (multiple-value-bind                  (multiple-value-bind
334                      (won dev inode mode)                      (won dev inode mode)
335                      (mach:unix-stat (namestring file))                      (mach:unix-stat (namestring file))
# Line 354  Line 355 
355                               (rename-file file private)))                               (rename-file file private)))
356                            (t                            (t
357                             (delete-file file))))                             (delete-file file))))
358                    (setf did-any t)                    (incf count)
359                    (rcs-check-out-file file nil)))))))                    (rcs-check-out-file file nil)))))))
360        (unless did-any        (if (zerop count)
361          (message "No files are out of date.")))))            (message "No files are out of date.")
362              (message "Checked out ~D file~:P" count)))))

Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5

  ViewVC Help
Powered by ViewVC 1.1.5