X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=set-cl-library.cl;fp=set-cl-library.cl;h=0000000000000000000000000000000000000000;hb=9f6b242d508ed11519a1e48f360bc59842e39112;hp=228080ce25db78b306174f51111d380f35a8abbf;hpb=2d7872d141e94112a6abb22b142efe4bfedffd9a;p=clsql.git

diff --git a/set-cl-library.cl b/set-cl-library.cl
deleted file mode 100644
index 228080c..0000000
--- a/set-cl-library.cl
+++ /dev/null
@@ -1,43 +0,0 @@
-;;;; -*- Mode: LISP; Syntax: ANSI-Common-Lisp; Base: 10 -*-
-;;;; *************************************************************************
-;;;; FILE IDENTIFICATION
-;;;;
-;;;; Name:          set-cl-library.cl
-;;;; Purpose:       Sets CL-LIBRARY logical host name if it does not exist
-;;;; Programmer:    Kevin M. Rosenberg
-;;;; Date Started:  May 2002
-;;;;
-;;;; This file, part of CLSQL, is Copyright (c) 2002 by Kevin M. Rosenberg
-;;;;
-;;;; CLSQL users are granted the rights to distribute and use this software
-;;;; as governed by the terms of the Lisp Lesser GNU Public License
-;;;; (http://opensource.franz.com/preamble.html), also known as the LLGPL.
-;;;; *************************************************************************
-
-;; Set logical pathname CL-LIBRARY to be directory above *load-truename*
-;; This mirrors the expectation of Common Lisp Controller's pathnames
-
-(handler-case
-    (logical-pathname-translations "cl-library")
-  (error ()
-	 (let* ((dir (pathname-directory *load-truename*))
-		(parent-dir (subseq dir 0 (1- (length dir)))))
-	   (load (make-pathname :name "set-logical" :type "cl"
-				:defaults *load-truename*))
-	   (set-logical-host-for-pathname 
-	    "cl-library" 
-	    (make-pathname :host (pathname-host *load-truename*)
-			   :device (pathname-device *load-truename*)
-			   :directory parent-dir))))
-  (:no-error (translation)
-	     ;; Make sure that cl-library points to this installation
-	     (let* ((dir (pathname-directory *load-truename*))
-		    (base-dir (car (last dir)))
-		    (logical-dir (translate-logical-pathname 
-				  (concatenate 'string
-					       "cl-library:" base-dir ";"))))
-	       (unless (equalp dir (pathname-directory logical-dir))
-		 (let ((*print-circle* nil))
-		   (error "cl-library:~A; directory ~S does not equal *load-truename*'s directory ~S"
-			  base-dir (cdr dir)
-			  (cdr (pathname-directory logical-dir))))))))