anchor.diff:  (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)))
  
positive.code: (defmethod quickload :after (system-specs &key verbose silent prompt explain)
    (declare (ignore verbose silent prompt explain))
    (when (atom system-specs)
      (setf system-specs (list system-specs)))
    (loop for system in system-specs
          unless (member system *excluded-systems* :test #'string-equal)
            do (progn
                 (install-documentation system)
                 (loop for dependecy in (asdf:system-depends-on (asdf:find-system system))
                       do (install-documentation (make-keyword (string-upcase dependecy)))))))
  
  
  (defun remove-outdated-docs ()
  
negative.code:                             (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))))))))
  
  (defvar *excluded-systems*
    #+abcl (list :jss)
    #-abcl nil
    "Don't generate documentation for those systems.")
  
  (defun exclude-system (system)
    "Don't create documentation for SYSTEM-DESIGNATOR.
  See *EXCLUDED-SYSTEMS* for a list of excluded systems."
    (pushnew (make-system-designator system) *excluded-systems*))
  