Emacs 如何在非slime缓冲区中评估公共Lisp代码？

我希望能够获得我的SBCL 1.4.5（Linux x86_64） Emacs评估S表达式（sexp）的“低级lisp过程” 在某些Emacs缓冲区中，它不是“粘液”缓冲区-我有 最新的quicklisp和slime-2.20

我认为这与中的问题完全相同： 但事实并非如此——我的问题是，当我尝试运行“slime eval”或 任何“在低级lisp过程中运行”的粘液方法，所有符号似乎都是 仅在SWANK-IO-PACKAGE命名空间中查找：

 In my Emacs '*scratch*' buffer:

    (slime-eval '(symbolp '+) "CL-USER")

产生回溯错误：

   The function SWANK-IO-PACKAGE::SYMBOLP is undefined.
   [Condition of type UNDEFINED-FUNCTION]

   Restarts:
   0: [CONTINUE] Retry calling SWANK-IO-PACKAGE::SYMBOLP.
   1: [USE-VALUE] Call specified function.
   2: [RETURN-VALUE] Return specified values.
   3: [RETURN-NOTHING] Return zero values.
   4: [*ABORT] Return to SLIME's top level.
   5: [ABORT] abort thread (#<THREAD "worker" RUNNING {100262C8E3}>)

   Backtrace:
   0: ("undefined function" SWANK-IO-PACKAGE::+)
   1: (SB-INT:SIMPLE-EVAL-IN-LEXENV \
   (SWANK-IO-PACKAGE::SYMBOLP (QUOTE SWANK-IO-PACKAGE::+)) \
    #<NULL-LEXENV>)
   2: (EVAL (SWANK-IO-PACKAGE::SYMBOLP (QUOTE SWANK-IO-PACKAGE::+)))

或

我仍然得到相同的错误，因为“+和：+”是 始终仅在SWANK-IO-PACKAGE名称空间中查找

我只是在第一次测试中尝试运行时发现了这一点：

     (slime-eval '(+ 2 2) "CL-USER")

在输出缓冲区中打印另一个回溯

     The function SWANK-IO-PACKAGE::+ is undefined.
     [Condition of type UNDEFINED-FUNCTION]

我确实尝试了问题22456086中的代码片段：

    (require 'slime)
    (defun slrepl (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)))))

这样做：

    (slrepl '(symbol-function '+))^X^E

仍然导致：

    The function SWANK-IO-PACKAGE::SYMBOL-FUNCTION is undefined.
    [Condition of type UNDEFINED-FUNCTION]

    The function SWANK-IO-PACKAGE::+ is undefined.
    [Condition of type UNDEFINED-FUNCTION]

对默认SB_INT命名空间的访问似乎被拒绝

如何在这种情况下启用它

我希望能够将表单发送到任何缓冲区，而不仅仅是从slime中读取来自同一emacs低级lisp进程（sbcl）的结果 “粘液补充sbcl”缓冲液。有没有办法做到这一点

显然，我可以编写一个Emacs Lisp函数来切换到 黏液repl缓冲液并在该缓冲液中进行评估。 当然，上面所有的例子，例如（eval'（symbolp'+）， 在黏液repl缓冲液中工作良好。我想没有办法 关于切换到slime repl缓冲区

这可能会澄清：

在《刮痕》中：

在slime输出缓冲区中：

    Invalid protocol message:
    The symbol "SYMBOLP" is not external in the SB-INT package.

            Line: 1, Column: 26, File-Position: 26

            Stream: #<SB-IMPL::STRING-INPUT-STREAM {1002A1CD63}>

    (:emacs-rex (SB-INT:symbolp (quote SB-INT:+)) "CL-USER" t 78)

我已经尝试了所有可能的软件包名称上面列出的 粘液评估具有相同的结果。 无论我使用'slrepl'代码片段还是简单的代码片段，都会发生同样的情况 slime eval-没有可用的lisp标准语法符号。我需要吗 加载lisp语法表还是什么

