anchor.diff:                                x)
                              x))
       ((eq 'quote x.)     x)
  -    ((lambda-expr? x.)  (make-variable-function x))
  -    ((lambda-expr? x)   (make-anonymous-function x))
  +    ((lambda-expr-without-lambda-keyword? x.) (make-scoping-function x))
  +    ((lambda-expr-without-lambda-keyword? x)  (make-anonymous-function x))
       (t (cl:mapcar #'make-lambdas x))))
   
   (defun tre2cl (x)
  
positive.code:      (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.)))))
  
  (defun make-lambdas (x)
    (cond
  
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)))))
  