(require 'asdf)

(in-package :cl-user)

(defun register-all-asdf-sysdefs (directory) 
  "this would be easier if directory **/ worked"
  (loop with q = (system:list-directory directory) 
     while q 
     for top =  (pop q)
     if (and (null (pathname-name top)) (not (equal (car (last (pathname-directory top))) ".webcache")))
       do (setq q (append q (register-all-asdf-sysdefs top)))
     if (equal (pathname-type top) "asd")
     do (pushnew (namestring directory)  asdf::*central-registry* :test 'equal)))

(register-all-asdf-sysdefs ".")

(setf (logical-pathname-translations "lsw")
      `(("**;*.*" ,(make-pathname :directory (append (pathname-directory *load-pathname*)
						     '(:wild-inferiors))
				  :name :wild
				  :type :wild))))

(defparameter *pellet-dir* (namestring (truename "./extlib")))

(defvar *lsw-configuration* nil)

(setf (getf *lsw-configuration* :web-cache) 
      (merge-pathnames 
       (make-pathname :directory
		      '(:relative ".webcache")) (truename ".")))

(asdf::oos 'asdf::load-op 'jss)
(asdf::oos 'asdf::load-op 'patches)