anchor.diff:  				                 .!
   					             x))
   					   (funcall
  -						 (compose #'reduce-tags
  +						 (compose ;#'reduce-tags
   								  #'remove-code
   								  #'opt-peephole-remove-void)
   						 x))))
  
positive.code: ;;;;; TRE compiler
  ;;;;; Copyright (c) 2008 Sven Klose <pixel@copei.de>
  ;;;;;
  ;;;;; Peephole-optimizer for expression-expanded code.
  
  
negative.code:   (with (acc nil
           rec #'((x)
                    (with-cons a d x
                      (if
  					  (and (%var? a)
                             (not ..a))
                          (progn
                            (setf acc (push a acc))
                            (rec d))
                        (and (%setq? a)
                             (lambda? ..a.))
                          (cons `(%setq ,.a.
                                   ,(copy-recurse-into-lambda
                                        ..a.
                                        #'opt-peephole-move-vars-to-front))
                                (rec d))
                        (cons a
                              (rec d))))))
      (let ret (rec x)
        (append acc ret))))
  
  