;;;; -*- Mode: LISP; Syntax: ANSI-Common-Lisp; Base: 10 -*-
;;;; *************************************************************************
;;;; FILE IDENTIFICATION
;;;;
;;;; Name:     non-clc.lisp
;;;; Purpose:  Initialization for non-Common Lisp Controller Systems
;;;; Author:   Kevin M. Rosenberg
;;;; Created:  Nov 2002
;;;;
;;;; This file is free software and in the public domain. It can be used
;;;; by anybody for any purpose.
;;;;   
;;;; $Id: non-clc.lisp 9183 2004-05-01 02:58:28Z kevin $
;;;; *************************************************************************

(in-package #:lboot)

;;; Push directories of Lisp programs onto system definition registry
;;; since don't have CLC doing this for us

(defun prefixed-directory-p (dirname prefix-directories)
  (let ((dir (cons :absolute prefix-directories)))
    (let ((path (make-pathname
                 :directory (append dir 
                              (if (listp dirname)
                                  dirname
                                (list dirname)))
                 :host (pathname-host *my-lisp-path*)
                 :device (pathname-device *my-lisp-path*)
                 :name nil
                 :type nil
                 :version nil)))
      (when (probe-directory path)
        path))))

#+asdf
(map nil
     #'(lambda (d)
         (let ((path (prefixed-directory-p d '("home" "kevin" "debian" "src"))))
           (when path
             (push path asdf:*central-registry*))))
  '(("paserve" "acl-compat") ("paserve" "aserve" "htmlgen") 
    ("paserve" "aserve")
    "uffi" "clsql" "reversi" "cl-statsitcs" "clpdf" "dbsockets"
    "geodesics" "hyperobject" "infix" "inflate" "integrate"
    "kmrcl" "getopt" "lml" "lml2" "mcclim" "md5" "meta" "metering"
    "onlisp" "paip" "pipes" "png" "port" "postoffice" "rt"
    "ptester" "split-seq" "umlisp" "xptest" "cl-base64" "pubmed"
    "cl-modlisp" "wol" "puri" "xlunit" "telent-date"))

#+asdf
(let ((path (prefixed-directory-p '("usr" "share" "common-lisp" "systems") nil)))
  (push path asdf:*central-registry*))

#+mk-defsystem
(let ((path (prefixed-directory-p '("usr" "share" "common-lisp" "systems") nil)))
  (push path make:*central-registry*))