anchor.diff:  (in-package :manifest)
  -
   
   (defun start (&key (port 0))
     "Start the manifest server and return the URL to browse. By default
  
positive.code: 
  (defun manifest (request)
    (cond
      ((string= (uri-path (request-uri request)) "/")
       (index-page))
      (t (package-page request))))
  
  (defun package-page (request)
  
negative.code:             (format s "~&</dl></body></html>")))
          (t 'not-handled)))))
  
  (defun index-page (request)
    (let ((s (send-headers request)))
      (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>")
  