Function: make-url-package

Source

(defun make-url-package (plist)
  (let ((url (getf plist :url))
	(package (getf plist :package))
	(package-wethods (getf plist :package-wethods)))
    (make-instance 'url-package
		   :package package
		   :url url
		   :urlmap (make-urlmap (gensym (^string package))
					package-wethods))))