From cc0565ec3efe81d81573c6355140df45d7afe5e1 Mon Sep 17 00:00:00 2001 Message-Id: From: Mark Wooding Date: Wed, 20 Jun 2007 11:13:45 +0000 Subject: [PATCH] Removed incorrect comment Organization: Straylight/Edgeware From: espen --- gffi/proxy.lisp | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/gffi/proxy.lisp b/gffi/proxy.lisp index 6586891..0252520 100644 --- a/gffi/proxy.lisp +++ b/gffi/proxy.lisp @@ -20,7 +20,7 @@ ;; TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE ;; SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. -;; $Id: proxy.lisp,v 1.8 2007-05-10 20:23:28 espen Exp $ +;; $Id: proxy.lisp,v 1.9 2007-06-20 11:13:45 espen Exp $ (in-package "GFFI") @@ -302,6 +302,8 @@ (defmethod compute-slot-writer-function ((slotd effective-virtual-alien-slot-d #'(lambda (value object) (unless writer (setq writer (mkbinding setter nil 'pointer type))) + ;; First argument in foreign setters is the object and second + ;; is value (funcall writer (foreign-location object) value))) (call-next-method))) -- [mdw]