From 47d7a405495b68062924a4d9cb4738e0b0af14a1 Mon Sep 17 00:00:00 2001 From: Matthias Benkard Date: Mon, 17 Sep 2007 21:29:00 +0200 Subject: Juggle some definitions around to make the compiler happy. darcs-hash:c0210649a47d759ee7efbf23eb03ff7e9aa02261 --- Lisp/data-types.lisp | 17 ++++++++--------- 1 file changed, 8 insertions(+), 9 deletions(-) diff --git a/Lisp/data-types.lisp b/Lisp/data-types.lisp index 25bbc21..533578b 100644 --- a/Lisp/data-types.lisp +++ b/Lisp/data-types.lisp @@ -1,6 +1,14 @@ (in-package #:mulk.objective-cl) +;;;; (@* "Convenience types") +(deftype c-pointer () + '(satisfies pointerp)) + +(deftype argument-number () + `(integer 0 ,call-arguments-limit)) + + ;;;; (@* "Foreign data types") (defctype char-pointer :pointer) @@ -213,12 +221,3 @@ an __exception__, you can simply send it the `self' message. (not (null-pointer-p type))) (foreign-string-free type))) (foreign-free obj-data)) - - -;;;; (@* "Convenience types") -(deftype c-pointer () - '(satisfies pointerp)) - - -(deftype argument-number () - `(integer 0 ,call-arguments-limit)) -- cgit v1.2.3