summaryrefslogtreecommitdiff
path: root/Lisp
diff options
context:
space:
mode:
Diffstat (limited to 'Lisp')
-rw-r--r--Lisp/data-types.lisp32
-rw-r--r--Lisp/libobjcl.lisp7
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)