anchor.diff:  					   (not (null (cl-ppcre:scan scanner (hunchentoot:script-name request))))))))
   				     (t (funcall uri-content request))))
   		      (return-from dispatch-url-handlers easy-handler))))))))
  +(in-package :easyweb)
     
   (defmacro define-url-handler (description lambda-list &body body)
     (when (atom description)
  
positive.code: 			(uri-content (cdr uri))
  			(easy-handler (mapping-handler mapping))
  			(request-type (mapping-request-method mapping)))
  		    (when (and (cdr (find (hunchentoot:acceptor-name hunchentoot:*acceptor*) asl :test #'string= :key #'car))
  			       (or (eq :BOTH request-type)
  				   (eq request-type (hunchentoot:request-method request)))
  
negative.code: 	       (string-equal application-name (context-name context)))
       do (if (null acceptor-name) 
  	    (setf (context-acceptor-status-list context) (list (cons (nil t))))
  	    (let ((target (member acceptor-name (context-acceptor-status-list context) :test #'string= :key #'car)))
  	      (if target
  		  (setf (cdar (context-acceptor-status-list context)) t)
  		  (push (cons acceptor-name t) (context-acceptor-status-list context)))))))
    
  
  (defun application-unload (application-name &key acceptor-name)
    (if (null acceptor-name)
        "Acceptor-name required!"
        (loop 
  	 for context in *application-contexts*
  	 when (and context
  		   (string-equal application-name (context-name context)))
  	 do (setf (context-acceptor-status-list context) (delete-if #'(lambda(el)
  									(and (car el)
  									     (string= (car el) acceptor-name)))
  								    (context-acceptor-status-list context))))))
  
  
  (defun get-lambda-list (fn)
  