projects
/
uffi.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
r1741: Added find-foreign-library
[uffi.git]
/
set-logical.cl
diff --git
a/set-logical.cl
b/set-logical.cl
index 82b4002862952f43f1d53c0a5271cc7481e26fa7..fa6568f5d17565144dadd734be2e9c59255d4929 100644
(file)
--- a/
set-logical.cl
+++ b/
set-logical.cl
@@
-1,4
+1,4
@@
-;;;; -*- Mode:
LISP
; Syntax: ANSI-Common-Lisp; Base: 10 -*-
+;;;; -*- Mode:
ANSI-Lisp
; Syntax: ANSI-Common-Lisp; Base: 10 -*-
;;;; *************************************************************************
;;;; FILE IDENTIFICATION
;;;;
;;;; *************************************************************************
;;;; FILE IDENTIFICATION
;;;;
@@
-37,7
+37,8
@@
#+sbcl "sbcl"
#+corman "corman"
#+mcl "mcl"
#+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)
(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)