blob: ff4594c523135c3f048d97b2bcd2b843bcbb3dd0 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
|
;;;; -*- 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|))
|
