> (defun test (x) (* x x)) TEST > (symbol-function 'test) #<CLOSURE TEST (X) (DECLARE (SYSTEM::IN-DEFUN TEST)) (BLOCK TEST (* X X))> > (setq a (symbol-function 'test)) #<CLOSURE TEST (X) (DECLARE (SYSTEM::IN-DEFUN TEST)) (BLOCK TEST (* X X))> > (funcall a 2) 4 > (test 3) 9 > (setf (symbol-function 'test2) a) #<CLOSURE TEST (X) (DECLARE (SYSTEM::IN-DEFUN TEST)) (BLOCK TEST (* X X))> > (test2 4) 16これにより,test2をtestと同様に定義したこととなります.