common-lisp 广义布尔
示例
实际上,任何与CommonLisp中的值不同的值都NIL被视为真实值。例如:
CL-USER> (let ((a (+ 2 2))) (if a a "Oh my! 2 + 2 is equal to NIL!")) 4
可将此事实与布尔运算符结合使用,以使程序更简洁。例如,上面的示例等效于:
CL-USER> (or (+ 2 2) "Oh my! 2 + 2 is equal to NIL!") 4
宏OR按从左到右的顺序评估其参数,并在找到非NIL值后立即停止并返回。如果所有参数都为NIL,则返回的值为NIL:
CL-USER> (or (= 1 2) (= 3 4) (= 5 6)) NIL
类似地,AND如果所有参数都被评估为非NIL,则宏从左到右评估其参数,并返回最后一个参数的值,否则,一旦发现NIL,立即停止评估,并返回:
CL-USER> (let ((a 2) (b 3)) (and (/= b 0) (/ a b))) 2/3 CL-USER> (let ((a 2) (b 0)) (and (/= b 0) (/ a b))) NIL
由于这些原因,AND并且OR可以被认为是更类似于其他语言的控制结构,而不是布尔运算符。