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安装了(require 'le-lisp)软件包，那么

或者只是lispy 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)))"

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

1 个答案: