Question

我希望能够获得我的SBCL 1.4.5（Linux x86_64） Emacs＆＃39; inferior-lisp-process＆＃39;评估S表达（sexp）在某些Emacs缓冲区中，不是＆＃39;粘液＆＃39;缓冲 - 我有最新的quicklisp和slime-2.20。

我认为这与以下问题完全相同： How to run Common Lisp code with Slime in Emacs Lisp 但事实并非如此 - 我的问题是，当我试图运行＆＃39; slime-eval＆＃39;要么任何粘液都是在劣质过程中运行的。方法ALL符号似乎是仅在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::+)))

我是否这样做没有区别：

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

OR

    (slime-eval '(symbolp '+))

我仍然会得到同样的错误，因为＆＃39; +和：+是始终只在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]

似乎拒绝访问默认的SB_INT名称空间。

如何为这种情况启用它？

我希望能够从任何缓冲区向同一个emacs inferior-lisp-process（sbcl）发送表单并从中读取结果，而不仅仅是从粘液中＆＃39; slime repl sbcl＆＃39;缓冲。有没有办法做到这一点？

显然，我可以编写一个Emacs Lisp函数来切换到 slime repl缓冲区并在该缓冲区中进行评估。当然，所有上述例子，例如。（eval＆＃39;（symbolp＆＃39; +）），在slime-repl缓冲区中正常工作。我想没有办法切换到slime-repl缓冲区？

这可能会澄清：

在＆＃39; scratch ＆＃39; ：

     (slime-eval '(SB-INT:symbolp 'SB-INT:+) "CL-USER")^X^E

在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)

所以，在slime-repl缓冲区中，我可以这样做：

    CL-USER> (PROGN (IN-PACKAGE "COMMON-LISP-USER") (+ 2 2))
    4
    CL-USER> (PROGN (IN-PACKAGE "SB-IMPL") (symbol-function '+))
    #<FUNCTION +>
    CL-USER> (PROGN (IN-PACKAGE "SB-IMPL") (symbol-function '+))
    #<FUNCTION +>
    SB-IMPL> (PROGN (IN-PACKAGE "SB-INT") (symbol-function '+))
    #<FUNCTION +>

但是，如果我尝试运行相同的＆＃39; slime-eval＆＃39;任何功能其他缓冲区，例如＆＃39; 刮＆＃39; ：

    (slime-eval '(PROGN (COMMON-LISP-USER:IN-PACKAGE "COMMON-LISP-USER") 
                        (symbol-function '+)) :COMMON-LISP-USER)

    Invalid protocol message:
    The symbol "IN-PACKAGE" is not external in the 
    COMMON-LISP-USER package.

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

我已尝试过上面列出的所有可能的PACKAGE名称 slime-eval也有相同的结果。同样的事情发生在我是否使用＆＃39; slrepl＆＃39;代码片段或只是简单 slime-eval - 没有lisp标准语法符号可用。我需要吗？加载lisp语法表或什么？

RE：我可以切换到slime repl缓冲区吗？：不！：

    (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::+ is undefined.
    [Condition of type UNDEFINED-FUNCTION]

我是生锈/返回的LISP用户，是SBCL和史莱姆的新手。我真的很想整合Emacs＆＃39;伟大的编辑和文件管理＆安培;与外部CL XML和＆amp; amp; HTML生成＆amp;解析工具。但首先，我想谈谈这个问题的根源......

Answer 1

+和symbolp等常见Lisp符号位于COMMON-LISP包中。简称CL。这些符号通常不会从包CL-USER导出。因此symbolp可以引用为cl:symbolp。这些符号可在包CL-USER中访问，但不能从那里导出。因此，您还可以将cl:symbolp引用为cl-user::symbolp - ＆gt;注意两个冒号。

在表单中调用IN-PACKAGE对表单本身没有影响，因为表单已经被读取。虽然它具有调用阅读器功能或函数的效果，如find-symbol。

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中使用SLIME-EVAL

最好使用一个表单，它在Common Lisp端读取表达式，不涉及Emacs Lisp读取器/打印机：

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

但是在这里你看到结果通过Emacs Lisp阅读器带回Emacs Lisp - 包裹不存在。

因此，SLIME-EVAL作为一个简单的远程执行界面......

Answer 2

This now works! Thanks !

    (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

But I don't fully understand why I have to prepend all symbols with CL or why this still does not work:

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

but this does: (slime-eval '(cl:+ 2 2) "CL")

I thought the third parameter was meant to be made into the current package? So why do I have to append 'cl' to every symbol . But thanks for the help, and an otherwise great slime + sbcl .

如何在非粘滞缓冲区中评估Common Lisp代码？

2 个答案: