swank_repl_start_code.clj

(let [stop (atom false)]
       (repl :read (fn [rprompt rexit]
                     (if @stop rexit
                         (do (swap! stop (fn [_] true))
                             `(do (ignore-protocol-version nil)
                                  (start-server "/tmp/slime-port.txt"
                                                :encoding "iso-latin-1-unix"
                                                :port ~port)))))
             :need-prompt #(identity false)))