在通用 lisp 中访问封装类方法中的封装类槽

Question

我有以下基本类和方法：

        (defgeneric connect-edge (edge))

        (defclass Node ()
          ((forward-edges :initform nil)
           (backward-edges :initform nil)
           (value :initform 0.0)))

        (defclass Edge ()
          ((value :initform 0.0)
           (nodes :initform nil)))

        (defmethod connect-edge ((edge Edge))
        ;; does nothing important. Simplified to cause the problem
            (slot-value (car (slot-value edge 'nodes)) 'forward-edges))

我将方法简化到足以给我一个错误。基本上它在这一点上没有做任何有用的事情，但足以证明问题。

设置：

Edge 类具有nodes，它是Node 对象的列表。 Node 类具有Edge 对象的列表。

意图：

读取/写入封装在Edge 对象（节点列表）中的Node 对象中的forward-edges 和backward-edges

问题/疑问：

通过按预期返回 nil 来“工作”：

(defparameter *edge* (make-instance 'Edge))
(setf (slot-value *edge* 'nodes) (list (make-instance 'Node) (make-instance 'Node)))
(connect-edge *edge*)

这段代码给了我下面的错误，为什么？

(connect-edge (make-instance 'Edge))

There is no applicable method for the generic function
  #<STANDARD-GENERIC-FUNCTION (SB-PCL::SLOT-ACCESSOR :GLOBAL
                               COMMON-LISP-USER::FORWARD-EDGES
                               SB-PCL::READER) (1)>
when called with arguments
  (NIL).

另外，如果我这样做，我会收到以下错误，我想我明白为什么：没有定义需要 nil 的通用函数：

(connect-edge nil)

There is no applicable method for the generic function
  #<STANDARD-GENERIC-FUNCTION COMMON-LISP-USER::CONNECT-EDGE (1)>
when called with arguments
  (NIL).
   [Condition of type SIMPLE-ERROR]

我为什么要这么做？

我有以下代码导致（可能是由于不同的原因）类似的错误：

(defun make-classic (net)
  (loop
     for this-layer in net
     for next-layer in (cdr net)
     do
       (loop
      for this-node in this-layer
      do
        (loop
           for next-node in next-layer
           do
         (let ((edge (make-instance 'Edge)))
           (setf (slot-value edge 'nodes) '(this-node next-node))
           (format t "Type of edge is ~a~%" (type-of edge))
           ;; Error is here
           (connect-edge edge))))))

我不确定错误是否是由于传递了一个作用域变量，所以我最终尝试传递一个(make-instance 'Edge) 来导致错误。

Answer 1

这就是你所需要的：

使用参数调用时 (NIL)。

(slot-value (make-instance 'Edge) 'nodes)

是nil，所以

 (slot-value (car (slot-value edge 'nodes)) 'forward-edges))

失败。