anchor.diff:  ;;;;; TRE environment
  -;;;;; Copyright (c) 2008-2009 Sven Klose <pixel@copei.de>
  +;;;;; Copyright (c) 2008-2010 Sven Klose <pixel@copei.de>
   ;;;;;
   ;;;;; Argument expander.
   ;;;;;
  
positive.code: 				   ; Turn keyword definition into ACONS.
  				   (and (setf argument-exp-sort-key
  							  (cons (if (consp _.)
  										(cons (first _.)
  											  (second _.)) ; with default value
  										(list _.)) ; without default value
  									argument-exp-sort-key))
  						(rec2 ._)))))
  
  
negative.code: 		 exp-rest
  		   #'((def vals)
  				(setf no-static '&rest)
    			    (setf rest-arg (list (cons def.
  										   (cons '&rest
  												 vals))))
  			    nil)
  
           exp-optional-rest
  