From 0827aceeb27cebd8a79ad7976c490dd739db168f Mon Sep 17 00:00:00 2001
From: ram <ram>
Date: Wed, 19 Feb 1992 20:06:17 +0000
Subject: [PATCH] Fixed call to UNIX-UTIMES.

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

diff --git a/hemlock/rcs.lisp b/hemlock/rcs.lisp
index 839690594..71d213285 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.25 1992/02/15 13:12:53 wlott Exp $
+;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/hemlock/rcs.lisp,v 1.26 1992/02/19 20:06:17 ram Exp $
 ;;;
 ;;; Various commands for dealing with RCS under Hemlock.
 ;;;
@@ -180,7 +180,7 @@
 	    (cond (dev
 		   (multiple-value-bind
 		       (wonp errno)
-		       (unix:unix-utimes filename (list atime 0 mtime 0))
+		       (unix:unix-utimes filename atime 0 mtime 0)
 		     (unless wonp
 		       (editor-error "UNIX:UNIX-UTIMES failed: ~A"
 				     (unix:get-unix-error-msg errno)))))
-- 
GitLab