From 1c4ba09954992d2310a0a58e65700e6452be4c3d Mon Sep 17 00:00:00 2001
From: Daniel Cerqueira <dan.git@lispclub.com>
Date: Tue, 10 Jun 2025 20:24:21 +0100
Subject: add hasADot()

---
 liblali.c | 7 +++++++
 liblali.h | 2 ++
 2 files changed, 9 insertions(+)

diff --git a/liblali.c b/liblali.c
index a6426af..651ead6 100644
--- a/liblali.c
+++ b/liblali.c
@@ -1034,6 +1034,13 @@ DEFINE_PRIMITIVE_RELATIONAL(primitiveLess,         < , true)
 DEFINE_PRIMITIVE_RELATIONAL(primitiveGreater,      > , true)
 /* DEFINE_PRIMITIVE_RELATIONAL(primitiveGreaterEqual, >=, true) */
 
+bool hasADot(char *string) {
+  for (int i = 0; string[i] != '\0'; i++)
+    if (string[i] == '.')
+      return true;
+  return false;
+}
+
 Object *primitiveJoin(Object **args, GC_PARAM) {
   if ((*args)->car == nil)
     exception("cannot join an empty list");
diff --git a/liblali.h b/liblali.h
index d1d7c24..e50cb24 100644
--- a/liblali.h
+++ b/liblali.h
@@ -331,6 +331,8 @@ Object *primitiveLess(Object **args, GC_PARAM);
 
 Object *primitiveGreater(Object **args, GC_PARAM);
 
+bool hasADot(char *string);
+
 Object *primitiveJoin(Object **args, GC_PARAM);
 
 Object *primitiveSplit(Object **args, GC_PARAM);
-- 
cgit