在通用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个对象的列表。

意向：

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

问题/问题：

通过按预期返回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))

失败。