anchor.diff:  (defun window (&optional (title "Search Lisp Documentation")
                    (body-class "")
                  &rest content)
  +  "Render the standard window frame this site will use"
     (xhtml:html ()
       (xhtml:head ()
         (xhtml:link `(:type :text/css :rel :stylesheet :href :style.css) )
  
positive.code:     (hunchentoot:start *acceptor*)))
  
  (defun stop-server ()
    (when *acceptor*
      (hunchentoot:stop *acceptor*)
      (setf *acceptor* nil)
      T))
  
  (defun json-search-results-fn (doc score)
    (json:as-array-member ()
      (json:with-object ()
        (iter (for n in (list :package :name :type :documentation))
  
negative.code:   (truename (merge-pathnames path *web-root* )))
  
  (defun start-server (&optional (port 8888))
    "Starts the server on specified port unless there is already a server running"
    (unless *acceptor*
      (setf *acceptor*
            (make-instance 'hunchentoot:easy-acceptor
  