From 09218d837cd4ca3aba8540747389d2f4a7b1714c Mon Sep 17 00:00:00 2001
From: Daniel Cerqueira <dan.git@lispclub.com>
Date: Sat, 30 Aug 2025 20:06:59 +0100
Subject: primitiveJoin() numbers with only 1-digit

---
 liblali.c | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/liblali.c b/liblali.c
index 6696bc3..54c4bfd 100644
--- a/liblali.c
+++ b/liblali.c
@@ -1180,6 +1180,8 @@ Object *primitiveJoin(Object **args, GC_PARAM) {
     for (;;) {
       lcar = list->car;
       for (;;) {
+        if (lcar->car->string[2] != '\0')
+          exceptionWithObject((*args)->car, "only can join with 1-digit number elements");
         noPrefixNumber[0] = lcar->car->string[1];
         noPrefixNumber[1] = '\0';
         strcat(result, noPrefixNumber);
-- 
cgit