3

假设我有一个结构（它的参数比这里显示的更多）：

(defstruct location
  name)

以及使用反引号定义一系列位置的关联列表：

(defparameter *locations* `(
  (ASIA ,(make-location :name "Asia"))
  (AFRICA ,(make-location :name "Africa"))
  )

这可以正常工作并正确创建位置结构。问题是，我计划有很多位置，而不是手动输入：

(defparameter *locations* `(
  (ASIA ,(make-location :name "Asia"))
  (AFRICA ,(make-location :name "Africa"))
  (LOC1 ,(make-location :name "Location 1"))
  ; Lots more...
  (LOC1024 ,(make-location :name "Location 1027"))
  )

许多这些额外的位置具有相似的参数，因此我可以定义一个“生成器函数”来创建它们的列表：

(defun generate-locations (symbol name count)
  (loop for i from 1 to count collect (list
    (read-from-string (format nil "~A~D" symbol i))
    (make-location :name name))))

;;; Creates list ((LOC1 #S(LOCATION :NAME "Location 1")) (LOC2 ...
(generate-locations "LOC" "Location " 1024)

所以然后我尝试做类似的事情：

(defparameter *locations* `(
  (ASIA ,(make-location :name "Asia"))
  (AFRICA ,(make-location :name "Africa"))
  ,(generate-locations "LOC" "Location " 1024)
  )

不起作用，因为GENERATE-LOCATIONS返回一个list，而不是一系列可以添加到列表中的元素。所以我尝试了VALUES-LIST它：

(defparameter *locations* `(
  (ASIA ,(make-location :name "Asia"))
  (AFRICA ,(make-location :name "Africa"))
  ,(values-list (generate-locations "LOC" "Location " 1024))
  )

这只会将第一个生成的位置添加到*LOCATIONS*. 我假设这是因为除了第一个之外的所有返回值VALUES-LIST都被忽略了。

那么如何正确添加一系列元素*LOCATIONS*呢？应该GENERATE-LOCATIONS是宏吗？如果是这样，它将如何构建？

4

1 回答 1

8

您需要使用拼接取消引用运算符，,@. 在您的示例中：

(defparameter *locations* `(
  (ASIA ,(make-location :name "Asia"))
  (AFRICA ,(make-location :name "Africa"))
  ,@(generate-locations "LOC" "Location " 1024)
  )

为此，generate-locations应返回一个列表。,@会将每个项目拼接到周围的列表中，而不是将其作为单个项目插入。

于 2013-09-23T03:31:38.047 回答