CLIPS：当值不在多槽中时匹配

Question

我正在尝试编写一个规则，当某个值不在多槽中时匹配，然后将该值添加到它。

(deftemplate person
    (multislot packing_list
    (type SYMBOL)
    (default ?DERIVE)))

(defrule apply_adapter
    (travel international)
    ?p <- (person (packing_list $? ~travel_adaptor ))
    =>
    (modify ?p (packing_list travel_adaptor)))
    (println "Added to list" crlf)
)

(deffacts start
    (travel international)
    (person)
)

我知道其中有两部分是不正确的：

?p <- (person (packing_list $? ~travel_adaptor )) 不触发规则 - 正确的语法是什么？
(modify ?p (packing_list travel_adaptor)))可能没有做我想做的，就是插入值，而不是替换列表。

有什么解决办法吗？

Answer 1

         CLIPS (Cypher Beta 8/21/18)
CLIPS> 
(deftemplate person
   (multislot packing_list
      (type SYMBOL)
      (default ?DERIVE)))
CLIPS> 
(defrule apply_adapter
   (travel international)
   ?p <- (person (packing_list $?pl))
   (test (not (member$ travel_adaptor ?pl)))
   =>
   (modify ?p (packing_list ?pl travel_adaptor))
   (println "Added to list"))
CLIPS> 
(deffacts start
   (travel international)
   (person))
CLIPS> (reset)
CLIPS> (run)
Added to list
CLIPS> (facts)
f-1     (travel international)
f-2     (person (packing_list travel_adaptor))
For a total of 2 facts.
CLIPS>

CLIPS：当值不在多槽中时匹配

CLIPS: match when value not in multislot

clips