BHR_kramer的专栏

看land of lisp的时候发现了这个函数。这个函数的作用如下 CL-USER> (ash 8 -1) 4 CL-USER> (ash 8 1) 16 可见，它的作用就是把左边的参数转化成2进制形式，然后，右移一位或者左移一位。其实也就是除以2或者乘以2。 当然，如果你把右边的 -1 ， 1 换成 2 的话，那么就是左移2位或者右移两位。（负数的情况下是右移） 当时有个小疑问，我

代码 (defparameter *small* 1) (defparameter *big* 100) (defun guess-my-number() (ash (+ *small* *big*) -1) ) (defun smaller() (setf *big* (1- (guess-my-number))) (guess-my-number) ) (defun b

同一个参数 ’（+ 1 2） 为什么返回却不同？ CL-USER> (print '(+ 1 2 )) (+ 1 2) (+ 1 2) CL-USER> (print (read)) '(+ 1 2) '(+ 1 2) '(+ 1 2)