#+sbcl "sbcl"
#+corman "corman"
#+mcl "mcl"
- #-(or allegro lispworks clisp cmu sbcl corman mcl) "unknown")
+ #+openmcl "openmcl"
+ #-(or allegro lispworks clisp cmu sbcl corman mcl openmcl) "unknown")
(defun set-logical-host-for-pathname (host base-pathname)
(setf (logical-pathname-translations host)