From ed7dfeecb709723aa90259d67c3db49623f065a5 Mon Sep 17 00:00:00 2001 From: Daniel Cerqueira Date: Mon, 17 Aug 2026 10:56:31 +0100 Subject: add plural defun predicate --- liblali.c | 2 ++ 1 file changed, 2 insertions(+) (limited to 'liblali.c') diff --git a/liblali.c b/liblali.c index a8d8adc..a816ad8 100644 --- a/liblali.c +++ b/liblali.c @@ -1672,6 +1672,8 @@ static char *stdlib = LISP( (defun zerop (x) (not (diff x +0))) + (defun plural (x) (diff x +0)) + (defmacro and args (fill ((algo args) t) ((algo (cdr args)) (car args)) -- cgit