anchor.diff: -;;;;; tré - Copyright (c) 2008-2012 Sven Michael Klose <pixel@copei.de>
  +;;;;; tré – Copyright (c) 2008–2012 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))
  
positive.code: 
  (defun argument-expand-compiled-values (fun def vals)
    (mapcar (fn ? (and (cons? _)
                       (or (eq '&rest _.)
                           (eq '&body _.)))
                  (%argument-expand-rest ._)
                  _)
            (cdrlist (argument-expand fun def vals t))))
  
negative.code: (defun argument-expand-names (fun def)
    (argument-expand fun def nil nil))
  
  (defun %argument-expand-rest (args)
    (when args
      `(cons ,args.
  