let绑定中的“必需的参数不是符号”错误

问题描述

在下面的代码中，我遇到了required argument is not a symbol错误。

(defconstant +localhost+ (vector 127 0 0 1))

(defun ip-from-hostname (hostname)
  (sb-bsd-sockets:host-ent-addresses
  (sb-bsd-sockets:get-host-by-name hostname)))

(defun test-connect
    (let ((ip (car (ip-from-hostname "www.google.com")))
              (socket (make-instance 'sb-bsd-sockets:inet-socket :type :stream :protocol :tcp)))
      (sb-bsd-sockets:socket-bind socket +localhost+ 8080)
      (sb-bsd-sockets:socket-connect socket ip)
      (sb-bsd-sockets:socket-send socket "GET / HTTP/1.1" nil)
      (write-line (sb-bsd-sockets:socket-receive socket nil 2048))))

(test-connect)

更多完整的错误消息：

required argument is not a symbol: ((IP
                                       (CAR
                                        (IP-FROM-HOSTNAME "www.google.com")))
                                      (SOCKET
                                       (MAKE-INSTANCE
                                        'SB-BSD-SOCKETS:INET-SOCKET :TYPE
                                        :STREAM :PROTOCOL :TCP)))

我已经将问题缩小到调用ip-from-hostname的部分，但是奇怪的是，简化版的let绑定在REPL中起作用：

(let ((ip (sb-bsd-sockets:host-ent-addresses (sb-bsd-sockets:get-host-by-name "www.google.com"))))
  (write-line (write-to-string (car ip))))

我还尝试用其正文替换ip-from-hostname调用，以为这可能与参数有关，但还是没有运气。有什么想法吗？

解决方法

(defun test-connect ...

...应该是lambda列表，该列表已丢失。

请记住，DEFUN的语法是：

defun function-name lambda-list
  [[declaration* | documentation]]
  form*

common-lisp sbcl