本文共 331 字,大约阅读时间需要 1 分钟。
CL-USER> (member '(a) '((a) (b)))NILCL-USER> (member '(a) '((a) (b)):test #'equal)((A) (B))CL-USER> (member 'a '((a) (b)):key #'car)((A) (B))CL-USER> |
来自 “ ITPUB博客 ” ,链接:http://blog.itpub.net/133735/viewspace-740222/,如需转载,请注明出处,否则将追究法律责任。
转载于:http://blog.itpub.net/133735/viewspace-740222/