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