/[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.23 by ram, Sat Nov 9 13:20:14 1991 UTC revision 1.24 by ram, Fri Dec 20 00:03:13 1991 UTC
# Line 211  Line 211 
211              (setf pathname new-name))))))              (setf pathname new-name))))))
212    (cond    (cond
213     ((and (not always-overwrite-p)     ((and (not always-overwrite-p)
214           (probe-file pathname) (ext:file-writable pathname))           (let ((pn (probe-file pathname)))
215               (and pn (ext:file-writable pn))))
216      ;; File exists and is writable so check and see if the user really      ;; File exists and is writable so check and see if the user really
217      ;; wants to check it out.      ;; wants to check it out.
218      (command-case (:prompt      (command-case (:prompt
# Line 453  Line 454 
454      (if (probe-file rcs-file)      (if (probe-file rcs-file)
455          ;; This is an RCS file          ;; This is an RCS file
456          (let ((probe-file (probe-file pathname)))          (let ((probe-file (probe-file pathname)))
457            (cond ((and probe-file (file-writable pathname))            (cond ((and probe-file (file-writable probe-file))
458                   :locked)                   :locked)
459                  ((or (not probe-file)                  ((or (not probe-file)
460                       (< (file-write-date pathname)                       (< (file-write-date pathname)

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

  ViewVC Help
Powered by ViewVC 1.1.5