anchor.diff:       (cddr x)
        x))
   
  -;;;; Tré accepts the LAMBDA notation for anonymous functions also
  +;;;; 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)
  
positive.code: ;;;; tré – Copyright (c) 2006–2012 Sven Michael Klose <pixel@copei.de>
  
  (defun past-lambda-1 (x)
    (? (eq (car x) 'lambda)
  
negative.code:         (cadr x)) ; (FUNCTION lambda-expression)
  	 x))
  
  (defun past-lambda-before-funinfo (x)
    (past-lambda-1 (past-function x)))
  
  