Function: check-function-discriminators

Documentation

If user is specifying the discriminators in the wethod-url-spec, make sure that all such discriminators are associated with methods.

Source

(defun check-function-discriminators (wethod-name discriminators)
  "If user is specifying the discriminators in the wethod-url-spec,
make sure that all such discriminators are associated with methods."
  (let ((valid-discriminators (get-function-discriminators wethod-name)))
    (aif (find-if (fn (discriminator) (not (find discriminator valid-discriminators :test #'equal)))
		  discriminators)
	 (error 'wisp-undefined-wethod-discriminator
		:discriminator it
		:valid-discriminators valid-discriminators
		:wethod-name wethod-name)
	 discriminators)))