CLIPS中的输入匹配，语法错误

Question

我必须输入一个症状并想获得问题的名称，但是当我编写去污检查输入时，出现了错误。 代码在后面，请帮忙我认为，问题在调试检查输入中

    (deftemplate probelm
    (multislot name)
    (slot symptom))

    (deffacts probelms
(probelm (name Faulty-Spark-Plug,Low-air-pressure-in-Tyres,Fuel-Injector-Leakage,Bad-Engine-Oil) 
        (symptom High-fuel-consumption))
(probelm (name Faulty-Spark-Plug , Fuel-injector-Problem) 
        (symptom Lack-of-acceleration))
(probelm (name Loose-or-Dry-belt,misalignment-belt,bearing-of-motor) 
        (symptom Squeaky-belt-noise))
(probelm (name Low engine Oil) 
        (symptom Blue-Smoke))
(probelm (name Coolant level,transmission fluid level low) 
        (symptom White-Smoke))
(probelm (name Air filter Or fuel injector problem,fuel pressure regualtor) 
        (symptom Black-Smoke))
        )


  (defrule reading-input
   =>
  (printout t "Enter the symptom your car Shows: " )
  (assert (var (read))))



 (defrule checking-input
 (var ?symptom)
 (probelm  (symptom ?symptom1)(name $?name1))
 (test (member$ ?name ?name1)) 
   =>
  (printout t "Problems can be " ?name1 crlf))

Answer 1

一些注意事项：

1. 您需要使用（create $ element1 element2 ...）创建多插槽，不能像以前那样用逗号（，）分隔元素
2. 您需要调用（重置）以加载假象
3. 您的检查输入规则使用处理程序而不先定义它（？name）

这是您的工作脚本：

(deftemplate probelm
    (multislot name)
    (slot symptom))

    (deffacts probelms
(probelm (name (create$ "Air filter"  "fuel injector problem" "fuel pressure regualtor")) 
        (symptom Black-Smoke))
        )
;; add others problems
        (reset)

  (defrule reading-input
   =>
  (printout t "Enter the symptom your car Shows: " )
  (assert (var (read))))



 (defrule checking-input
 (var ?symptom)
 (probelm  (symptom ?symptom1)(name $?name1))
 (test (eq ?symptom ?symptom1)) 
   =>
  (printout t "Problems can be " $?name1 crlf))

 (run)

 (exit)

再见尼古拉

PS：如果有用，请记住对答案进行投票；）