Another defun that should be define-test

test-lexical-closure-over-adder used defun rather than define-test