Skip to content
Snippets Groups Projects
Commit 17840d2b authored by ch's avatar ch
Browse files

Fixed a silly bug in check in utimes(2) code.

parent 365a7c5b
No related branches found
No related tags found
No related merge requests found
;;; -*- 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)))))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment