diff options
Diffstat (limited to 'Lisp/method-invocation.lisp')
| -rw-r--r-- | Lisp/method-invocation.lisp | 10 |
1 files changed, 0 insertions, 10 deletions
diff --git a/Lisp/method-invocation.lisp b/Lisp/method-invocation.lisp index a2a21f2..94f1bb2 100644 --- a/Lisp/method-invocation.lisp +++ b/Lisp/method-invocation.lisp @@ -470,10 +470,6 @@ Returns: *result* --- the return value of the method invocation. ;;; (@* "Helper functions") -(defun arglist->objc-arglist (arglist) - (arglist-intersperse-types (mapcar #'lisp->obj-data arglist))) - - (defun dealloc-objc-arglist (objc-arglist) (do ((objc-arglist objc-arglist (cddr objc-arglist))) ((null objc-arglist)) @@ -481,12 +477,6 @@ Returns: *result* --- the return value of the method invocation. (dealloc-obj-data (second objc-arglist)))) -(defun arglist-intersperse-types (arglist) - (mapcan #'(lambda (arg) - (list :pointer arg)) - arglist)) - - (defun constructor-name-p (method-name) (flet ((method-name-starts-with (prefix) (and (>= (length method-name) (length prefix)) |