Corrected corner case in map function.

sirherrbatka · Oct 1, 2022 · 93cbd11 · 93cbd11
1 parent 03e741a
commit 93cbd11
Showing 1 changed file with 16 additions and 15 deletions.
diff --git a/src/common/rrb/common.lisp b/src/common/rrb/common.lisp
@@ -1093,20 +1093,21 @@
   (cl-ds.utils:cases ((null leaf-function) (null tree-function))
     (labels ((impl (node n)
                (declare (type fixnum n))
-               (if (= n depth)
-                   (unless (null leaf-function)
-                     (funcall leaf-function node))
-                   (progn
-                     (unless (null tree-function)
-                       (funcall tree-function node))
-                     (iterate
-                       (declare (type fixnum i next-n)
-                                (type simple-vector ocntent))
-                       (with next-n = (1+ n))
-                       (with content = (sparse-rrb-node-content node))
-                       (with length = (sparse-rrb-node-size node))
-                       (for i from 0 below length)
-                       (for elt = (svref content i))
-                       (impl elt next-n))))))
+               (unless (cl-ds.meta:null-bucket-p node)
+                 (if (= n depth)
+                     (unless (null leaf-function)
+                       (funcall leaf-function node))
+                     (progn
+                       (unless (null tree-function)
+                         (funcall tree-function node))
+                       (iterate
+                         (declare (type fixnum i next-n)
+                                  (type simple-vector content))
+                         (with next-n = (1+ n))
+                         (with content = (sparse-rrb-node-content node))
+                         (with length = (sparse-rrb-node-size node))
+                         (for i from 0 below length)
+                         (for elt = (svref content i))
+                         (impl elt next-n)))))))
       (impl tree 0)
       tree)))