From 73db4523540bd73b9717d13b58a24130de0234fa Mon Sep 17 00:00:00 2001 From: Daniel Cerqueira Date: Thu, 26 Feb 2026 12:15:10 +0000 Subject: add singul function --- liblali.c | 2 ++ 1 file changed, 2 insertions(+) (limited to 'liblali.c') diff --git a/liblali.c b/liblali.c index cadd9e1..af3f108 100644 --- a/liblali.c +++ b/liblali.c @@ -1664,6 +1664,8 @@ static char *stdlib = LISP( (defun consp (x) (and (listp x) (algo x))) + (defun singul (x) (not (consp x))) + (defun differ (x y) (fill ((and (consp x) (consp y)) (dif x y)) (f (or (differ (car x) (car y)) -- cgit