Re: replace element in list

[Eric Abrahamsen]

Drew Adams <drew.adams@oracle.com> writes:

>> > (defun my-list-replace (obj orig new)
>> >     "Replaces an element in a list with something else"
>> >     (let* ((pos (cl-position orig obj :test 'equal))
>> >            (pos (if pos pos 0))
>> >            (objlen (length obj))
>> >            (head (butlast obj (- objlen pos)))
>> >            (trail (nthcdr (+ 1 pos) obj)))
>> >       (append head (append new trail))))
>> 
>> (let ((orig '(("a" . "b") ("c" "d")))
>>       (obj  '("c" "d"))
>>       (new '(":)")))
>>   (setf (nth (cl-position obj orig :test #'equal) orig) new)
>>   orig)
>
> (defun toto (xs old new)
>   (let ((ms  (member old xs)))
>     (unless ms (error "%S is not in %S" old xs))
>     (setcar ms new)
>     xs))

Old school, and proper :)