anchor.diff:    (gethash key (terms spec)))
   
   (defun format-url (spec term)
  -  (format nil "~@[~a~]~a"
  -          (url-prefix spec)
  -          (url term)))
  +  (if (consp term)
  +      (format nil "Matches: ~{~a~^, ~}."
  +              (mapcar #'key term))
  +      (format nil "~@[~a~]~a"
  +              (url-prefix spec)
  +              (url term))))
   
   (defun lookup (spec term &key type)
     (let* ((spec (find-spec spec))
  
positive.code:                 :accessor description)
     (url-prefix :initarg :url-prefix
                 :initform nil
                 :accessor url-prefix) 
     (terms :initarg :terms
            :initform nil
            :accessor terms)))
  
negative.code:                 wrap)))))
  
  (defun parse-terms (terms &key abbreviate)
    (let ((hash-table (make-hash-table :test #'equalp)))
      (loop for term in terms
            do
            (destructuring-bind (key url &key type title) term
  