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