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: (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:     `(identity nil)))
  
  (define-compiler-macro setq (&rest args)
    `(%%vm-scope ,@(filter ^(%setq ,_. ,._.) (group args 2))))
  
  (define-compiler-macro ? (&rest body)
    (with (tests (group body 2)
  