@@ -106,7 +106,7 @@ "Returns the current agenda and the number of activations on it." (let ((conflict-set (nreverse (flatten (get-conflict-set))))) (values (funcall conflict-resolution-strategy conflict-set) - (length conflict-set)))) + (length conflict-set)))) (defun assert-facts (&rest fact-list) "Adds facts in <fact-list> to the working memory and Rete Network. @@ -642,7 +642,7 @@ (progn ; This is the first binding for this variable (setf (gethash slot-binding *variable-bindings*) (list (list slot-accessor fact-variable position accessible))) (when (null slot-constraint) t)) - + (progn (dolist (b binding) ;; If this position already has a binding for this variable we'll mps.lisp 3060b799200dbeeab64fe3fc7268c2d705eda8fd Johan Lindberg johan@pulp.se http://github.com/johanlindberg/minimal-production-system/commit/32f1d841a00ed634a769f722e64c6437bddee50f 32f1d841a00ed634a769f722e64c6437bddee50f 2009-10-14T09:33:38-07:00 2009-10-14T09:33:38-07:00 Removed more tabs. 356456b3ecbbf9aa6967be26e5db85f7e781ab65 Johan Lindberg johan@pulp.se