The function pop-focus removes the current focus from the focus stack and returns the module name of the current focus. If the focus stack is empty, then the symbol FALSE is returned.
Syntax
(pop-focus)
Example
CLIPS> (clear) CLIPS> (list-focus-stack) MAIN CLIPS> (pop-focus) MAIN CLIPS> (defmodule A) CLIPS> (defmodule B) CLIPS> (focus A B) TRUE CLIPS> (list-focus-stack) A B MAIN CLIPS> (pop-focus) A CLIPS> (list-focus-stack) B CLIPS>