anchor.diff:  	  (fq_rdftype :parameter-type 'list)
   	  (fq_lexfile :parameter-type 'list))
     (disable-caching)
  +  (setf (hunchentoot:session-value :term) term)
     (if (is-synset-id term)
         (hunchentoot:redirect (format nil "/wn/synset?id=~a" term))
         (multiple-value-bind
  
positive.code: (defun get-login ()
    (list :login (hunchentoot:session-value :login)))
  
  (defun process-synset (synset)
    (cl-wnbrowser.templates:synset
     (append
      (get-login)
      synset)))
  
  (defun make-callback-uri (request-uri)
    (let* ((redirect-uri (format nil "http://~a~a" *base-url* request-uri))
  
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")
  