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

* Marco Antoniotti <>
| 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.