From 630bc6c0eafab95302f044a642447f9d02800474 Mon Sep 17 00:00:00 2001 From: Daniel Cerqueira Date: Sun, 1 Jun 2025 19:15:05 +0100 Subject: fix bug in differ --- liblali.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/liblali.c b/liblali.c index 9afec71..a6426af 100644 --- a/liblali.c +++ b/liblali.c @@ -1502,7 +1502,7 @@ static char *stdlib = LISP( (defun consp (x) (and (listp x) (ap x))) (defun differ (x y) - (fill ((or (consp x) (consp y)) (dif x y)) + (fill ((and (consp x) (consp y)) (dif x y)) (f (or (differ (car x) (car y)) (differ (cdr x) (cdr y)))))) -- cgit