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*)