Cljs 定时器的跳表存在一个明显的bug：缺少循环的循环体
{代码:java}
(let [x (skip-list-node k v (make-array new-level))]
(loop [i 0]
(when (<= i level)
(let [links (.-forward (aget update i))]
(aset (.-forward x) i (aget links i))
(aset links i x)))))
这来自 `put` 函数。这通常是一个可怕的bug，但是0链表的链接只是一个简单的链表链接，而跳表忽略了“跳过”。一个简单的补丁将修复它，使其从 `when` 形式开始递归。
这会影响ceilingEntry函数
{代码:java}
(ceilingEntry [coll k]
(loop [x header level level]
(if-not (neg? level)
(let [nx (loop [x x]
(let [x' (when (< level (alength (.-forward x)))
(aget (.-forward x) level))]
(when-not (nil? x')
(if (>= (.-key x') k)
x'
(recur x')))))]
(if-not (nil? nx)
(recur nx (dec level))
(recur x (dec level))))
(when-not (identical? x header)
x))))
此函数允许超过您要搜索的键，这假定找到了“下一个”节点。对于简单链表，这是可行和明确的。然而，对于跳表，这允许根据跳表的跳数大小进行剧烈且非确定性的超过。
需要修复，以确保只有在不位于最低级链表时才能超过，而不是在跳表链接中。
