diff options
Diffstat (limited to 'Lisp/internal-utilities.lisp')
-rw-r--r-- | Lisp/internal-utilities.lisp | 16 |
1 files changed, 0 insertions, 16 deletions
diff --git a/Lisp/internal-utilities.lisp b/Lisp/internal-utilities.lisp index 9be74a9..1c54068 100644 --- a/Lisp/internal-utilities.lisp +++ b/Lisp/internal-utilities.lisp @@ -27,22 +27,6 @@ (member symbol *features*)) -(defun objc-null (value) - (or (null value) - (and (typep value 'c-pointer-wrapper) - (objc-pointer-null (pointer-to value))))) - - -(defmacro objc-or (&rest forms) - (let ((sym (gensym))) - `(let ((,sym ,(first forms))) - (if (objc-null ,sym) - ,(if (rest forms) - `(objc-or ,@(rest forms)) - 'nil) - ,sym)))) - - (defmacro with-foreign-string-pool ((register-fn-name) &body body) (let ((pool-var (gensym))) `(let ((,pool-var (list))) |