Example: IF-N-Z-P
> (defmacro 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