Code for sending common lisp sexps to Next

emacs-next-integration.el

(require 'slime)

(defvar next-browser-connection nil)

(defun get-next-browser-connection ()
  (if (and next-browser-connection
           (find next-browser-connection slime-net-processes))
      next-browser-connection
    (aif (ignore-errors
           (slime-net-connect "localhost"
                              "4006"))
         (setq next-browser-connection it))))

(defun next-browser-eval (sexp)
  (aif (get-next-browser-connection)
       (let ((slime-dispatching-connection it))
         (slime-eval sexp))
       (error "Next browser has not been started.")))