From 638608236c12d0b4bd9d86f676c19b843be89a40 Mon Sep 17 00:00:00 2001
From: SANO Masatoshi <snmsts@gmail.com>
Date: Tue, 24 Jan 2023 21:50:03 +0900
Subject: [PATCH] prepare for android support (no sbcl-bin prepared for roswell
 yet though)

---
 src/util.c | 11 +++++++++++
 1 file changed, 11 insertions(+)

diff --git a/src/util.c b/src/util.c
index 3cefd26..261a68f 100644
--- a/src/util.c
+++ b/src/util.c
@@ -9,6 +9,17 @@ char* uname_s(void) {
     s(p2);
     return q("solaris");
   }
+  if(strcmp(p2,"Linux")==0 &&
+     strcmp(UNAME_M,"aarch64") ==0) {
+    char* result=system_("uname -o");
+    char* result2=remove_char("\r\n",result);
+    s(result);
+    if(strcmp(result2,"Android")==0) {
+      s(result2),s(p2);
+      /* termux? */
+      return q("android");
+    }
+  }
   return downcase(p2);
 }