[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