Re: DEFSTRUCT POINT
Posted: Tue Jan 31, 2012 11:46 pm
The following will work in CL and I believe elisp.
If not, you may need to use an explicit temporary variable. Something like
Code: Select all
(psetf (point-x p) (point-y p)
(point-y p) (point-x p))
Code: Select all
(let ((x (point-x p)))
(setf (point-x p) (point-y p)
(point-y p) x))