kann das Objekt in CLIPS nicht aktualisieren, die Kompilierung Fehler in Clips bekommen

Question

(bind ?existing_total_count (nth$ 2 (send ?INSTANCE ?get-INTS))) 
(send (nth$ 2 (send ?INSTANCE put-INTS)) (+ ?total_count ?existing_total_count)) 

erste Zeile fein kompiliert, aber zweiter Leitungsfehler Funktion send erwartetes Argument # 2 wirft vom Typ Symbol sein

ich findout kippe, was die Problem ist. Ich versuche, den zweiten Eintrag in Slot INTS zu aktualisieren.

Answer 1

CLIPS> 
(defclass A 
    (is-a USER) 
    (multislot INTS)) 
CLIPS> (make-instance [a] of A (INTS 1 2 3)) 
[a] 
CLIPS> (send [a] print) 
[a] of A 
(INTS 1 2 3) 
CLIPS> (bind ?INSTANCE [a]) 
[a] 
CLIPS> (bind ?existing_total_count (nth$ 2 (send ?INSTANCE get-INTS))) 
2 
CLIPS> (bind ?total_count 3) 
3 
CLIPS> (slot-replace$ ?INSTANCE INTS 2 2 (+ ?total_count ?existing_total_count)) 
(1 5 3) 
CLIPS> (send [a] print) 
[a] of A 
(INTS 1 5 3) 
CLIPS> (bind ?total_count 5) 
5 
CLIPS> (send ?INSTANCE put-INTS (replace$ (send ?INSTANCE get-INTS) 2 2 (+ ?total_count ?existing_total_count))) 
(1 7 3) 
CLIPS> (send [a] print) 
[a] of A 
(INTS 1 7 3) 
CLIPS>