;;; -*- Mode: Lisp; Package: System -*-
;;;
;;; **********************************************************************
;;; This code was written as part of the CMU Common Lisp project at
;;; Carnegie Mellon University, and has been placed in the public domain.
;;;

(in-package "CL-USER")


(setf (logical-pathname-translations "cl-systems")
         '((";**;*.*.*"  "/usr/share/common-lisp/systems/**/*.*")
	   ("**;*.*.*"  "/usr/share/common-lisp/systems/**/*.*")
	   (";*.*.*"  "/usr/share/common-lisp/systems/*.*")
	   ("*.*.*"  "/usr/share/common-lisp/systems/*.*")))


(setf (logical-pathname-translations "cl-library")
   '((";**;*.x86f.*" "/usr/lib/common-lisp/sbcl/**/*.x86f")
     ("**;*.x86f.*"  "/usr/lib/common-lisp/sbcl/**/*.x86f")
     (";**;*.fasl.*" "/usr/lib/common-lisp/sbcl/**/*.fasl")
     ("**;*.fasl.*"  "/usr/lib/common-lisp/sbcl/**/*.fasl")
     (";**;*.*.*"    "/usr/share/common-lisp/source/**/*.*")
     ("**;*.*.*"     "/usr/share/common-lisp/source/**/*.*")))

(ensure-directories-exist 
   (make-pathname 
     :directory
   (pathname-directory
     ;;(translate-logical-pathname "cl-library:;defsystem;defsystem.fasl"))))
     (translate-logical-pathname "cl-library:defsystem;defsystem.fasl"))))

(when (or (not (probe-file "cl-library:defsystem;defsystem.x86f"))
          (< (file-write-date "cl-library:defsystem;defsystem.x86f")
             (file-write-date "cl-library:defsystem;defsystem.lisp")))
   (compile-file "cl-library:defsystem;defsystem.lisp"
                 :output-file
		 "cl-library:defsystem;defsystem.x86f"
		 :print nil
                 :verbose nil))

(load "cl-library:defsystem;defsystem.x86f")

(setf make:*central-registry* "cl-systems:")