[bknr-cvs] r2215 - branches/trunk-reorg/bknr/datastore

bknr at bknr.net bknr at bknr.net
Thu Oct 4 22:31:22 UTC 2007


Author: hhubner
Date: 2007-10-04 18:31:22 -0400 (Thu, 04 Oct 2007)
New Revision: 2215

Removed:
   branches/trunk-reorg/bknr/datastore/init.lisp
Log:
cruft

Deleted: branches/trunk-reorg/bknr/datastore/init.lisp
===================================================================
--- branches/trunk-reorg/bknr/datastore/init.lisp	2007-10-04 22:26:55 UTC (rev 2214)
+++ branches/trunk-reorg/bknr/datastore/init.lisp	2007-10-04 22:31:22 UTC (rev 2215)
@@ -1,108 +0,0 @@
-(in-package :cl-user)
-
-;;;;;;;;;;;;;
-;; Tweak this
-(eval-when (:execute :compile-toplevel :load-toplevel)
-  #+allegro
-  (setf (logical-pathname-translations "bknr")
-	`(("**;*.*.*" "bknr/**/"))
-	(logical-pathname-translations "bknr-thirdparty")
-	`(("**;*.*.*" "thirdparty/**/"))
-	(logical-pathname-translations "eboy")
-	`(("**;*.*.*" "eboy/**/")))
-
-  #+cmu
-  (setf (logical-pathname-translations "bknr")
-	`(("**;*.*.*" "home:bknr-sputnik/bknr/**/"))
-	(logical-pathname-translations "bknr-thirdparty")
-	`(("**;*.*.*" "home:bknr-sputnik/thirdparty/**/"))
-	(logical-pathname-translations "eboy")
-	`(("**;*.*.*" "home:bknr-sputnik/eboy/**/")))
-
-  #+sbcl
-  (setf (logical-pathname-translations "bknr")
-      `(("**;*.*.*"
-         ,(merge-pathnames
-           (make-pathname :directory '(:relative "bknr-svn" "bknr"  :wild-inferiors)
-                          :name    :wild
-                          :type    :wild
-                          :version :wild)
-           (user-homedir-pathname))))
-       (logical-pathname-translations "bknr-thirdparty")
-      `(("**;*.*.*"
-         ,(merge-pathnames
-           (make-pathname :directory '(:relative "bknr-svn" "thirdparty" :wild-inferiors)
-                          :name    :wild
-                          :type    :wild
-                          :version :wild)
-           (user-homedir-pathname))))
-       (logical-pathname-translations "eboy")
-      `(("**;*.*.*"
-         ,(merge-pathnames
-           (make-pathname :directory '(:relative "bknr-svn" "eboy" :wild-inferiors)
-                          :name    :wild
-                          :type    :wild
-                          :version :wild)
-           (user-homedir-pathname))))))
-
-(eval-when (:execute :compile-toplevel :load-toplevel)
-  #-sbcl
-  (load #p"bknr-thirdparty:asdf;asdf")
-  #+sbcl
-  (require :asdf))
-
-(pushnew (translate-logical-pathname #p"bknr:src;") asdf:*central-registry* :test #'equal)
-(pushnew (translate-logical-pathname #p"eboy:src;") asdf:*central-registry* :test #'equal)
-
-(defparameter *patch-directory* "bknr:patches;")
-
-(defun load-patches (&optional (directory *patch-directory*))
-  (dolist (file (directory (merge-pathnames directory #p"patch-*.lisp")))
-    (warn "; Loading patch from file ~A~%" file)
-    (load file)))
-
-(defun fix-dpd ()
-  #+cmu
-  ;; Die Sache mit dem aktuellen Verzeichnis hat CMUCL noch immer nicht im
-  ;; Griff.  Nachbessern!
-  (setf *default-pathname-defaults*
-        (pathname
-         (concatenate 'string
-                      (nth-value 1 (unix:unix-current-directory))
-                      "/"))))
-
-(defun make-wild-pathname (type directory)
-  (merge-pathnames (make-pathname :type type
-				  :name :wild
-				  :directory '(:relative :wild-inferiors))
-		   directory))
-
-(defun setup-registry ()
-  (mapc #'(lambda (asd-pathname)
-	    (pushnew (make-pathname :directory (pathname-directory asd-pathname))
-		     asdf:*central-registry*
-		     :test #'equal))
-	(append (directory #p"bknr-thirdparty:**;*.asd")
-		(directory #p"bknr:**;*.asd"))))
-
-(defun clean-registry (&optional (dirs asdf:*central-registry*))
-  (let ((files (mapcan #'directory
-		       (mapcan #'(lambda (dir)
-				   (when (pathnamep dir)
-				     (list (make-wild-pathname "fas" dir)
-					   (make-wild-pathname "lib" dir)
-					   (make-wild-pathname "x86f" dir)
-					   (make-wild-pathname "fasl" dir))))
-			       dirs))))
-    (dolist (file files)
-      (when (probe-file file)
-	(format t "Deleting binary file ~S~%" file)
-	(delete-file file)))))
-
-#+cmu
-(load-patches)
-
-(setup-registry)
-(fix-dpd)
-
-(pushnew :cl-gd-gif *features*)




More information about the Bknr-cvs mailing list