anchor.diff:  	(if
   	  (not body)
   	    nil
  -	  ; XXX Need local function info, but we don't yet have any function info
  -	  ; where they could be looked up.
  -	  ; Problem: We can't just move the inliner past LAMBDA-EXPAND.
   	  (not argdef)
   	  	x
   	  (< (tree-size body) *opt-inline-min-size*)
  
positive.code: ;;;;; TRE transpiler
  ;;;;; Copyright (c) 2009-2010 Sven Klose <pixel@copei.de>
  
  (defvar *show-inlines?* nil)
  (defvar *opt-inline-max-levels* 1)
  
negative.code:   (not (let-when fi (get-lambda-funinfo x)
  	     (funinfo-ghost fi))))
  
  (defun opt-inline-lambda (tr x)
    (copy-lambda x
        :body (opt-inline-0 tr 0 'no-parent nil (lambda-body x))))
  
  (defun opt-inline (tr x)
    (if (atom x)
  	  x
  	  (cons (if (and (lambda? x.)
  					 (inlineable-expr? tr x.))
  			    (opt-inline-lambda tr x.)
  			    (opt-inline tr x.))
              (opt-inline tr .x))))
  