anchor.diff:  
   (defvar *manifest-server* nil)
   
  -(defparameter *categories* '(:function :generic-function :accessor :variable :class :condition :constant))
  +(defparameter *categories* '(:function :generic-function :slot-accessor :variable :class :condition :constant))
   
   (defun start (&key (port 0))
     "Start the manifest server and return the URL to browse. By default
  
positive.code:     (return-from has-exported-symbols-p t))
    nil)
  
  (defun readme-text (package-name)
    (let ((dir (ignore-errors (asdf:system-relative-pathname package-name nil))))
      (when dir
  
negative.code:                while line do (write-line line s))))))))
  
  (defun names (package what)
    (sort
     (loop for sym being the external-symbols of package
        when (is sym what) collect sym
        when (is `(setf ,sym) what) collect `(setf ,sym))
     #'name<))
  
  (defun name< (n1 n2)
    (cond
      ((and (symbolp n1) (symbolp n2))
       (string< n1 n2))
      ((and (symbolp n1) (listp n2))
       (cond
         ((string< n1 (second n2)) t)
         ((string< (second n2) n1) nil)
         (t t)))
      ((and (listp n1) (symbolp n2))
       (cond
         ((string< (second n1) n2) t)
         ((string< n2 (second n1)) nil)
         (t nil)))
      ((and (listp n1) (listp n2))
       (string< (second n1) (second n2)))))
  
  
  (defgeneric is (symbol what))
  (defgeneric docs-for (symbol what))
  