Objective-C layer: Remove the code needed by the obsolete version of INVOKE-BY-NAME.

darcs-hash:e0df5f7b1d7a3aa5e06170dbe318b31ebeb73241

2 files changed, 0 insertions, 39 deletions

diff --git a/Lisp/data-types.lisp b/Lisp/data-types.lisp
index 7b07624..7515d3a 100644
--- a/Lisp/data-types.lisp
+++ b/Lisp/data-types.lisp
@@ -12,38 +12,6 @@
 ;;;; (@* "Foreign data types")
 (defctype char-pointer :pointer)
 
-;; Let us just hope that two longs make a long long, space-wise.
-(defcstruct double-long
-  (left :long)
-  (right :long))
-
-(defcunion obj-data-union
-  (id-val :pointer)
-  (class-val :pointer)
-  (exc-val :pointer)
-  (sel-val :pointer)
-  (char-val :char)
-  (short-val :short)
-  (int-val :int)
-  (long-val :long)
-  #-cffi-features:no-long-long (long-long-val :long-long)
-  #+cffi-features:no-long-long (double-long-val double-long)
-  (float-val :float)
-  (double-val :double)
-  (bool-val :boolean)
-  (charptr-val :pointer)
-  (ptr-val :pointer))
-
-(defcstruct obj-data
-  (type char-pointer)
-  (data obj-data-union))
-
-(defmethod translate-to-foreign ((value string) (type (eql 'char-pointer)))
-  (foreign-string-alloc value))
-
-(defmethod translate-from-foreign (c-value (type (eql 'char-pointer)))
-  (foreign-string-to-lisp c-value))
-
 
 ;;;; (@* "Objective C object wrapper classes")
 (defclass c-pointer-wrapper ()
diff --git a/Lisp/libobjcl.lisp b/Lisp/libobjcl.lisp
index 85dfc45..33bc460 100644
--- a/Lisp/libobjcl.lisp
+++ b/Lisp/libobjcl.lisp
@@ -25,13 +25,6 @@
 
 (defcfun ("objcl_shutdown_runtime" %shutdown-runtime) :void)
 
-(defcfun ("objcl_invoke_method"
-          %objcl-invoke-method) obj-data
-  (receiver obj-data)
-  (method-selector :pointer)
-  (argc :int)
-  &rest)
-
 (defcfun ("objcl_invoke_with_types" %objcl-invoke-with-types) :pointer
   (argc :int)
   (return_typespec :string)