确定Common Lisp中的函数参数列表

Question

在常见的lisp中给定函数对象（或函数符号）是否有可能找到函数的参数列表？

Answer 1

这对于每个CL实现都是不同的，但是Swank包（提供可以在f.e. Emacs＆＃39; minibuffer中显示arglists的Slime）将它包装在一个函数中：

* (defun testfn (arg1 arg2 &key (arg3 :a)) (declare (ignore arg1 arg2 arg3)))
TESTFN
* (swank-backend:arglist #'testfn)
(ARG1 ARG2 &KEY (ARG3 :A))

这也适用于方法：

* (defmethod testmethod ((arg1 t) arg2 &key (arg3 :a)) (declare (ignore arg1 arg2 arg3)))
STYLE-WARNING: Implicitly creating new generic function TESTMETHOD.
#<STANDARD-METHOD TESTMETHOD (T T) {1005670231}>
* (swank-backend:arglist #'testmethod)
(ARG1 ARG2 &KEY (ARG3 :A))

获得Swank的最简单方法是使用Quicklisp。

Answer 2

我不知道标准方式，但在SBCL中，您可以使用sb-introspect:function-lambda-list。

(defun test (a &rest rest &key (b 42)) nil)
(sb-introspect:function-lambda-list #'test)
=> (A &REST REST &KEY (B 42))

Answer 3

ANSI Common Lisp提供函数FUNCTION-LAMBDA-EXPRESSION，如果实现支持它并且已经记录了表达式，它可以返回lambda表达式。在lambda表达式中，第二项是参数列表 - 像往常一样。

否则返回参数列表未在ANSI Common Lisp标准中定义，并且是特定Lisp实现的一部分。例如，在某些“交付的”Lisp应用程序中，此信息可能不存在。

通常，大多数Common Lisp实现在某个内部包中都会有一个导出函数ARGLIST。