[slime-devel] [NEW] all-logical-hosts

[Terje Norderhaug]

I am making a logical pathname inspector for use with Swank.

Common LISP provides #'logical-pathname-translations that works on  
the name of a logical host. However, it assumes that the developer  
already know the hostnames. However, Common LISP does not provide a  
function to get all logical hostnames.

I suggest adding a function to Swank to discover the names of all  
logical hosts. Here is a candidate with implementations for Clozure  
and LispWorks:

;; swank-backend.lisp

(definterface all-logical-hosts ()
   "Return a list of the names of all logical hosts"
   NIL)

;; swank-openmcl.lisp

(defimplementation all-logical-hosts ()
   (mapcar #'car ccl::%logical-host-translations%))

;; swank-lispworks.lisp

(defimplementation all-logical-hosts ()
   (let (result)
    (maphash (lambda (key value)(push key result))
       system::*logical-pathname-translations*)
    result))

;; alternatively:

(defimplementation all-logical-hosts ()
  (loop for key being the hash-keys of system::*logical-pathname- 
translations*
        collect key))


-- Terje Norderhaug