projects
/
uffi.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
r1929: *** empty log message ***
[uffi.git]
/
set-logical.cl
diff --git
a/set-logical.cl
b/set-logical.cl
index 82b4002862952f43f1d53c0a5271cc7481e26fa7..4990e7dd5d6f58fccca36b5533f27f56a864b2a5 100644
(file)
--- a/
set-logical.cl
+++ b/
set-logical.cl
@@
-1,4
+1,4
@@
-;;;; -*- Mode: L
ISP
; Syntax: ANSI-Common-Lisp; Base: 10 -*-
+;;;; -*- Mode: L
isp
; Syntax: ANSI-Common-Lisp; Base: 10 -*-
;;;; *************************************************************************
;;;; FILE IDENTIFICATION
;;;;
;;;; *************************************************************************
;;;; FILE IDENTIFICATION
;;;;
@@
-35,9
+35,10
@@
#+clisp "clisp"
#+cmu "cmucl"
#+sbcl "sbcl"
#+clisp "clisp"
#+cmu "cmucl"
#+sbcl "sbcl"
- #+corman "corman"
+ #+corman
lisp
"corman"
#+mcl "mcl"
#+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)
(defun set-logical-host-for-pathname (host base-pathname)
(setf (logical-pathname-translations host)
@@
-60,3
+61,5
@@
:directory '(:relative :wild-inferiors))
base-pathname))))
)
:directory '(:relative :wild-inferiors))
base-pathname))))
)
+
+(export 'set-logical-host-for-pathname)