- Выкинуть все
(defmodule ...)
- Удалить все
MAIN::
и ask::
. - Удалить все
(declare (auto-focus TRUE))
. - Не использовать
(return)
в любом правом коде.
Короче говоря, не используйте модули и (авто) фокусировку, пока не убедитесь, что понимаете, что они делают.Я не думаю, что это необходимо с этим довольно маленьким файлом clp.
Основная проблема могла бы заключаться в следующем: убедитесь, что вы используете
(вопросы ... (valid $? Valid))
всегда с $
перед $?valid
или аналогичным - это мультислот.
И я думаю, вам нужно
(defrule questions_basique_4
=>
(assert (ask symptome_majeur_2))) ;; not _1