;;;; package.lisp
 
 (in-package :fwoar.sp-user)
 
 (defmacro define-package (name &body arguments)
   (let ((uses (cons :use
 		    (union '(:cl :alexandria :serapeum)
 			   (cdr (assoc :use arguments))))))
     `(eval-when (:compile-toplevel :load-toplevel :execute)
        (defpackage ,name
 	 ,uses
 	 ,@(remove :use arguments :key 'car)))))
 
 (define-package :stream-provider
   (:use :fw.lu)
   (:export
    #:get-stream-for
    #:stream-provider
    #:string-provider
    #:file-provider
    #:stream-key
    #:root
    #:streams
    #:with-storage-stream))