;; 6.1 Global Functions
(deftest test-global-functions()
	(setf (symbol-function 'square-it)
		#'(lambda (x) (* x x)))
	(check
		(fboundp 'square-it)
		(eql 25 (square-it 5))))