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