anchor.diff:            always res)
       (nreverse result)))
   
  -(defmethod combine-hook-until-success ((hook hook) &rest args)
  +(defmethod combine-hook-until-success ((hook hook) &rest args) ; TODO: Result difference between "no success" and "no handlers"?
     "Return the value of the first non-nil result.
   Handlers after the successful one are not run.
   This is an acceptable `combination' for `hook'."
  
positive.code: (defmethod combine-composed-hook ((hook hook) &rest args)
    "Return the result of the composition of the HOOK handlers on ARGS, from
  oldest to youngest.
  This is an acceptable `combination' for `hook'."
    (apply (apply #'alexandria:compose (mapcar #'fn (handlers hook))) args))
  
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  (defun add-hook-internal (hook handler &key append)
  
negative.code:           (find-handler (disabled-handlers hook))))
        found-handler)))
  
  (defmethod run-hook ((hook hook))
    (funcall (combination hook) hook))
  
  