Calling MAKE-TOGGLE (continued)

> (setq tide-change

(make-toggle 'high-tide 'low-tide) )

#<Interpreted Closure (unnamed) @ #x204c8fcc>

> (funcall tide-change)

LOW-TIDE

> (funcall tide-change)

HIGH-TIDE

> (funcall traffic-light)

RED

> (funcall tide-change)

LOW-TIDE

Previous slide

Next slide

Back to first slide

View graphic version