X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=uffi.system;h=7491d639f4522ab9594a4e8f66cdb57a44dc3ba2;hb=63b0648b562bc5a8db5ef013804b1ff4e5c52314;hp=312f9befeed19dce7a6ad4c42f22640e37bd48b8;hpb=0e2874cd053926b5687403d7a824f8eea28f847b;p=uffi.git

diff --git a/uffi.system b/uffi.system
index 312f9be..7491d63 100644
--- a/uffi.system
+++ b/uffi.system
@@ -9,7 +9,7 @@
 ;;;;
 ;;;; Copyright (c) 2002 Kevin M. Rosenberg
 ;;;;
-;;;; $Id: uffi.system,v 1.3 2002/03/10 21:48:50 kevin Exp $
+;;;; $Id: uffi.system,v 1.4 2002/03/11 18:00:57 kevin Exp $
 ;;;;
 ;;;; This file is part of UFFI. 
 ;;;;
@@ -30,45 +30,9 @@
 (declaim (optimize (debug 3) (speed 3) (safety 1) (compilation-speed 0)))
 (in-package :cl-user)
 
-;;; Setup logical pathname translaton with separate binary directories
-;;; for each implementation
-
-;; push allegro case sensitivity on *features*
-#+allegro
-(eval-when (:compile-toplevel :load-toplevel :execute)
-  (if (or (eq excl:*current-case-mode* :case-sensitive-lower)
-	  (eq excl:*current-case-mode* :case-sensitive-upper))
-      (pushnew :case-sensitive cl:*features*)
-    (pushnew :case-insensitive cl:*features*)))
-
-(defconstant +uffi-compiler-name+
-    #+(and allegro ics case-sensitive) "acl-modern"
-    #+(and allegro (not ics) case-sensitive) "acl-modern8"
-    #+(and allegro ics (not case-sensitive)) "acl-ansi"
-    #+(and allegro (not ics) (not case-sensitive)) "acl-ansi8"
-    #+lispworks "lispworks"
-    #+clisp "clisp"
-    #+cmu "cmucl"
-    #+sbcl "sbcl"
-    #+corman "corman"
-    #+mcl "mcl"
-    #-(or allegro lispworks clisp cmu sbcl corman mcl) "unknown")
-
-(setf (logical-pathname-translations "UFFI")
-  `(("**;bin;*.*.*" ,(merge-pathnames
-		      (make-pathname 
-		       :name :wild
-		       :type :wild
-		       :directory 
-		       (append '(:relative :wild-inferiors
-				 ".bin" #.+uffi-compiler-name+)))
-		      *load-truename*))
-    ("**;*.*.*" ,(merge-pathnames
-		  (make-pathname
-		   :name :wild
-		   :type :wild
-		   :directory '(:relative :wild-inferiors))
-		  *load-truename*))))
+(load (make-pathname :name "set-logical" :type "cl"
+		     :defaults *load-truename*))
+(set-logical-host-for-pathname "UFFI" *load-truename*)
 
 ;;; UFFI system definition