Add M-x lisp-eval-expression-in-repl (C-c C-j)

extensions/lisp-mode/lisp-mode.lisp

@@ -94,6 +94,7 @@
 (define-key *lisp-mode-keymap* "C-c g" 'lisp-interrupt)
 (define-key *lisp-mode-keymap* "C-c C-q" 'lisp-quickload)
 (define-key *lisp-mode-keymap* "Return" 'newline-and-indent)
+(define-key *lisp-mode-keymap* "C-c C-j" 'lisp-eval-expression-in-repl)
 
 (defmethod convert-modeline-element ((element (eql 'lisp-mode)) window)
   (format nil "  ~A~A" (buffer-package (window-buffer window) "CL-USER")
@@ -737,6 +738,16 @@
       (scan-lists end 1 0)
       (lisp-compile-region start end))))
 
+(define-command lisp-eval-expression-in-repl () ()
+  (check-connection)
+  (with-point ((point (current-point)))
+    (top-of-defun-with-annotation point)
+    (with-point ((start point)
+                 (end point))
+      (scan-lists end 1 0)
+      (send-string-to-listener (points-to-string start end)
+                               (buffer-package (current-buffer))))))
+
 (defun form-string-at-point ()
   (with-point ((point (current-point)))
     (skip-chars-backward point #'syntax-symbol-char-p)

extensions/lisp-mode/repl.lisp

@@ -262,11 +262,13 @@
                                          string
                                          (string #\newline))))))
 
-(defun send-string-to-listener (string)
-  (lisp-switch-to-repl-buffer)
-  (buffer-end (current-point))
-  (insert-string (current-point) string)
-  (lem/listener-mode:listener-return))
+(defun send-string-to-listener (string &optional package-name)
+  (with-current-window (current-window)
+    (lisp-switch-to-repl-buffer)
+    (buffer-end (current-point))
+    (when package-name (lisp-set-package package-name))
+    (insert-string (current-point) string)
+    (lem/listener-mode:listener-return)))
 
 (define-command start-lisp-repl (&optional (use-this-window nil)) (:universal-nil)
   (check-connection)