anchor.diff:      :initarg :dispatchers
       :accessor dispatch-table-of)))
   
  +(defclass ssl-server-acceptor (hunchentoot:easy-ssl-acceptor)
  +  ((template-provider-registry
  +    :initform nil
  +    :initarg :template-providers
  +    :accessor template-provider-registry-of)
  +   (tag-library-provider-registry
  +    :initform nil
  +    :initarg :tag-library-providers
  +    :accessor tag-library-provider-registry-of)
  +   (url-cache
  +    :initform nil
  +    :initarg :urlcache
  +    :accessor url-cache-of)
  +   (dispatch-table
  +    :initform nil
  +    :initarg :dispatchers
  +    :accessor dispatch-table-of)))
   ;;;------------------------------------------------------------------------------------
   ;;; Generics
   ;;;------------------------------------------------------------------------------------
  
positive.code:     (load-templates)
      (load-urls)
      (call-next-method)))
  
  (defmethod run-web-server ( (server-acceptor web-server-acceptor) &key (wait nil) )
    (let* ((acceptor (hunchentoot:start server-acceptor))
  
negative.code:     (when wait
        (bt:join-thread (hunchentoot::acceptor-process taskmaster) ))
      acceptor))
      
  (defmethod run-web-server ( (server-acceptor ssl-server-acceptor) &key (wait nil) )
    (let* ((acceptor (hunchentoot:start server-acceptor))
  	 (taskmaster (hunchentoot::acceptor-taskmaster acceptor)))
      (when wait
        (bt:join-thread (hunchentoot::acceptor-process taskmaster) ))
      acceptor))    
  
  (defmacro create-web-server (( &rest initialization-args)
  			     &key 
  