Re: setf functions - Naggum cll archive

Subject: Re: setf functions
From: Erik Naggum <erik@naggum.no>
Date: 2000/04/06
Newsgroups: comp.lang.lisp
Message-ID: <3164020402912136@naggum.no>

* Marco Antoniotti <marcoxa@parades.rm.cnr.it>
| What about this?
| 
| (defun (setf global-pointer-position) (new-x new-y object)
|   (setf (values (display-x object) (display-y object))
|         (values new-x new-y)))
| 
| It does not work in CMUCL, but I believe it should (modulo my
| understanding on the CLHS)

  that would mean the call would have to be

(setf (global-pointer-position new-y object) new-x)

  this is not what we want.

#:Erik