projects
/
uffi.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
r1717: *** empty log message ***
[uffi.git]
/
set-logical.cl
diff --git
a/set-logical.cl
b/set-logical.cl
index 82b4002862952f43f1d53c0a5271cc7481e26fa7..7c5d1271755a3d7d01e4e5beb8d1cbcfaabcbd73 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)