anchor.diff:    (:export-predicate-name-p t)
     (:accessor-name-transformer (class*:make-name-transformer name)))
   
  +(defmethod print-object ((object suggestion) stream)
  +  (print-unreadable-object (object stream :type t :identity t)
  +    (format stream "~a" (symbols  object))))
  +
   (defun suggestion= (suggestion1 suggestion2)
     (and (string= (version suggestion1)
                   (version suggestion2))
  
positive.code:     (push suggestion (gethash (symbol-name sym) +migration-suggestions+))))
  
  (defun version-suggestions (major-version)
    (let ((result '()))
      (maphash (lambda (key suggestions)
                 (declare (ignore key))
  
negative.code:                                                :test #'string=)
                                      result)))
               +migration-suggestions+)
      (sort  (delete-duplicates result)
             #'string<
             :key (compose #'first #'uiop:ensure-list #'symbols))))
  
  (defmethod tip ((suggestion suggestion))
    (if (stringp (slot-value suggestion 'tip))
  