def defun(self): initialize = lisp.setq( self.complistsymbol, lisp.complist(self.complist), as_string) initialize += lisp.setq( self.pinchlistsymbol, lisp.pinchlist(self.pinchlist), as_string) if self.pinchlist == None: compose = lisp.call( 'compose', [self.name, self.base_function.name, self.complistsymbol], as_string) return initialize + compose + '\n' else: compose = lisp.call( 'compose', [self.unpinchedname, self.base_function.name, self.complistsymbol], as_string) pinch = lisp.call( 'pinch', [self.name, self.unpinchedname, self.pinchlistsymbol], as_string) return initialize + compose + '\n' + pinch + '\n'
def evaluate(self, datum): lisp.streamprint( lisp.call(self.client, datum, as_string))