Function: ^url-package-spec

Documentation

Make wethod-url-specs for all the wethods accessible in a pacakage.

Source

(defun ^url-package-spec (url-spec)
  "Make wethod-url-specs for all the wethods accessible in a pacakage."
  (let ((url (ensure-prefix-slash-only (first url-spec)))
	(url-package (third url-spec))) 
    (flet ((^wethod-spec (wethod-name)
	     `(,(^string wethod-name) :wethod ,wethod-name ,@(get-function-discriminators wethod-name))))
      (let ((wethods (get-accessible-wethods url-package))) 
	`'(:package :url ,url :package ,url-package
	   :package-wethods ,(mapcar (compose #'unquote #'normalize-url-spec #'^wethod-spec)
				      wethods))))))