Add more type declarations.

darcs-hash:86334459a1f2ef6b52ca92bee2c79bb1f7cd0bba

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