anchor.diff:         (main argdefs))))
   
   (defun compile-argument-expansion-function-body (fun-name adef p toplevel-continuer names)
  -  `(with ,(mapcan (fn `(,_ ,(list 'quote _))) names)
  +  `(with ,(mapcan [`(,_ ',_)] names)
        ,@(compile-argument-expansion-0 adef p)
        ((%%native ,(compiled-function-name *transpiler* fun-name)) ,@toplevel-continuer ,@names)))
   
  
positive.code: ;;;;; tré – Copyright (c) 2008–2013 Sven Michael Klose <pixel@copei.de>
  
  (defun compile-argument-expansion-defaults (defaults)
    (mapcar (fn `(& (eq ,_ ,(list 'quote _))
  			      (= ,_ ,(assoc-value _ defaults))))
  		  (carlist defaults)))
  
  (defun compile-argument-expansion-0 (adef p &optional (argdefs nil) (key-args nil))
  
negative.code: 					      (while (keyword? (= v (car ,p)))
  							     nil
  						    (?
  						      ,@(mapcan [`((eq v ,(make-symbol (symbol-name _) *keyword-package*))
  										   (= ,p (cdr ,p)
  										      ,_ (car ,p)
  											  ,p (cdr ,p)))]
  									    (carlist key-args))
  						      (return-from compexp nil)))))))
            ,@(& argdefs (main argdefs))
  