lisp - 访问嵌套结构槽

Question

我有以下结构:

(defstruct track 
    size 
    env 
    startpos 
    endpositions)

(defstruct state 
    pos 
    vel
    action
    cost
    track
    other)

我有一个状态，我正在尝试访问端点(列表列表)

(setq coluna_final (nth 1 (nth 0 (state-track-endpositions st))))

但我收到错误:EVAL: undefined function STATE-TRACK-ENDPOSITIONS

我做错了什么？

Answer 1

第一个defstruct定义(尤其是)函数 track-endpositions，第二个定义 state-track。 Lisp 没有办法知道后者返回的是一个track(即使你声明了槽类型，它也不会定义你想要的函数)。

你可以自己做:

(defun state-track-endpositions (st)
  (track-endpositions (state-track st)))