setf and cons

[tomtoo]

Hey guys,



given this:

Code Select Expand


(define (c cc)(setf (eval (cc 0)) (cons (cc 1) '())))

I get this:

Code Select Expand


ERR: no symbol reference found

I see in the manual that this is normal, but I'd like to find an alternative way of making

Code Select Expand


("this" "that")

into something that results from something like

Code Select Expand


(set 'this "that")

let me know if I haven't provided enough info.  it's a bad habit...:-)

[Lutz]

Do you mean this?

Code Select Expand

(define (c cc)
(set (sym (cc 0)) (cons (cc 1) '())))

(c '("this" "that")) => ("that")

; the symbol 'this' is now set to ("that")

this => ("that")


[tomtoo]

Yep, I think so, thanks. I think it was "sym" that I was missing.



 I need to memorize all the functions, I guess, because when I need them I either can't remember them or can't find them.