anchor.diff:  	  (vars    (l-vars (cadr e))))
         (let ((env   (nconc (map list vars) env)))
   	`(lambda ,(expand-lambda-list formals env)
  -	   ,.(expand-body body env)
  +	   ,@(expand-body body env)
   	   . ,name))))
     
     (define (expand-define e env)
  
positive.code: 			     ,@(cdr test-spec))
  			   (begin
  			     ,@commands
  			     (,loop ,.steps))))))
         (,loop ,.inits))))
  
  ; SRFI 8
  (define-macro (receive formals expr . body)
  
negative.code: 
  (define-macro (letrec binds . body)
    `((lambda ,(map car binds)
        ,@(map (lambda (b) `(set! ,@b)) binds)
        ,@body)
      ,@(map (lambda (x) (void)) binds)))
  
  (define-macro (let binds . body)
    (let ((lname #f))
  