Example: PUSH (actually built-in)

(defmacro push (element stack)

(list

'if

(list 'null stack)

(list 'setq

stack

(list 'quote (list element)))

(list 'setq

stack

(list 'cons element stack)) ) )

Previous slide

Next slide

Back to first slide

View graphic version