### 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))
```