anchor.diff:  
   		 get-default
   		   #'((def)
  -				(when (consp def.)
  -				  (second def.)))
  +				(if (consp def.)
  +				    (second def.)
  +					(list '%quote def.)))
   
   		 get-value
   		   #'((def vals)
  
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: ;;;;; TRE environment
  ;;;;; Copyright (c) 2008-2010 Sven Klose <pixel@copei.de>
  ;;;;;
  ;;;;; Argument expander.
  ;;;;;
  