I think Eric W. Bonnett wrote: > Hmm, I don't think so. Copy\paste! :) I should have mentioned it > before, I'm using the publicly available version 6.1p4 that I downloaded > based on instructions in the book.
On the off chance that there was something about this version, I tried it myself -- but it worked fine. Here's the program I ran: (deftemplate SomethingIWant "Stuff I want" (slot Name (default Whatever) ) (slot Price (default 10) ) (slot Priority (default 0) ) (slot Selected (default false) ) ) (defrule items-to-buy ?ItemFound <- (SomethingIWant (Name ?ItemName) (Price ?ItemPrice) (Priority ?ItemPriority1) (Selected false ) ) (not (SomethingIWant (Selected false) (Priority ?p&:(< ?p ?ItemPriority1)))) => (printout t "Found: " ?ItemName ", " ?ItemPrice ", " ?ItemPriority1 crlf) (modify ?ItemFound (Selected true) ) ) (assert (SomethingIWant (Name "TiVo") (Price 200) (Priority 1) ) ) (assert (SomethingIWant (Name "Tires") (Price 800) (Priority 1) ) ) (assert (SomethingIWant (Name "Carb") (Price 400) (Priority 1) ) ) (assert (SomethingIWant (Name "DVD Burner") (Price 400) (Priority 5) ) ) (assert (SomethingIWant (Name "Wheels") (Price 1000) (Priority 2) ) ) (assert (SomethingIWant (Name "shocks") (Price 900) (Priority 2) ) ) (run) And here's the output: Found: Carb, 400, 1 Found: Tires, 800, 1 Found: TiVo, 200, 1 Found: shocks, 900, 2 Found: Wheels, 1000, 2 Found: DVD Burner, 400, 5 --------------------------------------------------------- Ernest Friedman-Hill Advanced Software Research Phone: (925) 294-2154 Sandia National Labs FAX: (925) 294-2234 PO Box 969, MS 9012 [EMAIL PROTECTED] Livermore, CA 94550 http://herzberg.ca.sandia.gov -------------------------------------------------------------------- To unsubscribe, send the words 'unsubscribe jess-users [EMAIL PROTECTED]' in the BODY of a message to [EMAIL PROTECTED], NOT to the list (use your own address!) List problems? Notify [EMAIL PROTECTED] --------------------------------------------------------------------