newlispfanclub.alh.net

Hello,
I have this list:
I use (lookup) to check data in that list. For example: Well, after I found a value associated to a key (node), how can I quickly update that node)? Is there any way to use something like a (lookup)?

For example: In this way I'm not "extracting data from the node, but I will update the value with a new one (replace).

Thank you.

(ref 'client-nodes myScheduler)
>(1 0)


(myScheduler (ref 'client-nodes myScheduler))
>client-nodes


(myScheduler 1)
>(client-nodes (("10.100.2.12" 3322) ("10.100.3.198" 1234)))

(myScheduler 1 1)
>(("10.100.2.12" 3322) ("10.100.3.198" 1234))

(myScheduler 1 1 0)
>("10.100.2.12" 3322)

(myScheduler 1 1 0 0)
>"10.100.2.12"

(setf (myScheduler 1 1 0 0) "127.0.0.1")
>"127.0.0.1"

myScheduler
>((at ((days 1 7 14 21) (times "11:00" "23:00"))) (client-nodes (("127.0.0.1" 3322) ("10.100.3.198" 1234))))


Not fully what you want because you want it by direct reference..


*edited..I missed an index in setf *

You can also do a 'setf' on a 'lookup' or on an 'assoc':

> (setq lst '((a 1 2 3) (b 4 5 6) (c 7 8 9)))
((a 1 2 3) (b 4 5 6) (c 7 8 9))

> (setf (assoc 'b lst) '(B 40 50 60))
(B 40 50 60)
> lst
((a 1 2 3) (B 40 50 60) (c 7 8 9))

> (setf (lookup 'c lst 2) 80)
80
> lst
((a 1 2 3) (B 40 50 60) (c 7 80 9))
>

Thank you!

@newdep: I didn't know I could use direct indexing to replace symbols by reference!
@Lutz: (assoc) function is the function I was looking for!

newLisp rocks!!! :-)