anchor.diff:  				   ; Turn keyword definition into ACONS.
   				   (and (setf argument-exp-sort-key
   							  (cons (if (consp _.)
  -										(cons (first _.)
  +										(cons (car _.)
   											  (second _.)) ; with default value
  -										(list _.)) ; without default value
  +										(cons _.
  +											  _.)) ; without itself
   									argument-exp-sort-key))
   						(rec2 ._)))))
   
  
positive.code: 
  		 get-default
  		   #'((def)
  				(when (consp def.)
  				  (second def.)))
  
  		 get-value
  		   #'((def vals)
  
negative.code: 		 exp-rest
  		   #'((def vals)
  				(setf no-static '&rest)
    			    (setf rest-arg (list (cons def.
  										   (cons '&rest
  												 vals))))
  			    nil)
  
           exp-optional-rest
  