anchor.diff: -;;;;; tré – Copyright (c) 2010–2012 Sven Michael Klose <pixel@copei.de>
  +;;;;; tré – Copyright (c) 2010–2013 Sven Michael Klose <pixel@copei.de>
   
   (defun function-copier (x statement)
  -  `(copy-lambda ,x :body ,statement))
  +  `(copy-lambda (car ,x) :body ,statement))
   
   (defun metacode-walker-copier-setq (x statement)
      (list 'backquote `((%setq ,(list 'quasiquote `(%setq-place (car ,x)))
  
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)
  