6.2 let �}�N��

let���C

(def-scheme-macro let (bindings &rest body)
  `((lambda ,(mapcar #'car bindings) ,@body)
    ,@(mapcar #'cadr bindings)))

�������}�N�����`���C�������� ���`���^�����������`�����������D

<cl> (scheme-macro-expand '(let ((a 1)) (list a)))
((LAMBDA (A) (LIST A)) 1)

<cl> (comp-show '(let ((a 1)) (list a)))

      ARGS  0     
      CONST 1     
      FN    
            ARGS  1     
            LVAR  0     0     ;     A     
            GVAR  LIST  
            CALL  1     
            RETURN
      CALL  1     
      RETURN