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