anchor.diff:          (json:encode-json score)))))
   
   (defun search-results-json (q n)
  +  "Execute a query returning n results and write the whole thing out as a string
  +   also sets the hunchentoot content-type to be json"
     (setf (hunchentoot:content-type*) "application/json")
     (when q
       (with-output-to-string (json:*json-output*)
  
positive.code: 		    ellipses))))
  
  (defun search-result-fn (d &optional (shorten-to 512))
    (let* ((name (sr-val d :name))
           (type (intern (sr-val d :type) :keyword))
           (package (case type
  
negative.code:     (hunchentoot:start *acceptor*)))
  
  (defun stop-server ()
    "Stops the running server if it exists"
    (when *acceptor*
      (hunchentoot:stop *acceptor*)
      (setf *acceptor* nil)
      T))
  
  (defun json-search-results-fn (doc score)
    "encodes a single search result as json"
    (json:as-array-member ()
      (json:with-object ()
        (iter (for n in (list :package :name :type :documentation))
  