anchor.diff:                           `((%setq ~%ret ,_.)
                              (%%vm-go-nil ~%ret ,next)))
                        ,@(awhen (vars-to-identity ._)
  -				         `((%setq ~%ret ,(make-vm-scope !))))
  +				         `((%setq ~%ret (%%vm-scope ,@!))))
                        (%%vm-go ,end-tag)
                        ,next)]
   			     args)
  
positive.code: (defun compiler-macroexpand (x)
    (expander-expand 'compiler x))
  
  (defun make-vm-scope (x)
  ;  (? .x
       `(%%vm-scope ,@x)
       )
  ;     x.))
  
  (define-filter vars-to-identity (x)
    (? (atom x)
  
negative.code: ;;;;; tré – Copyright (c) 2006–2013 Sven Michael Klose <pixel@copei.de>
  
  (defvar *tagbody-replacements*)
  
  