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:                              (list ,v))
                            `(list ,v)))
  
                    ,@(!? if-slot-value  `((%slot-value? ,v)  ,!))
                    ,@(!? if-stack       `((%stack? ,v)       ,!))
                    ,@(!? if-vec         `((%vec? ,v)         ,!))
  
                    ,@(alet (| if-named-function if-function `(,name (lambda-body ,x) ,@r))
                        `((%setq-named-function? ,v) ,(metacode-walker-copier-setq x !)
                          (named-lambda? ,v) ,(metacode-walker-copier x !)))
  
                    ,@(alet (| if-lambda if-function `(,name (lambda-body ,x) ,@r))
                        `((%setq-lambda? ,v) ,(metacode-walker-copier-setq x !)))
  
                    (not (metacode-statement? ,v))
  
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)
  