From db71d84e744c376e2d05ef802f3f010643b691d8 Mon Sep 17 00:00:00 2001 From: espen Date: Mon, 19 Feb 2007 14:42:24 +0000 Subject: [PATCH] Added poniter sized integer type POINTER-DATA --- gffi/basic-types.lisp | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) diff --git a/gffi/basic-types.lisp b/gffi/basic-types.lisp index 9b3695e..c18890e 100644 --- a/gffi/basic-types.lisp +++ b/gffi/basic-types.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: basic-types.lisp,v 1.5 2007-01-02 15:20:32 espen Exp $ +;; $Id: basic-types.lisp,v 1.6 2007-02-19 14:42:24 espen Exp $ (in-package "GFFI") @@ -55,6 +55,11 @@ (deftype pointer () #+(or cmu sbcl) 'system-area-pointer #+clisp 'ffi:foreign-address) +(deftype pointer-data () + '(unsigned-byte #+sbcl #.(sb-sizeof-bits 'sb-alien:system-area-pointer) + #+clisp #.(ffi:bitsizeof 'ffi:c-pointer) + #-(or sbcl clisp) 32)) + (deftype bool (&optional (size '*)) (declare (ignore size)) 'boolean) (deftype copy-of (type) type) (deftype static (type) type) -- 2.11.0