anchor.diff:                              (string= "el" (pathname-type path)))
                             (list-directory *ql-docs-home*))))
       (loop for path in paths
  -       do (ppcre:do-register-groups (name version)
  -              (".*/(.*)-(\\d\..*)\.html" (namestring path))
  -            (let ((system (asdf:find-system name nil)))
  -              (when (and system
  -                         (not (string= version
  -                                       (asdf:component-version system))))
  -                (delete-file path)
  -                (delete-file (make-pathname :type "el"
  -                                            :defaults path))))))))
  +          do (ppcre:do-register-groups (name version)
  +                 (".*/(.*)-(\\d\..*)\.html" (namestring path))
  +               (let ((system (asdf:find-system name nil)))
  +                 (when (and system
  +                            (not (string= version
  +                                          (asdf:component-version system))))
  +                   (delete-file path)
  +                   (delete-file (make-pathname :type "el"
  +                                               :defaults path))))))))
   
  -(defvar *excluded-systems* nil
  +(defvar *excluded-systems*
  +  #+abcl (list :jss)
  +  #-abcl nil
     "Don't generate documentation for those systems.")
   
  -(defun exclude-system (system-designator)
  +(defun exclude-system (system)
     "Don't create documentation for SYSTEM-DESIGNATOR.
   See *EXCLUDED-SYSTEMS* for a list of excluded systems."
  -  (pushnew (string system-designator) *excluded-systems*))
  +  (pushnew (make-system-designator system) *excluded-systems*))
  
positive.code: (defun install-documentation (system)
    "Installs the documentation for SYSTEM."
    (let ((path (make-doc-path system)))
      (when (and (not (file-exists-p path))
                 (find-package system))
        (let ((symbols (make-external-symbol-table system path)))
          (unless (null symbols)
  
negative.code: (defun replace-slashes (string &optional (char #\-))
    "Replaces every #\/ in STRING with CHAR."
    (ppcre:regex-replace-all "\\/" string (string char)))
  
  (defun make-system-designator (system)
    "Unifies system designators for this package. Results in using keywords."
    (if (keywordp system)
        system
        (make-keyword (string-upcase (string system)))))
  
  (defun make-doc-path (system-name &key (extension "html"))
    (let ((system (asdf:find-system system-name)))
  