anchor.diff:  (defun get-login ()
     (list :login (hunchentoot:session-value :login)))
   
  -(defun process-synset (synset)
  +(defun process-synset (parameters)
     (cl-wnbrowser.templates:synset
      (append
       (get-login)
  -    synset)))
  +    parameters)))
   
   (defun make-callback-uri (request-uri)
     (let* ((redirect-uri (format nil "http://~a~a" *base-url* request-uri))
  
positive.code: 	  (fq_rdftype :parameter-type 'list)
  	  (fq_lexfile :parameter-type 'list))
    (disable-caching)
    (if (is-synset-id term)
        (hunchentoot:redirect (format nil "/wn/synset?id=~a" term))
        (multiple-value-bind
  
negative.code: 		  (process-error result)
  		  (progn 
  		    (hunchentoot:delete-session-value :ids)
  		    (process-results result)))))))))
  		  
  (hunchentoot:define-easy-handler (search-activity-handler :uri "/wn/search-activities")
  