v.说话口齿不清,咬舌
lisp的现在分词

原形：lisp第三人称单数：lisps复数：lisps过去式：lisped过去分词：lisped现在分词：lisping

`(setq x 10)` - 设置变量x为10。
`(if (zerop x) (print "Zero") (print "Not Zero"))` - 如果x为零，打印"Zero"，否则打印"Not Zero"。
`(defun add (a b) (+ a b))` - 定义一个函数add，它接受两个参数a和b，并返回它们的和。
`(let ((y 5)) (* x y))` - 在一个新的作用域中设置变量y为5，然后返回x和y的乘积。
`(cons 1 '(2 3 4))` - 将1添加到列表(2 3 4)的前面，形成新的列表(1 2 3 4)。
`(car '(1 2 3))` - 获取列表(1 2 3)的第一个元素，即1。
`(cdr '(1 2 3))` - 获取列表(1 2 3)的剩余部分，即(2 3)。
`(mapcar #'sqrt '(1 4 9))` - 对列表(1 4 9)的每个元素应用平方根函数，返回结果列表(1 2 3)。
`(reduce '+ '(1 2 3 4))` - 使用加法函数将列表(1 2 3 4)的所有元素累积起来，返回10。
`(do ((i 1 (1+ i))) ((> i 10) i) (print i))` - 从1开始，每次递增1，当i大于10时停止，打印每个迭代的i值，最后返回11。