From 319cdb79ca6ca45c9b2912ead651dffcf35ecbf5 Mon Sep 17 00:00:00 2001
From: Matthias Benkard <code@mail.matthias.benkard.de>
Date: Sun, 16 Sep 2007 01:21:31 +0200
Subject: Add test cases for PRIMITIVE-INVOKE and fix some stupid bugs.

darcs-hash:d1f3e7e599cad38b28c45448adeec9126d043e05
---
 Lisp/libobjcl.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'Lisp/libobjcl.lisp')

diff --git a/Lisp/libobjcl.lisp b/Lisp/libobjcl.lisp
index 6cb9759..978bcfe 100644
--- a/Lisp/libobjcl.lisp
+++ b/Lisp/libobjcl.lisp
@@ -28,7 +28,7 @@
 (defcfun ("objcl_invoke_method"
           %objcl-invoke-method) obj-data
   (receiver obj-data)
-  (method-selector obj-data)
+  (method-selector :pointer)
   (argc :int)
   &rest)
 
-- 
cgit v1.2.3