Keyword arguments

keywords.py

class LispWrapper (LispObject):
    def __init__(self, lisp, handle):
        self.lisp = lisp
        self.handle = handle

    def __del__(self):
        try:
            self.lisp.eval('#{}!'.format(self.handle))
        except:
            pass

    def __call__(self, *args, **kwargs):
        restAndKeys = []
        for arg in args:
            restAndKeys.append(Quote(arg))
        for key, value in kwargs.items():
            restAndKeys.append(Keyword(key.upper()))
            restAndKeys.append(Quote(value))
        return self.lisp.eval(List(Symbol('FUNCALL', 'CL'), Quote(self), *restAndKeys))

repl.py

>>> cl.find(1, [1,2,3,4], test=cl.eql, key=cl.identity)
1
>>> cl.find(1, [2,3,4], test=cl.eql, key=cl.constantly(1))
2
>>> cl.find(1, [2,3,4], test=cl.eql, key=cl.abs)
()
>>> cl.find(1, [-1,2,3,4], test=cl.eql, key=cl.abs)
-1