add singul functionHEADmain

1 files changed, 2 insertions, 0 deletions

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))