在结构的构造函数中指定多个选项？

Question

我尝试使用自定义打印函数和构造函数定义一个结构，如下所示：

(defun print-test (a-test stream depth)
       (format stream "#<TEST-STRUCT ~A>" (test-struct-a a-test)))

(defstruct (test-struct (:print-function print-test
                          :constructor create-test
                          (&key a (b a) c)))
       a
       b
       c)

但在评估时我得到：

Bad defstruct option (:PRINT-FUNCTION PRINT-TEST :CONSTRUCTOR
                      CREATE-TEST (&KEY A B C)).
   [Condition of type CCL::SIMPLE-PROGRAM-ERROR]

但单独指定任一关键字都可以正常工作。我该如何解决这个问题？

Answer 1

根据语法，选项必须单独加括号。因此，defstruct 形式需要如下所示：

(defstruct (test-struct (:print-function print-test)
                        (:constructor create-test (&key a (b a) c)))
  a
  b
  c)