[slime-devel] auto-abbreviated-package-name

[Lars Brinkhoff]

Sometimes I would like to include a version number in a package name,
for example: "FOO.BAR-2.1".  This isn't handled well by
auto-abbreviated-package-name when *auto-abbreviate-dotted-packages*
is true.

Would it be a good idea to add some heuristic to handle this better?

E.g., reject a short string consisting of only digits:

  (when *auto-abbreviate-dotted-packages*
    (let ((last-dot (position #\. (package-name package) :from-end t)))
      (when last-dot
        (let ((string (subseq (package-name package) (1+ last-dot))))
          (when (or (> (length string) 2)
                    (some (complement #'digit-char-p) string))
            string)))))

or exclude the last few charcters in the search for a period:

  (when *auto-abbreviate-dotted-packages*
    (let* ((name (package-name package))
           (length (length name))
           (last-dot (position #\. name :from-end t :end (- length 2))))
      (when last-dot (subseq (package-name package) (1+ last-dot)))))