anchor.diff:                                                     ,(function-copier x statement)))))))
   
   (defun metacode-walker-copier (x statement)
  -  `(let ,x (car ,x)
  -     (list ,(function-copier x statement))))
  +   `(list ,(function-copier x statement)))
   
   (defun metacode-statement? (x)
     (| (in? x. '%setq '%set-vec '%var '%function-prologue '%function-epilogue '%function-return '%%tag)
  
positive.code: ;;;;; tré – Copyright (c) 2010–2012 Sven Michael Klose <pixel@copei.de>
  
  (defun function-copier (x statement)
    `(copy-lambda ,x :body ,statement))
  
  (defun metacode-walker-copier-setq (x statement)
     (list 'backquote `((%setq ,(list 'quasiquote `(%setq-place (car ,x)))
  
negative.code: (defmacro metacode-walker (name args &key (if-atom nil)
  					  	    	          (if-cons nil)
  					  	    	          (if-symbol nil)
  					  	    	          (if-setq nil)
  					  	    	          (if-go nil)
  					  	    	          (if-go-nil nil)
  									      (if-function nil)
  									      (if-lambda nil)
  									      (if-named-function nil)
  