[slime-devel] Re: Canonical package nicknames patch

[lawrence mitchell]

Peter Seibel wrote:

[...]

> Also, I was hacking around some more with another addition to
> shortest-package-nickname to automatically create abbreviations for
> dotted package names:

>   CL-USER> (in-package :com.gigamonkeys.spam)
>   #<The COM.GIGAMONKEYS.SPAM package>
>   SPAM>

How about abbreviating to

  C.G.SPAM>

That way, you are possibly less likely to be confused if you have
two packages ending with the same name.

Something like:

(defun auto-abbreviated-package-name (package)
  (when *auto-abbreviate-dotted-packages*
    (let ((name (make-array '(0) :element-type 'base-char
                            :fill-pointer 0 :adjustable t))
          (pname (package-name package))
          (dot nil))
      (with-output-to-string (s name)
        (while (setf dot (position #\. pname))
          (princ (char pname 0) s)
          (princ #\. s)
          (setf pname (subseq pname (1+ dot))))
        (princ pname s))
      name)))

perhaps.

-- 
lawrence mitchell <wence at gmx.li>