anchor.diff:          (cadr x)) ; (FUNCTION lambda-expression)
   	 x))
   
  -;; The compiler stores function information before the arguments of
  -;; a LAMBDA-expression.
   (defun past-lambda-before-funinfo (x)
     (past-lambda-1 (past-function x)))
   
  
positive.code: ;;;; tré – Copyright (c) 2006–2012 Sven Michael Klose <pixel@copei.de>
  
  (defun past-lambda-1 (x)
    (? (eq (car x) 'lambda)
  
negative.code:      (cddr x)
       x))
  
  ;;;; tré accepts the LAMBDA notation for anonymous functions also
  ;;;; without the LAMBDA symbol. PAST-LAMBDA gets you past the
  ;;;; LAMBDA symbol, if it's there.
  (defun past-lambda (x)
  