Closures that Share Bindings

> (setq my-stack-closures (make-stack))

(#<CLOSURE #x204cde> . #<CLOSURE #x204cdf>)

> (funcall (car my-stack-closures) 'apple)

(APPLE)

> (funcall (car my-stack-closures) 'pear)

(PEAR APPLE)

> (funcall (cdr my-stack-closures))

PEAR

Previous slide

Next slide

Back to first slide

View graphic version