#+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)
;;;; Programmer: Kevin M. Rosenberg
;;;; Date Started: Feb 2002
;;;;
-;;;; $Id: uffi.system,v 1.13 2002/04/09 20:05:42 kevin Exp $
+;;;; $Id: uffi.system,v 1.14 2002/04/09 20:06:18 kevin Exp $
;;;;
;;;; This file, part of UFFI, is Copyright (c) 2002 by Kevin M. Rosenberg
;;;;
'(:relative "src")
#+mcl
'(:relative "src" "mcl")
- #+corman
- '(:relative "src" "cormanlisp")
+ #+cormanlisp
+ '(:relative "src" "corman")
)
*load-truename*))