#!/usr/bin/sbcl --script

 #+sbcl (load #p"~/.sbclrc")
 #+ecl (load #p"~/.eclrc")
 
 (defun get-project-name ()
   #+sbcl (cadr sb-ext:*posix-argv*)
   #+ecl (car (last si:*command-args*)))

 
 (eval-when (:compile-toplevel :load-toplevel :execute)
   (ql:quickload :fwoar.lisputils)

   ;(ql:quickload :swank-client)

   (ql:quickload :quickproject))
 
 (defparameter *host* "localhost")
 (defparameter *port* 4005)

 (defparameter *project-name* (get-project-name))

 
 (defparameter *out* 
   (fw.lu:let-each (:be *)

     *project-name*

     (uiop:ensure-directory-pathname *)
     (merge-pathnames *)))
 
 (quickproject:make-project *out*
                            :depends-on '(:fwoar.lisputils
                                           :alexandria
                                           :serapeum))
 

 ;(swank-client:with-slime-connection (conn *host* *port*)
 ;  (swank-client:slime-eval
 ;    `(progn
 ;       (push ,(car asdf:*central-registry*) asdf:*central-registry*)
 ;       (ql:quickload ,*project-name*))
 ;    conn))

 
 ; vim: set ft=lisp: