Print Page - Another sample for set-ref doc

Title: Another sample for set-ref doc
Post by: HPW on August 01, 2013, 05:56:15 AM

When I want to do the same as with the longtime depreciated 'replace-assoc' it would be this:

Code Select Expand

> (set 'data '(fruits (apples 123 44) (oranges 1 5 3)))
(fruits (apples 123 44) (oranges 1 5 3))
> (set-ref (assoc 'apples data) data '(Apples 456 55))
(fruits (Apples 456 55) (oranges 1 5 3))

Makes for me more sense as a real world example.

Regards

Title: Re: Another sample for set-ref doc
Post by: Lutz on August 01, 2013, 06:53:12 AM

but an example better handled with setf as explained in the previous thread

Code Select Expand
(setf (assoc 'apples data) '(Apples 456 55))

Title: Re: Another sample for set-ref doc
Post by: HPW on August 01, 2013, 08:46:14 AM

Very nice.

Put both in the doc. ;-)

newLISP Fan Club

Forum => newLISP in the real world => Topic started by: HPW on August 01, 2013, 05:56:15 AM