使用 hunchentoot 和 sbcl 从 web 抓取 lisp 输入时遇到问题

Question

这里有一个口齿不清的问题。 在过去的几个月里，我一直在慢慢学习 lisp，并且在尝试从 web 浏览器获取输入与从 REPL 获取输入时遇到了问题。

具体问题是在尝试评估此代码时：

假设sexp是'(look north) 。

(member (car sexp) '(look walk pickup drop))

从 SBCL 中的 REPL 来看，这可以正常工作并且符合预期。 然而，当从 hunchentoot 获取sexp时，即使sexp “看起来”与 REPL 中的相同，它似乎永远无法考虑(car sexp)的成员'(look walk pickup drop)的结果。

我认为这可能是从 web 浏览器抓取时文件的字符编码与sexp的字符编码，但我不知道如何检验这个假设。 任何指针将不胜感激！

编辑

我输入的方式是基于 Conrad Barski 的“Land of Lisp”中的文字冒险游戏，详情如下。

(defun game-read (string-to-read)
  (let ((cmd (read-from-string
               (concatenate 'string "(" string-to-read ")"))))
    (describe cmd)
    (flet ((quote-it (x)
                     (list 'quote x)))
      (cons (car cmd) (mapcar #'quote-it (cdr cmd))))))

然后将其包裹在：

(defun game-eval (sexp)
  (if (member (car sexp) *allowed-commands*) ;Offending line                                                                          
      (eval sexp)
      '(i do not know that command.)))

其中*allowed-commands*是：

(defparameter *allowed-commands* '(look walk pickup inventory))

我标记为冒犯了正常工作的行，但是当string-to-read来自从 hunchentoot 获取的请求参数作为请求的一部分(car sexp)时，无论我怎么看，它看起来都是一样的它但在*allowed-commands*中找不到。

Answer 1

你需要确定你得到的是什么输入。 它是一个符号吗？ Common Lisp 具有 TYPE-OF、INSPECT 和 DESCRIBE 等功能，可以获取有关数据的更多信息。

* (describe 'north)

COMMON-LISP-USER::NORTH
  [symbol]


* (type-of 'north)

SYMBOL

下一个问题是：如果是符号，package是哪个？

* (symbol-package 'north)

#<PACKAGE "COMMON-LISP-USER">

您的其他符号是否在同一个 package 中？

下一个问题是：如果是符号或字符串，那么大写呢？

* (symbol-name 'north)

"NORTH"

默认情况下，符号是大写的。 从输入读取的符号不一定是这种情况。

现在您还可以使用 MEMBER 进行纯字符串比较：

* (member (symbol-name '|Foo|)
          '(foo bar baz)
          :key #'symbol-name :test #'equalp)

(FOO BAR BAZ)   ; this is the usual return value,
                ; the rest list with first item found

Answer 2

我从未使用过 sbcl 或 Common Lisp，但这听起来像是一个实习问题。 试试这个查询：

(member (intern (car sexp)) '(look walk pickup drop)))