From 82b4a9be2ee29cad24d9c39961f8dc295febbfca Mon Sep 17 00:00:00 2001
From: Russell Tyndall <Russ Tyndall russ@acceleration.net>
Date: Mon, 8 Sep 2008 10:58:11 -0400
Subject: [PATCH] removed dependency on cl-interpol and some other libraries
 that I was not directly using

---
 cl-mediawiki.asd | 2 +-
 src/edit.lisp    | 1 -
 src/query.lisp   | 3 +--
 3 files changed, 2 insertions(+), 4 deletions(-)

diff --git a/cl-mediawiki.asd b/cl-mediawiki.asd
index 52b521a..2419cbe 100644
--- a/cl-mediawiki.asd
+++ b/cl-mediawiki.asd
@@ -13,4 +13,4 @@
 			:components ((:file "packages")
 				     (:file "main")
 				     (:file "query" :depends-on ("packages" "main")))))
-  :depends-on (:cxml :iterate :flexi-streams :cl-interpol :drakma :cl-unification))
+  :depends-on (:cxml :drakma :cl-unification))
diff --git a/src/edit.lisp b/src/edit.lisp
index 1c43d3f..3bc1503 100644
--- a/src/edit.lisp
+++ b/src/edit.lisp
@@ -1,5 +1,4 @@
 (in-package :cl-mediawiki)
-(cl-interpol:enable-interpol-syntax)
 
 (defun check-edit-response (title xml)
   "Checks for the expected 'success' message
diff --git a/src/query.lisp b/src/query.lisp
index 097029d..8e64dbc 100644
--- a/src/query.lisp
+++ b/src/query.lisp
@@ -1,5 +1,4 @@
 (in-package :cl-mediawiki)
-(cl-interpol:enable-interpol-syntax)
 
 (defun get-page-content (title)
   (let ((parameters
@@ -81,7 +80,7 @@
 		(loop for token in tokens
 		      collecting
 		   (cons token
-			 (attribute-value #?"${token}token" alist)))
+			 (attribute-value (format nil "~atoken" token) alist)))
 		:timestamp (attribute-value "touched" alist))
 	       )))
       (bind-token-&-ts
-- 
2.11.4.GIT