anchor.diff:  ;;;;; tré – Copyright (c) 2008–2014 Sven Michael Klose <pixel@copei.de>
  +
  +(defun carlist (x) (mapcar #'car x))
   
   (defun argument-rest-keyword? (x)     (in? x '&rest '&body))
   (defun argument-keyword? (x)          (in? x '&rest '&body '&optional '&key))
  
positive.code:     (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)
        (labels ((err (msg args)
  				 (error "; Call of function ~A: ~A~%; Argument definition: ~A~%; Given arguments: ~A~%"
                          (symbol-name fun)
  
negative.code: 
                 (exp-main (def vals)
  			     (setf num (+ 1 num))
  			     (? (keywordp (car vals))
  				    (exp-key def vals)
  				    (or (exp-check-too-many def vals)
  			            (and def
  