common-lisp 广义布尔

2024-04-15 03:54:05 429

示例

实际上，任何与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可以被认为是更类似于其他语言的控制结构，而不是布尔运算符。

示例