anchor.diff:  			     ,@(cdr test-spec))
   			   (begin
   			     ,@commands
  -			     (,loop ,.steps))))))
  -       (,loop ,.inits))))
  +			     (,loop ,@steps))))))
  +       (,loop ,@inits))))
   
   ; SRFI 8
   (define-macro (receive formals expr . body)
  
positive.code: 	      (vars    (l-vars (cdadr e))))
  	  (let ((env   (nconc (map list vars) env)))
  	    `(define ,(cons name (expand-lambda-list formals env))
  	       ,.(expand-body body env))))))
    
    (define (expand-let-syntax e env)
      (let ((binds (cadr e)))
  
negative.code: 	  (else            `(memv ,key ',v))))
    (let ((g (gensym)))
      `(let ((,g ,key))
         (cond ,@(map (lambda (clause)
  		      (cons (vals->cond g (car clause))
  			    (cdr clause)))
  		    clauses)))))
  