Lisp - 函数的函数调用接收的参数太少？答案

【问题标题】：Lisp - funcall of function receives too few arguments?Lisp - 函数的函数调用接收的参数太少？
【发布时间】：2011-11-15 22:05:38
【问题描述】：

我正在尝试找出funcall 的正确用法。我有这个功能：

(defun frame-add-slot (frame slot)
  (push (list slot) (rest (assoc frame *frames*))))

我正试图让这个其他函数来调用它。

(defun frame-add-subframe (superframe subframe)
  (let ((res (push (list subframe) (rest *frames*))))
    (funcall (frame-add-slot) subframe 'ako))))

但是，当我尝试以这种方式传递两个参数时，clisp 告诉我被调用的函数接收的参数太少。我究竟做错了什么？ *Frames* 是我的知识库。它看起来像这样：

(setf *frames* '((mammal
                  (eats 
                   (:value meat)
                   (:if-needed (food))))
                 (4-legged-animal
                  (ako
                   (:type mammal)
                   (:default beings))
                  (blood
                   (:type warm-blooded)))
                 (husky
                  (ako
                   (:type dog))
                  (origin
                   (:value alaska)
                   (:default north-america))
                  (roots
                   (:value unknown)))
                 (dog 
                  (ako 
                   (:type 4-legged-animal))
                  (exterior 
                   (:value furry)
                   (:default skin)))
                 (abner
                  (isa 
                   (:type husky)
                   (:default dog))
                  (shape 
                   (:weight 40-lbs)
                   (:height 20-inches)
                   (:color brown))
                  (acts
                   (:demeanor friendly)
                   (:sometimes rough)))
                 (gypsy
                  (isa 
                   (:default dog))
                  (acts
                   (:demeanor unpredictable))
                  (shapes
                   (:weight 45-lbs)
                   (:color black-and-brown)))))

【问题讨论】：

顺便问一下，这是一道作业题吗？

标签： lisp common-lisp

【解决方案1】：

你能解释一下为什么需要FUNCALL吗？

FRAME-ADD-SLOT 是一个普通的命名函数，你可以这样调用它——不用FUNCALL。

(defun frame-add-subframe (superframe subframe)
  (let ((res (push (list subframe) (rest *frames*))))
    (frame-add-slot subframe 'ako))))

文字数据

稍后在您的代码中，您将*frames* 设置为常量文字数据。在您的函数中，您正在修改此常量数据。在标准的 Common Lisp 中，这些修改的效果是未定义的。您需要新分配的数据结构 - 这些可以毫无问题地修改。例如，请参阅函数 COPY-TREE 以递归方式制作深度嵌套列表的新副本。 COPY-TREE的结果可以修改。

【讨论】：

【解决方案2】：

您的frame-add-subframe 函数存在几个问题：

为什么在这种情况下使用funcall？你应该可以直接拨打frame-add-slot:(frame-add-slot subframe 'ako)
如果funcall 的用法值得使用，那么您应该像这样使用它：(funcall #'frame-add-slot subframe 'ako)
我猜你不是指定'ako 硬编码，而是想以某种方式使用res？该变量未使用。

【讨论】：

【解决方案3】：

在 (funcall (frame-add-slot) subframe 'ako)))) 中，您通过在其周围放置括号来调用 frame-add-slot。

试试(funcall #'frame-add-slot subframe 'ako)。

【讨论】：