anchor.diff:      (push suggestion (gethash (symbol-name sym) +migration-suggestions+))))
   
   (defun version-suggestions (major-version)
  +  "Return suggestions corresponding to MAJOR-VERSION.
  +Order is stable."
     (let ((result '()))
       (maphash (lambda (key suggestions)
                  (declare (ignore key))
  
positive.code:                                                :test #'string=)
                                      result)))
               +migration-suggestions+)
      (delete-duplicates result)))
  
  (defmethod tip ((suggestion suggestion))
    (if (stringp (slot-value suggestion 'tip))
  
negative.code:   (: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))
  