picolisp

commit 758d6ce6888ee4903956e1ca304e029937381ce8
parent 40ca1fca176c7df5103ea68543f1be67dd2c6108
Author: Alexander Burger <abu@software-lab.de>
Date:   Fri, 20 May 2011 14:53:30 +0200

UB-Tree support: Allow open ranges (NIL and T)
Diffstat:
M
lib/db.l
 | 
2
+-

1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/lib/db.l b/lib/db.l
@@ -697,7 +697,7 @@
       (while (find gt0 Lst)
          (map
             '((L)
-               (let N (or (gt0 (car L)) 0)
+               (let N (min 1 (max 0 (car L)))
                   (and (bit? 1 N) (setq Res (| Res P)))
                   (setq P (>> -1 P))
                   (set L (>> 1 N)) ) )