anchor.diff:                  :accessor description)
      (url-prefix :initarg :url-prefix
                  :initform nil
  -               :accessor url-prefix) 
  +               :accessor url-prefix)
      (terms :initarg :terms
             :initform nil
             :accessor terms)))
  
positive.code:   (gethash key (terms spec)))
  
  (defun format-url (spec term)
    (format nil "~@[~a~]~a"
            (url-prefix spec)
            (url term)))
  
  (defun lookup (spec term &key type)
    (let* ((spec (find-spec spec))
  
negative.code:             force)
      (setf *specs*
            (loop for directory in *spec-directories*
                  nconc
                  (mapcar #'read-specification
                          (directory (merge-pathnames "*.lisp" directory))))))
    (values))
  
  (defun wrapped-p (term char-set)
  