emacs - 如何在 Emacs Lisp 中使用 Slime 运行 Common Lisp 代码

Question

出于某种原因，我写了一些 Common Lisp 代码来做我想做的事。我使用 QuickLisp 和 Slime。现在我希望与 Emacs Lisp 集成。

我试过

(slime)
(slime-eval-region start end)
...

在我的 el 文件中，但它不起作用。

我只是运行 Common Lisp 代码并捕获返回值，仅此而已。那我该怎么办呢？

Answer 1

如果我没理解错的话，你想将 Common Lisp 代码作为 Elisp 字符串，在 SLIME 中对其进行评估，并将输出作为 Elisp 字符串加上副作用。

您可以使用此设置代码执行此操作:

(require 'slime)
(defun lispy--eval-lisp (str)
  "Eval STR as Common Lisp code."
  (unless (slime-current-connection)
    (let ((wnd (current-window-configuration)))
      (slime)
      (while (not (and (slime-current-connection)
                       (get-buffer-window (slime-output-buffer))))
        (sit-for 0.2))
      (set-window-configuration wnd)))
  (let (deactivate-mark)
    (cadr (slime-eval `(swank:eval-and-grab-output ,str)))))

或者如果你已经安装了来自 MELPA 的 lispy 包或者只是 (require 'le-lisp) 或者 github .

这是 *scratch* 中的示例用法:

(lispy--eval-lisp "(load \"~/quicklisp/setup\")")
;; "T"

(lispy--eval-lisp "(ql:quickload 'png)")
;; "(PNG)"

(lispy--eval-lisp "(png:make-image 5 5 1)")
;; "#3A(((0) (0) (0) (0) (0))
;;     ((0) (0) (0) (0) (0))
;;     ((0) (0) (0) (0) (0))
;;     ((0) (0) (0) (0) (0))
;;     ((0) (0) (0) (0) (0)))"