From a8307f1e45ff9ad61ab1c26f8f7ed1039a6cba6e Mon Sep 17 00:00:00 2001
From: Daniel Cerqueira <dan.git@lispclub.com>
Date: Mon, 28 Jul 2025 14:47:52 +0100
Subject: fix bug zerop

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

(limited to 'liblali.c')

diff --git a/liblali.c b/liblali.c
index 674df77..5683bb3 100644
--- a/liblali.c
+++ b/liblali.c
@@ -1517,7 +1517,7 @@ static char *stdlib = LISP(
 
   (defun listp (x) (not (atom x)))
 
-  (defun zerop (x) (not (! x +0)))
+  (defun zerop (x) (not (dif x +0)))
 
   (defmacro and args
     (fill ((ap args) t)
-- 
cgit