From be88851eaf52c4ce0fbab55a0f4da263a2bb4bbe Mon Sep 17 00:00:00 2001
From: Bruce Mitchener <bruce.mitchener@gmail.com>
Date: Thu, 17 Dec 2020 02:06:14 +0700
Subject: [PATCH] Remove USE_UTIME. (#87)

This wasn't enabled and the corresponding code wouldn't have
compiled. The `utime()` function is also deprecated in POSIX.

This used to be enabled for HPUX and RISCOS.
---
 inc/version.h | 1 -
 src/dsk.c     | 8 --------
 2 files changed, 9 deletions(-)

diff --git a/inc/version.h b/inc/version.h
index c8e4e9f..bb3fe1a 100755
--- a/inc/version.h
+++ b/inc/version.h
@@ -201,7 +201,6 @@ error Must specify RELEASE to build Medley.
 #define UNALIGNED_FETCH_OK
 #define REGISTER register
 #define HAS_GETHOSTID
-#undef USE_UTIME
 #define UNSIGNED unsigned long
 #define INT long
 
diff --git a/src/dsk.c b/src/dsk.c
index 2519e93..cc7e4b8 100644
--- a/src/dsk.c
+++ b/src/dsk.c
@@ -818,11 +818,7 @@ LispPTR COM_closefile(register LispPTR *args)
     return (NIL);
   }
 
-#ifdef USE_UTIME
-  TIMEOUT(rval = utime(file, time));
-#else
   TIMEOUT(rval = utimes(file, time));
-#endif
   if (rval != 0) {
     *Lisp_errno = errno;
     return (NIL);
@@ -1879,11 +1875,7 @@ LispPTR COM_setfileinfo(register LispPTR *args)
       time[0].tv_usec = 0L;
       time[1].tv_sec = (long)ToUnixTime(date);
       time[1].tv_usec = 0L;
-#ifdef USE_UTIME
-      TIMEOUT(rval = utime(file, time));
-#else
       TIMEOUT(rval = utimes(file, time));
-#endif /* USE_UTIME */
 #endif /* DOS */
       if (rval != 0) {
         *Lisp_errno = errno;