--- lisp/core.c.orig	2020-09-07 13:09:19.000000000 -0400
+++ lisp/core.c	2020-09-07 13:10:23.000000000 -0400
@@ -62,7 +62,7 @@
 	    break;							\
     }
 
-#ifdef __UNIXOS2__
+#if defined(__UNIXOS2__) || defined(__arm64__)
 # define finite(x) isfinite(x)
 #endif
 
--- lisp/read.c.orig	2020-09-07 13:09:06.000000000 -0400
+++ lisp/read.c	2020-09-07 13:10:10.000000000 -0400
@@ -62,7 +62,7 @@
 #define READ_ERROR_FIXNUM()	READ_ERROR0("number is not a fixnum")
 #define READ_ERROR_INVARG()	READ_ERROR0("invalid argument")
 
-#ifdef __UNIXOS2__
+#if defined(__UNIXOS2__) || defined(__arm64__)
 # define finite(x) isfinite(x)
 #endif
 
--- lisp/math.c.orig	2020-09-07 13:09:12.000000000 -0400
+++ lisp/math.c	2020-09-07 13:09:55.000000000 -0400
@@ -32,7 +32,7 @@
 #include "lisp/math.h"
 #include "lisp/private.h"
 
-#ifdef __UNIXOS2__
+#if defined(__UNIXOS2__) || defined(__arm64__)
 # define finite(x) isfinite(x)
 #endif
 
--- lisp/mp/mpi.c.orig	2020-09-07 13:09:02.000000000 -0400
+++ lisp/mp/mpi.c	2020-09-07 13:09:47.000000000 -0400
@@ -31,7 +31,7 @@
 
 #include "mp.h"
 
-#ifdef __UNIXOS2__
+#if defined(__UNIXOS2__) || defined(__arm64__)
 # define finite(x) isfinite(x)
 #endif