Как получить количество аргументов функции

Question

Я ищу способ получить количество аргументов функции, функции, как воображаемая length-args функция ниже:

(defun func1 (arg1 arg2) 
  ())

(defun get-count-args-func (func) 
  (length-args func))

(get-count-args-func #'func1)
;; return 2

На практике мне действительно нужно решить вопрос из моей библиотеки тестов, который я перенесу из javascript в lisp, где я имею дело как с синхронными, так и с асинхронными тестами, где мне нужно сделать что-то вроде этого (максимально упростить реальность):

(defun test () 
  ;;...
  )

(defun done ()
  ;;...
  )

(defun run-test (test)
  (if (>= (get-count-args-func test) 1)
      (test (funcall done))
      (test)))

Answer 1

Я нашел способ решить эту проблему, посмотрев на этот ответ здесь: Найдите Arity функции в общем lisp, функция arglist требуется для обработки различных реализаций, см. Реализацию arglist:

;; function provided by @sds at https://stackru.com/questions/15465138/find-functions-arity-in-common-lisp
(defun arglist (fn)
  "Return the signature of the function."
  #+allegro (excl:arglist fn)
  #+clisp (sys::arglist fn)
  #+(or cmu scl)
  (let ((f (coerce fn 'function)))
    (typecase f
      (STANDARD-GENERIC-FUNCTION (pcl:generic-function-lambda-list f))
      (EVAL:INTERPRETED-FUNCTION (eval:interpreted-function-arglist f))
      (FUNCTION (values (read-from-string (kernel:%function-arglist f))))))
  #+cormanlisp (ccl:function-lambda-list
                (typecase fn (symbol (fdefinition fn)) (t fn)))
  #+gcl (let ((fn (etypecase fn
                    (symbol fn)
                    (function (si:compiled-function-name fn)))))
          (get fn 'si:debug))
  #+lispworks (lw:function-lambda-list fn)
  #+lucid (lcl:arglist fn)
  #+sbcl (sb-introspect:function-lambda-list fn)
  #-(or allegro clisp cmu cormanlisp gcl lispworks lucid sbcl scl)
  (error 'not-implemented :proc (list 'arglist fn)))

Теперь я могу сделать:

(defun func1 (arg1 arg2) 
  ())

(defun get-count-args-func (func) 
  (length (arglist func)))

(get-count-args-func #'func1) => 2

Итак, у меня есть количество аргументов, вы просто должны быть внимательны, если у вас есть некоторые &key аргумент, &rest или же &optional, например:

(defun func1 (&optional arg1 arg2) 
  ())

(defun get-count-args-func (func) 
  (length (arglist func)))

(get-count-args-func #'func1) => 3

Посмотрите, что вы получаете 3, потому что функция arglist возвращает:

(&OPTIONAL ARG1 ARG2)

в то время как только с необходимыми аргументами он вернулся:

(ARG1 ARG2)

Answer 2

Самый простой способ сделать это - добавить остальные параметры в вашу функцию, а внутри функции использовать встроенную функцию длины, чтобы определить количество аргументов, которые принимает функция:

CL-USER> (defun fun-1(&rest args)
   (length args))
FUN-1
CL-USER> (fun-1 1 2 3)
3