anchor.diff:  
   (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)))))
  
positive.code: (setf (defsys:locate (defsys:root-system) 'fcll:lambda-list-keyword-conflicts)
        *lambda-list-keyword-conflicts-definitions*)
  
  (defun %ensure-lambda-list-keyword-conflicts (name specification)
    (%ensure-definition *lambda-list-keyword-conflicts-definitions* name
                        'fcll:standard-lambda-list-keyword-conflicts
                        :specification specification))
  
  (defmethod defsys:expand-definition ((system lambda-list-keyword-conflicts-definitions) name environment args &key)
    (declare (ignore environment))
    (destructuring-bind (specification) args
      `(%ensure-lambda-list-keyword-conflicts ',name ',specification)))
  
  
  ;;; Lambda list kinds
  
negative.code: (setf (defsys:locate (defsys:root-system) 'fcll:lambda-list-keyword)
        *lambda-list-keyword-definitions*)
  
  (defmethod defsys:expand-definition ((system lambda-list-keyword-definitions) name environment arity-then-args &key)
    (declare (ignore environment))
    (destructuring-bind (arity &rest args) arity-then-args
      `(defsys:ensure ',(defsys:name system) ',name 'fcll:standard-lambda-list-keyword :arity ,arity ,@args)))
  
  
  ;;; Lambda list keyword order
  