anchor.diff:              force)
       (setf *specs*
             (loop for directory in *spec-directories*
  -                nconc (mapcar #'read-specification (directory (merge-pathnames "*.lisp" directory))))))
  +                nconc
  +                (mapcar #'read-specification
  +                        (directory (merge-pathnames "*.lisp" directory))))))
     (values))
   
   (defun wrapped-p (term char-set)
  
positive.code:                 wrap)))))
  
  (defun parse-terms (terms &key abbreviate)
    (let ((hash-table (make-hash-table :test #'equal)))
      (loop for term in terms
            do
            (destructuring-bind (key url &key type title) term
  
negative.code:   (gethash key (terms spec)))
  
  (defun format-url (spec 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))
  