Using DEFSETF

(defsetf car (x) (new)

`(progn (rplaca ,x ,new) ,new))

(defsetf x (point) (new)

`(setf (aref ,point 1) ,new))

Previous slide

Next slide

Back to first slide

View graphic version