anchor.diff:       (with-gensym g
          `(cl:let ((,g #'(lambda ,@(make-lambdas .x.)))
             (cl:setf (cl:gethash ~anonymous-fun *function-atom-sources*) ',.x.)
  -          ,g))
  -     `#'(lambda ,@(make-lambdas .x.)))))
  +          ,g)))
  +     `#'(lambda ,@(make-lambdas .x.))))
  +
  +(defun lambda-expr-without-lambda-keyword? (x)
  +  (& (cons? x)
  +     (eq 'function x.)
  +     (not (atom .x.))
  +     (not (eq 'lambda (car .x.)))))
   
   (defun make-lambdas (x)
     (cond
  
positive.code:                               x)
                             x))
      ((eq 'quote x.)     x)
      ((lambda-expr? x.)  (make-variable-function x))
      ((lambda-expr? x)   (make-anonymous-function x))
      (t (cl:mapcar #'make-lambdas x))))
  
  (defun tre2cl (x)
  
negative.code: ; That's why it's disabled here.
  (defconstant +anonymous-function-sources?+ nil)
  
  (defun make-scoping-function (x)
    (with-gensym g
      `(labels ((,g ,@(make-lambdas (cadar x))))
         (,g ,@(make-lambdas .x)))))
  