回复：我可以切换到slime repl buffer并执行此操作吗不

    (require 'slime)
    (let ((slbuf (get-buffer "*slime-repl sbcl*")))
     (if (eq nil slbuf)
      (error "please start slime (M-x slime)")
      (progn (set-buffer slbuf)(slime-eval '(+ 2 2) "COMMON-LISP-USER"))
     )
    )^X^E

仍然导致：

    The function SWANK-IO-PACKAGE::SYMBOL-FUNCTION is undefined.
    [Condition of type UNDEFINED-FUNCTION]

    The function SWANK-IO-PACKAGE::+ is undefined.
    [Condition of type UNDEFINED-FUNCTION]

我是一个生疏/正在使用LISP的用户，对SBCL和slime还不熟悉。 我真的很想集成Emacs强大的编辑和文件管理功能 &与外部CL XML和HTML生成及解析的交互工具

---

工具。但是首先，我想找到这个问题的根源…

像

+

和

symbolp

这样的常见Lisp符号都在

Common-Lisp

包中。短名称

CL

。这些符号通常不会从软件包

CL-USER

中导出。因此，

symbolp

可以被引用为

cl:symbolp

。这些符号可以在包

CL-USER

中访问，但不能从那里导出。因此，您也可以引用

cl:symbolp

作为

cl user:：symbolp

->注意这两个冒号

在表单中调用包内

，对表单本身没有影响，因为表单已被读取。尽管它具有调用读卡器函数或类似于

查找符号

的函数的效果

CL-USER 5 > (defpackage "FOO" (:use))
#<The FOO package, 0/16 internal, 0/16 external>

CL-USER 6 > (progn (in-package "FOO")
              (list 'bar (read-from-string "BAR")))
(COMMON-LISP-USER::BAR BAR)    ; we now print from package "FOO"

但在这里您可以看到，结果通过Emacs Lisp阅读器带回Emacs Lisp，而包并不存在

---

因此，作为一个简单的远程执行接口，

SLIME-EVAL

没有什么意义…

现在可以了！谢谢

    (require 'slime)
    (defun CL$ (str)
      (let ((slbuf (get-buffer "*slime-repl sbcl*")))
        (if (eq nil slbuf)
            (error "Please start slime (M-x slime).")
            (progn
             (set-buffer slbuf)
             (slime-eval str "CL")
            )
         )
      )
   )
   (CL$ '(cl:+ 2 2))
   => 4

但我不完全理解为什么我必须在所有符号前加上CL或 为什么这仍然不起作用：

    (slime-eval '(+ 2 2) "CL")

但这确实： （煤泥评估（cl:+2）“cl”）

我以为第三个参数是要放在当前包中的？ 那么为什么我必须在每个符号后面加上'cl'。

---

但是谢谢你的帮助，还有一个很棒的slime+sbcl。

看看源代码，你可能发现了一个bug。消息总是在swank io包中读取，即

（emacs rex（swank io包：：symbolp swank io包：：+）

，然后在绑定包时将内部表单传递给

eval for emacs

，但此时符号已经在swank io包中。这与C-x C-e采用的方法不同，C-x C-e大致运行

（slime eval print”（symbolp+）

。在试图给出一个明确的答案之前，我可能会进一步调查一下（但不是现在…）啊哈！是的，就是这样！在所有符号上预挂起“cl:”确实有效@JVD：另一个“hack”注意，这也是一个hack，因为Emacs Lisp没有包的概念，请参见我的第二部分答案。因此，在Emacs Lisp中，

cl:+

表示名为

cl:+

的符号。如果使用表单调用SLIM-EVAL，则此表单已作为Emacs Lisp表单而不是普通Lisp表单读取并打印。因此，要实际执行CL代码，您可能需要使用发送字符串的东西。

CL-USER 5 > (defpackage "FOO" (:use))
#<The FOO package, 0/16 internal, 0/16 external>

CL-USER 6 > (progn (in-package "FOO")
              (list 'bar (read-from-string "BAR")))
(COMMON-LISP-USER::BAR BAR)    ; we now print from package "FOO"

ELISP> (slime-eval '(cl:eval (cl:read-from-string "(+ 1 2)")) "CL-USER")
3 (#o3, #x3, ?\C-c)
ELISP> (slime-eval '(cl:eval (cl:read-from-string "'foo")) "CL-USER")
common-lisp-user::foo

    (require 'slime)
    (defun CL$ (str)
      (let ((slbuf (get-buffer "*slime-repl sbcl*")))
        (if (eq nil slbuf)
            (error "Please start slime (M-x slime).")
            (progn
             (set-buffer slbuf)
             (slime-eval str "CL")
            )
         )
      )
   )
   (CL$ '(cl:+ 2 2))
   => 4

    (slime-eval '(+ 2 2) "CL")