Maybe add the threshold as an optinal key parameter to the `spine-position-reached` function, i.e.
```lisp
(defun spine-position-reached (position &key (threshold 0.001))
   (< (abs (- (get-current-spine-pos) position)) threshold))
```