Skip to content

Instantly share code, notes, and snippets.

@Liutos

Liutos/gist:3631848

Created September 5, 2012 06:39
Show Gist options
  • Save Liutos/3631848 to your computer and use it in GitHub Desktop.
Save Liutos/3631848 to your computer and use it in GitHub Desktop.
Download ZIP
传递一个不需要的参数的递归函数，纯粹测试。
Raw
gistfile1.lisp
;;; 下面的函数定义中参数c没有使用到，在我的系统上使用SBCL，在TopLevel中输入下面的表达式会抛出警告，说变量c没有使用。
(defun my-plus (a b c)
(if (zerop b)
a
(my-plus (1+ a) (1- b) nil)))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment