[Openmcl-devel] make-method-lambda ?

[Pascal Costanza]

On 9 Sep 2008, at 15:13, james anderson wrote:

>> What do you want to achieve? In most cases, there are easier ways
>> than make-method-lambda to achieve what you want...
>
> manipulate the arguments passed to the method.


(defmacro define-manipulated-method (name (&rest args) &body body)
   (let ((unspecialized-args (extract-lambda-list args)))
     `(defmethod ,name ,args
        (apply (lambda ,unspecialized-args , at body)
          (manipulate-args
            (list ,@(loop for arg in unspecialized-args
                          unless (member arg lambda-list-keywords)
                          collect arg)))))))

?!?


Pascal

-- 
Pascal Costanza, mailto:pc at p-cos.net, http://p-cos.net
Vrije Universiteit Brussel, Programming Technology Lab
Pleinlaan 2, B-1050 Brussel, Belgium






-- 
Pascal Costanza, mailto:pc at p-cos.net, http://p-cos.net
Vrije Universiteit Brussel, Programming Technology Lab
Pleinlaan 2, B-1050 Brussel, Belgium