anchor.diff:          (xhtml:div '(:class "readme")
             (doc-value doc :readme))
           (xhtml:div '(:class "members")
  -          (iter (for i in items)
  -            (collect (search-result-fn i))))))))
  +          (mapcar #'display-item-fn items))))))
   
   (hunchentoot:define-easy-handler (%package-view :uri "/package")
       ((p :parameter-type #'symbol-munger:english->keyword))
  
positive.code:       (xhtml:div '(:class "description")
          (case type
            (:package
             (or (shorten-string (sr-val d :readme))
                 (shorten-string (sr-val d :documentation))))
            (t (shorten-string (sr-val d :documentation))))))))
  
  
  (defun package-view (package)
    (let ((doc (package-document package))
  
negative.code:                          &aux (slen (length s)) )
    "Make a long string shorter"
    (cond
      ((null length) s)
      ((= slen 0) nil)
      ((<= slen length) s)
      (T (concatenate 'string (subseq s 0 (- length (length ellipses)))
  		    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
  