summaryrefslogtreecommitdiff
path: root/Lisp/libobjcl.lisp
diff options
context:
space:
mode:
authorMatthias Benkard <code@mail.matthias.benkard.de>2008-03-13 18:34:41 +0100
committerMatthias Benkard <code@mail.matthias.benkard.de>2008-03-13 18:34:41 +0100
commita7a08e54c0d31f91fc5058c12c72125dcde82c24 (patch)
treeac7ac7219f9b37ade59e4f2115d2ba6b29db6c62 /Lisp/libobjcl.lisp
parent85183eb4a05d57b681fe4ed83a6b539b2ae4ef98 (diff)
Add more type declarations.
darcs-hash:86334459a1f2ef6b52ca92bee2c79bb1f7cd0bba
Diffstat (limited to 'Lisp/libobjcl.lisp')
-rw-r--r--Lisp/libobjcl.lisp12
1 files changed, 12 insertions, 0 deletions
diff --git a/Lisp/libobjcl.lisp b/Lisp/libobjcl.lisp
index e5bd6f9..bcdcd27 100644
--- a/Lisp/libobjcl.lisp
+++ b/Lisp/libobjcl.lisp
@@ -378,6 +378,7 @@ conventional case for namespace identifiers in Objective-C."
:direct-superclasses (list superclass)))))))
+#? (or string symbol) -> (or null objective-c-meta-class)
(defun find-objc-meta-class (meta-class-name &optional errorp)
(let ((meta-class
(etypecase meta-class-name
@@ -390,6 +391,7 @@ conventional case for namespace identifiers in Objective-C."
nil))))
+#? string -> (or null objective-c-meta-class)
(defun find-objc-meta-class-by-name (class-name-string)
(let ((class-ptr (%objcl-find-meta-class class-name-string)))
(if (objc-pointer-null class-ptr)
@@ -475,6 +477,7 @@ conventional case for namespace identifiers in Objective-C."
(intern-pointer-wrapper 'selector :pointer selector-ptr))))
+#? string -> selector
(defun intern-selector-by-name (selector-name)
(let ((selector-ptr (%objcl-intern-selector selector-name)))
(assert (not (cffi:null-pointer-p selector-ptr))
@@ -665,6 +668,7 @@ separating parts by hyphens works nicely in all of the `:INVERT`,
(error (make-condition 'no-such-selector :designator selector-name)))))
+#? (or string symbol list) -> selector
(defun intern-selector (selector-name)
"Retrieve a method selector by name, or create it if it does not exist.
@@ -966,17 +970,21 @@ __enable-method-syntax__.
;;;; (@* "Slot access")
+#? c-pointer -> string
(defun objcl-slot-type (slot)
(%objcl-slot-type slot))
+#? c-pointer -> string
(defun objcl-slot-name (slot)
(%objcl-slot-name slot))
+#? class -> list
(defun objcl-class-direct-slots (class)
(if (typep class 'objective-c-class)
(objcl-class-direct-slots/pointer (pointer-to class))
nil))
+#? c-pointer -> list
(defun objcl-class-direct-slots/pointer (class-ptr)
(with-foreign-objects ((count-ptr :unsigned-int)
(element-size-ptr :unsigned-int))
@@ -993,15 +1001,19 @@ __enable-method-syntax__.
collecting (mem-ref current-slot :pointer))
(foreign-free array-pointer))))))
+#? c-pointer -> t
(defun objcl-class-backed-by-lisp-class-p/pointer (class-ptr)
(not (zerop (%objcl-class-backed-by-lisp-class-p class-ptr))))
+#? c-pointer t -> t
(defun objcl-class-set-backed-by-lisp-class/pointer (class-ptr backed-p)
(%objcl-class-set-backed-by-lisp-class class-ptr (if backed-p 1 0)))
+#? c-pointer -> t
(defun objcl-object-backed-by-lisp-class-p/pointer (object-ptr)
(not (zerop (%objcl-object-backed-by-lisp-class-p object-ptr))))
+#? (or id objective-c-class exception) -> t
(defun objcl-object-backed-by-lisp-class-p (instance)
(objcl-object-backed-by-lisp-class-p/pointer (pointer-to instance)))