Remove even more code that has become obsolete through the new version of INVOKE-BY-NAME.

darcs-hash:06fc98c5e106ac3fc0fd07ac5cc226ea431d265d

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