clips - 今主張したファクトの ID を取得する

Question

ルールの RHS でアサートしたファクトのファクト ID を取得する方法はありますか? の線に沿った何か

?f <- (assert (new-fact))

Answer 1

CLIPS> 
(defrule example
   =>
   (bind ?f (assert (new-fact)))
   (bind ?i (fact-index ?f))
   (printout t "The fact index is " ?i crlf))
CLIPS> (reset)
CLIPS> (run)
The fact index is 1
CLIPS> (facts)
f-0     (initial-fact)
f-1     (new-fact)
For a total of 2 facts.
CLIPS>