From ...
From: Erik Naggum <erik@naggum.no>
Subject: Re: setf functions
Date: 2000/04/06
Message-ID: <3164020402912136@naggum.no>#1/1
X-Deja-AN: 607570847
References: <c29u2hiu6sx.fsf@nerd-xing.mit.edu> <954804834669@NewsSIEVE.cs.bonn.edu> <38ea8083$0$21259@senator-bedfellow.mit.edu> <BuyG4.9918$eh.914814@news.bc.tac.net> <pcosnx07auz.fsf@math.ntnu.no> <3163950557082770@naggum.no> <pcosnwzalso.fsf@math.ntnu.no> <38EC533D.68A9DD59@acm.org> <lwem8jtvgl.fsf@parades.rm.cnr.it>
mail-copies-to: never
Content-Type: text/plain; charset=us-ascii
X-Complaints-To: newsmaster@eunet.no
X-Trace: oslo-nntp.eunet.no 955031795 14917 195.0.192.66 (6 Apr 2000 14:36:35 GMT)
Organization: Naggum Software; vox: +47 8800 8879; fax: +47 8800 8601; http://www.naggum.no
User-Agent: Gnus/5.0803 (Gnus v5.8.3) Emacs/20.5
Mime-Version: 1.0
NNTP-Posting-Date: 6 Apr 2000 14:36:35 GMT
Newsgroups: comp.lang.lisp

* 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