Exemplo n.º 1
0
	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'
Exemplo n.º 2
0
	def evaluate(self, datum):
		lisp.streamprint( lisp.call(self.client, datum, as_string))