From c9d12c3ac0b14ec509ab63ac8d915bcf33f5ae06 Mon Sep 17 00:00:00 2001 From: Matthias Benkard Date: Fri, 21 Sep 2007 01:28:21 +0200 Subject: Objective-C layer: Remove the code needed by the obsolete version of INVOKE-BY-NAME. darcs-hash:e0df5f7b1d7a3aa5e06170dbe318b31ebeb73241 --- Lisp/data-types.lisp | 32 -------------------------------- 1 file changed, 32 deletions(-) (limited to 'Lisp/data-types.lisp') 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 () -- cgit v1.2.3