CLIPS-自动焦点

一、

     CLIPS (Quicksilver Beta 09/24/07)
CLIPS> (clear)
CLIPS> (defmodule MAIN
(export deftemplate initial-fact))
CLIPS> (defmodule DETECTION
(import MAIN deftemplate initial-fact))
CLIPS> (defrule DETECTION::test
(declare (auto-focus TRUE))=>)
CLIPS> (watch focus)
CLIPS> (reset)
<== Focus DETECTION to MAIN
<== Focus MAIN
==> Focus MAIN
==> Focus DETECTION from MAIN
CLIPS>

二、(declare (auto-focus TRUE))=>)，使当test
规则被触发时，模块被自动聚焦到DETECTION。
自动可以看到