anchor.diff:       (identity nil)))
   
   (define-compiler-macro progn (&rest body)
  -  (make-vm-scope (| (vars-to-identity body) ; XXX fscking workaround
  -				    '((identity nil)))))
  +  (!? body
  +      `(%%vm-scope ,@(vars-to-identity body))))
   
   (define-expander 'compiler-return)
   (defvar *blockname* nil)
  
positive.code:     `(identity nil)))
  
  (define-compiler-macro setq (&rest args)
    (make-vm-scope (filter ^(%setq ,_. ,._.) (group args 2))))
  
  (define-compiler-macro ? (&rest body)
    (with (tests (group body 2)
  
negative.code: ;;;;; tré – Copyright (c) 2006–2013 Sven Michael Klose <pixel@copei.de>
  
  (defvar *tagbody-replacements*)
  
  