diff --git a/hemlock/rcs.lisp b/hemlock/rcs.lisp index 0b3b4c1bca8720fc51a67cd687e40ec1c91443df..5c2f15355020f1db1151237926b2d0e5f28d57b0 100644 --- a/hemlock/rcs.lisp +++ b/hemlock/rcs.lisp @@ -1,6 +1,6 @@ ;;; -*- Package: HEMLOCK; Mode: Lisp -*- ;;; -;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/hemlock/rcs.lisp,v 1.10 1990/03/03 00:32:00 ch Exp $ +;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/hemlock/rcs.lisp,v 1.11 1990/03/03 00:40:10 ch Exp $ ;;; ;;; Various commands for dealing with RCS under hemlock. ;;; @@ -161,7 +161,7 @@ (cond (dev (multiple-value-bind (wonp errno) - (mach:unix-utimes rcs-filename (list atime mtime)) + (mach:unix-utimes filename (list atime 0 mtime 0)) (unless wonp (editor-error "MACH:UNIX-UTIMES failed: ~A" (mach:get-unix-error-msg errno)))))