struct - Common Lisp 按顺序处理结构槽

Question

是否有一种变通方法可以像 LET* 中那样按顺序处理结构体槽绑定(bind)，以便前面的槽分配对后面的槽分配可见？

例如在下面我希望c对d可见。

(defstruct (my-struct (:constructor cons-struct (a b)))
  (c (* a b))
  (d c))

我怎样才能得到这种效果？

Answer 1

您已经使用了 boa constructor .您可以使用它的 boa lambda list按顺序做事:

(defstruct (my-struct (:constructor cons-struct (a b
                                                 &aux
                                                  (c (* a b))
                                                  (d c))))
  c
  d)