Common Lisp,"已定义但从未使用过"

Question

此函数编译警告,fn已定义且从未在第一行中使用,并且fn是第二行中未定义的函数:

(defun test-function (fn)
  (funcall #'fn))

为什么？一般性解释或其链接将是伟大的.

PD:完整日志:

test.lisp:9:1:                                                                             
  style-warning:                                                                           
    The variable FN is defined but never used.                                             
    --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA                          
    ==>                                                                                    
      #'(SB-INT:NAMED-LAMBDA TEST-FUNCTION                                                          
            (FN)                                                                           
          (BLOCK TEST-FUNCTION (FUNCALL #'FN)))                                                     


test.lisp:10:3:                                                                            
  style-warning:                                                                           
    undefined function: FN                                                                 
    ==>                                                                                    
      (SB-C::%FUNCALL #'FN)

Answer 1

如果要调用作为参数传递的函数,或者将其分配给变量,只需使用变量或参数作为第一个参数funcall:

(defun test-function(fn)
  (funcall fn))

(test-function #'+)
;; => 0

符号#'X是(function X)(参见手册)的缩写,其中X 必须是函数的名称,例如使用defunor labels或flet或lambda表达式定义.因此,#'fn不起作用,因为fn它不是函数的名称,而是变量(在本例中是一个参数).

Common-Lisp是一个Lisp-2,即函数的命名空间不同于其他变量.因此,函数的名称是特殊的,你可以直接在一个表单中调用它们,而如果一个函数被赋给一个变量,它必须被调用(funcall name-of-the-variable arguments).