anchor.diff:  (setf (defsys:locate (defsys:root-system) 'fcll:lambda-list-keyword-class)
         *lambda-list-keyword-class-definitions*)
   
  -(defun %ensure-lambda-list-keyword-class (name &rest initargs)
  -  (apply #'%ensure-definition *lambda-list-keyword-class-definitions* name
  -         'fcll:standard-lambda-list-keyword-class
  -         initargs))
  -
   (defmethod defsys:expand-definition ((system lambda-list-keyword-class-definitions) name environment args &key)
     (declare (ignore environment))
  -  `(%ensure-lambda-list-keyword-class ',name ,@args))
  +  `(defsys:ensure ',(defsys:name system) ',name 'fcll:standard-lambda-list-keyword-class ,@args))
   
   
   ;;; Lambda list keywords
  
positive.code: (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)))
  
  
  ;;; Lambda list keyword conflicts
  
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
  