storing lambda function in objects

[Betelgeuse]

When storing a lambda function into an object it doesn't want to store correctly.

here is the code that I used to test it

Code: Select all

			(setq test (lambda (other)
				(block (myvar)
					(setq myvar (lambda (a b) (multiply a b)))
					(dbgoutput (objSetData gplayership "mytest" myvar))
					(dbgoutput (apply myvar (list 5 3)))
					(dbgoutput (apply (objGetData gplayership "mytest") (list 5 3)))
					
				)

			))

When run it outputs to the dbgscreen

True
15
[lambda

is this as intended?