A more flexible evaluate-to-cursor command

[PEZ]

I want a to be able to evaluate-to-cursor from a wherever before the cursor. Evaluate From Start of List is great, but only takes me that far if I have created a monster like this:

(ns fortytwo-lab)

;; Evaluate selection to Cursor
(defn fortytwo-from-thirty
  []
  (let [thirty 30]
    (-> thirty
        (->>
         inc
         (+ 1 2 3) ; Eval from start of list => "6function be(a){return a+1}" (Joyride REPL)
         (+ 2 2)  
         (+))      ; Eval from start of list => Could not resolve symbol: thirty
        list
        (->>
         (into [1])
         (reduce + 1))
        (- 1)
        (* -1))))

(comment
  (fortytwo-from-thirty) ;; => -42 (WRONG answer! (or question?))
  )

If I could somehow choose the starting point for the Evaluate to cursor, I could include the let binding and examine the monster much better.