13.3 �}�N�����W�J

�}�N�����`�������������W�J�����������������������Cmacroexpand�������� �������������D defun�������}�N�������D���������C

> (macroexpand '(defun test (x) a b c))

(PROGN
  (SETF (SYMBOL-FUNCTION 'TEST)
        #'(LAMBDA (X) (BLOCK TEST a b c)))
  'TEST)

�������������C�������`���C�V���{�� �� symbol-function ������ �����{�������������_�������������������������s�����������������������D