;;;; -*- coding: utf-8; mode: lisp -*-
;;;; Copyright 2007-2009, Matthias Andreas Benkard.

;;;------------------------------------------------------------------------
;;; This file is part of The Mulkblog Project.
;;;
;;; The Mulkblog Project is free software.  You can redistribute it and/or
;;; modify it under the terms of the Affero General Public License as
;;; published by Affero, Inc.; either version 1 of the License, or
;;; (at your option) any later version.
;;;
;;; The Mulkblog Project is distributed in the hope that it will be
;;; useful, but WITHOUT ANY WARRANTY; without even the implied warranty
;;; of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
;;; Affero General Public License for more details.
;;;
;;; You should have received a copy of the Affero General Public
;;; License in the COPYING file that comes with The Mulkblog Project; if
;;; not, write to Affero, Inc., 510 Third Street, Suite 225, San
;;; Francisco, CA 94107 USA.
;;;------------------------------------------------------------------------

(defpackage #:mulk.journal
  (:nicknames #:journal)
  (:use #:cl #:fad #:iterate #:markdown #:yaclml #:http #:alexandria
        #:xml-emitter #:split-sequence #:clsql #:drakma #:s-xml-rpc)
  (:shadow #:copy-file #:copy-stream #:format-date))

(defpackage #:mulk.journal.xml-rpc
  (:nicknames #:journal-xml-rpc)
  ;; Do not :USE anything here, not even #:COMMON-LISP!
  (:use)
  (:import-from #:s-xml-rpc-exports #:|system.getCapabilities| #:|system.listMethods| #:|system.methodHelp| #:|system.methodSignature| #:|system.multicall|))