<cl> (defun test (a) (list a)) TEST <cl> (test 1) (1) <cl> (ledit (symbol-function 'test)) E>p (LAMBDA (A) (BLOCK TEST ...)) E>3 E>p (BLOCK TEST (LIST A)) E>3 E>p (LIST A) E>(n (list a a)) E>pp (LIST A (LIST A A)) E>top E>pp (LAMBDA (A) (BLOCK TEST (LIST A (LIST A A)))) E>ok T <cl> #'test (LAMBDA (A) (BLOCK TEST (LIST A (LIST A A)))) <cl> (test 1) (1 (1 1))*scratch*バッファの中で行った場合の例としては以下のようになる.
(defun test (a) (list a)) test (test 10) (10) (ledit (symbol-function 'test)) e>(lambda (a) (list a)) e>e>(a) e>e>(lambda (a) (list a)) e>e>(list a) e>e>(list a a) e>t (test 10) (10 10)