anchor.diff:  (setf (defsys:locate (defsys:root-system) 'fcll:lambda-list-keyword-order)
         *lambda-list-keyword-order-definitions*)
   
  -(defun %ensure-lambda-list-keyword-order (name specification)
  -  (%ensure-definition *lambda-list-keyword-order-definitions* name
  -                      'fcll:standard-lambda-list-keyword-order
  -                      :specification specification))
  -
   (defmethod defsys:expand-definition ((system lambda-list-keyword-order-definitions) name environment args &key)
     (declare (ignore environment))
     (destructuring-bind (specification) args
  -    `(%ensure-lambda-list-keyword-order ',name ',specification)))
  +    `(defsys:ensure ',(defsys:name system) ',name 'fcll:standard-lambda-list-keyword-order :specification ',specification)))
   
   
   ;;; Lambda list keyword conflicts
  
positive.code: 
  (setf (defsys:locate (defsys:root-system) 'fcll:lambda-list-kind)
        *lambda-list-kind-definitions*)
  
  (defun %ensure-lambda-list-kind (name operator raw-keywords-list &rest initargs)
    (apply #'%ensure-definition *lambda-list-kind-definitions* name
           'fcll:standard-lambda-list-kind
           :operator operator :raw-keywords-list raw-keywords-list initargs))
  
  (defun %derive-keywords-list (&key (from :ordinary) add remove replace)
    (let ((from (and from (raw-keywords-list (lambda-list-kind from)))))
  
negative.code: (setf (defsys:locate (defsys:root-system) 'fcll:lambda-list-keyword-conflicts)
        *lambda-list-keyword-conflicts-definitions*)
  
  (defmethod defsys:expand-definition ((system lambda-list-keyword-conflicts-definitions) name environment args &key)
    (declare (ignore environment))
    (destructuring-bind (specification) args
      `(defsys:ensure ',(defsys:name system) ',name 'fcll:standard-lambda-list-keyword-conflicts :specification ',specification)))
  
  
  ;;; Lambda list kinds
  