<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))