anchor.diff:  
   (defun manifest (request)
     (cond
  -    ((string= (uri-path (request-uri request)) "/")
  -     (index-page))
  +    ((string= (uri-path (request-uri request)) "/") (index-page request))
       (t (package-page request))))
   
   (defun package-page (request)
  
positive.code:             (format s "~&</dl></body></html>")))
          (t 'not-handled)))))
  
  (defun index-page ()
    (with-output-to-string (s)
      (format s "<html><head><title>Manifest: all packages</title><link rel='stylesheet' type='text/css' href='manifest.css'></head>")
      (format s "<body><h1>All Packages</h1>")
      (format s "~&<ul>")
  
negative.code: (in-package :manifest)
  
  (defun start (&key (port 0))
    "Start the manifest server and return the URL to browse. By default
  