From 75c2ba4fc3f05d61beea196d64d85f5595864535 Mon Sep 17 00:00:00 2001 From: Matthias Benkard Date: Fri, 21 Sep 2007 01:40:13 +0200 Subject: Remove even more code that has become obsolete through the new version of INVOKE-BY-NAME. darcs-hash:06fc98c5e106ac3fc0fd07ac5cc226ea431d265d --- Lisp/method-invocation.lisp | 10 ---------- 1 file changed, 10 deletions(-) (limited to 'Lisp/method-invocation.lisp') 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)) -- cgit v1.2.3