Skip to content
Snippets Groups Projects
Commit 0827acee authored by ram's avatar ram
Browse files

Fixed call to UNIX-UTIMES.

parent b6efe03c
No related branches found
No related tags found
No related merge requests found
;;; -*- Package: HEMLOCK; Mode: Lisp -*- ;;; -*- 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. ;;; Various commands for dealing with RCS under Hemlock.
;;; ;;;
...@@ -180,7 +180,7 @@ ...@@ -180,7 +180,7 @@
(cond (dev (cond (dev
(multiple-value-bind (multiple-value-bind
(wonp errno) (wonp errno)
(unix:unix-utimes filename (list atime 0 mtime 0)) (unix:unix-utimes filename atime 0 mtime 0)
(unless wonp (unless wonp
(editor-error "UNIX:UNIX-UTIMES failed: ~A" (editor-error "UNIX:UNIX-UTIMES failed: ~A"
(unix:get-unix-error-msg errno))))) (unix: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