Juggle some definitions around to make the compiler happy.

darcs-hash:c0210649a47d759ee7efbf23eb03ff7e9aa02261

1 files 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))