Look what I did!


(defmacro setter (V)
  (let ((X (gensym "X")))
    `(lambda (,X) (setf ,V ,X))))

(defmacro getter (V)
  `(lambda () ,V))

(let ((last nil))
  (mapcar (setter last) '(1 2 3 4 5 6 7))
  last)

Also, if you start variable names from uppercase letters, code becomes more readable.

X))))

please lispers, do not talk like a computer
this is not how normal people talk.
it is a little embarrassing too watch.
because you don't understand you are fool.
but i would also like to fuck you,
at full force in the vagina, mouth and anus.

>>4
Abort, Retry, Ignore?

Why not just write: (car (last '(1 2 3 4 5 6 7))) ?