pgloader/pgloader.lisp
2013-10-20 01:02:10 +02:00

24 lines
738 B
Common Lisp
Executable File

#! /usr/bin/sbcl --script
;;; load the necessary components then parse the command line
;;; and launch the work
#-quicklisp
(let ((quicklisp-init (merge-pathnames "quicklisp/setup.lisp"
(user-homedir-pathname))))
(when (probe-file quicklisp-init)
(load quicklisp-init)))
;; now is the time to load our Quicklisp project
(format t "Loading quicklisp and the pgloader project and its dependencies...")
(terpri)
(with-output-to-string (*standard-output*)
(pushnew :lparallel.with-vector-queue *features*)
(pushnew :lparallel.without-stealing-scheduler *features*)
(ql:quickload '(:pgloader)))
(in-package #:pgloader)
;;; actually call the main function, too
(main SB-EXT:*POSIX-ARGV*)