From 7c1e783509d3d0f125a10460ac055385d043340f Mon Sep 17 00:00:00 2001
From: Nick Briggs <nicholas.h.briggs@gmail.com>
Date: Mon, 26 Jun 2017 21:29:39 -0700
Subject: [PATCH] fix missing return type on fork_Unix.  Declare time() --
 where does it really come from?

---
 src/unixfork.c | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/src/unixfork.c b/src/unixfork.c
index 613702c..35b168f 100644
--- a/src/unixfork.c
+++ b/src/unixfork.c
@@ -296,7 +296,9 @@ of the packet received except:
 
 */
 
-fork_Unix() {
+long time(long); /* XXX where does time come from? */
+
+int fork_Unix() {
   int LispToUnix[2], /* Incoming pipe from LISP */
       UnixToLisp[2], /* Outgoing pipe to LISP */
       UnixPID, LispPipeIn, LispPipeOut, res, slot;