anchor.diff:              (format s "~&</dl></body></html>")))
           (t 'not-handled)))))
   
  -(defun index-page ()
  -  (with-output-to-string (s)
  +(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>")
  
positive.code: 
  (defun manifest (request)
    (cond
      ((string= (uri-path (request-uri request)) "/")
       (index-page))
      (t (package-page request))))
  
  (defun package-page (request)
  
negative.code:       (split-sequence #\/ (subseq (uri-path (request-uri request)) 1))
      (declare (ignore rest))
  
      (let ((package (find-package (string-upcase package-name))))
        (cond
          (package
            (let ((s (send-headers request)))
              (format s "<html><head><title>Package: ~a</title><link rel='stylesheet' type='text/css' href='manifest.css'></head>" (package-name package))
              (format s "<body><h1>Package: ~a</h1>" (package-name package))
  
  