Macro Examples

• Ordered-bounds

(defmacro order-bounds (left bottom right top)

`(progn (if (> ,left ,right) (rotatef ,left ,right))

(if (> ,bottom ,top) (rotatef ,bottom ,top))))

(setq left 10)

(setq right 0)

(setq top 50)

(setq bottom 4)

(order-bounds left bottom right top)

;; Now LEFT is 0, RIGHT is 10,

;; TOP is 4, BOTTOM is 50

Previous slide

Next slide

Back to first slide

View graphic version