Testing the New IF-N-Z-P

> (macroexpand

> '(if-n-z-p (- x 3) (- x 1) x (+ x 5)) )

(LET ((#:G1019 (- X 3)))

(COND

((MINUSP #:G1019) (- X 1))

((ZEROP #:G1019) X)

((PLUSP #:G1019) (+ X 5))))

T

> (setq x -5)

-5

> (if-n-z-p (- x 3) (- x 1) x (+ x 5))

-6

Previous slide

Next slide

Back to first slide

View graphic version