anchor.diff:      (car defs)))
   
   (defun argument-expand-0 (fun adef alst apply-values? concatenate-sublists?)
  -  (let ((argdefs    a)
  -	    (key-args   k)
  -	    (num        0)
  -	    (no-static  nil)
  -	    (rest-arg   nil))
  -    (multiple-value-bind (a k) (make-&key-alist adef)
  +  (multiple-value-bind (a k) (make-&key-alist adef)
  +    (let ((argdefs    a)
  +	      (key-args   k)
  +	      (num        0)
  +	      (no-static  nil)
  +	      (rest-arg   nil))
         (labels ((err (msg args)
   				 (error "; Call of function ~A: ~A~%; Argument definition: ~A~%; Given arguments: ~A~%"
                           (symbol-name fun)
  
positive.code: ;;;;; tré – Copyright (c) 2008–2014 Sven Michael Klose <pixel@copei.de>
  
  (defun argument-rest-keyword? (x)     (in? x '&rest '&body))
  (defun argument-keyword? (x)          (in? x '&rest '&body '&optional '&key))
  
negative.code: 			     nil)
  
                 (exp-optional-rest (def vals)
  		         (alet (car def)
  				   (?
                       (eq ! '&rest)     (exp-rest def vals)
                       (eq ! '&body)     (exp-rest def vals)
                       (eq ! '&optional) (exp-optional (cdr def) vals))))
  
  		       (exp-sub (def vals)
  			     (and no-static
  