-;;;; -*- Mode: LISP; Syntax: ANSI-Common-Lisp; Base: 10 -*-
+;;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*-
;;;; *************************************************************************
;;;; FILE IDENTIFICATION
;;;;
#+clisp "clisp"
#+cmu "cmucl"
#+sbcl "sbcl"
- #+corman "corman"
+ #+cormanlisp "corman"
#+mcl "mcl"
- #-(or allegro lispworks clisp cmu sbcl corman mcl) "unknown")
+ #+openmcl "openmcl"
+ #-(or allegro lispworks clisp cmu sbcl cormanlisp mcl openmcl) "unknown")
(defun set-logical-host-for-pathname (host base-pathname)
(setf (logical-pathname-translations host)
:directory '(:relative :wild-inferiors))
base-pathname))))
)
+
+(export 'set-logical-host-for-pathname)