From 17840d2b348f9286e9cfe9f8d0d9468c99982b14 Mon Sep 17 00:00:00 2001
From: ch <ch>
Date: Sat, 3 Mar 1990 00:40:10 +0000
Subject: [PATCH] Fixed a silly bug in check in utimes(2) code.

---
 hemlock/rcs.lisp | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/hemlock/rcs.lisp b/hemlock/rcs.lisp
index 0b3b4c1bc..5c2f15355 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)))))
-- 
GitLab