Example: IF-N-Z-P

> (define-macro (if-n-z-p numexpr negform zeroform posform)

(list 'cond

(list (list '< (eval numexpr) 0)

negform)

(list (list '= (eval numexpr) 0)

zeroform)

(list (list '> (eval numexpr) 0)

posform)

(list t '(print 'error))

) )

Previous slide

Next slide

Back to first slide

View graphic version