Permalink
Switch branches/tags
Nothing to show
Find file Copy path
Fetching contributors…
Cannot retrieve contributors at this time
17 lines (13 sloc) 617 Bytes
(in-package #:vivace-graph-v2)
(defun add-to-text-index (idx key value)
(skip-list-add idx key value))
(defun remove-from-text-index (idx key)
(skip-list-delete idx key))
(defun get-index-range (index start end)
"This is wildly inefficient; we need to eventually coalesce the two cursor types."
(let ((result (make-array 0 :fill-pointer t :adjustable t)))
(let ((cursor (skip-list-range-cursor index start end)))
(do ((kv (sl-cursor-next cursor) (sl-cursor-next cursor)))
((null kv))
(vector-push-extend (second kv) result)))
(make-index-cursor :index index :vector result :pointer 0)))