分别将参数加1与减1后返回。有一点误导，因为(1- x)返回x-1而不是1-x。
CL-USER> (setf x 5) 5 CL-USER> x 5 CL-USER> (1+ x) 6 CL-USER> x 5 CL-USER> (1- x) 4 CL-USER> x 5