[cl-soap-cvs] CVS update: cl-soap/test/test-google-adwords.lisp

[Sven Van Caekenberghe]

Update of /project/cl-soap/cvsroot/cl-soap/test
In directory common-lisp.net:/tmp/cvs-serv23484/test

Modified Files:
	test-google-adwords.lisp 
Log Message:
incorporated wsdl caching to main code

Date: Mon Sep 26 13:14:56 2005
Author: scaekenberghe

Index: cl-soap/test/test-google-adwords.lisp
diff -u cl-soap/test/test-google-adwords.lisp:1.8 cl-soap/test/test-google-adwords.lisp:1.9
--- cl-soap/test/test-google-adwords.lisp:1.8	Fri Sep 23 23:33:06 2005
+++ cl-soap/test/test-google-adwords.lisp	Mon Sep 26 13:14:56 2005
@@ -1,6 +1,6 @@
 ;;;; -*- mode: lisp -*-
 ;;;;
-;;;; $Id: test-google-adwords.lisp,v 1.8 2005/09/23 21:33:06 scaekenberghe Exp $
+;;;; $Id: test-google-adwords.lisp,v 1.9 2005/09/26 11:14:56 scaekenberghe Exp $
 ;;;;
 ;;;; Some test on the Google AdWords API (not publically available)
 ;;;;
@@ -58,14 +58,6 @@
 
 (defun parse-all-wsdl ()
   (mapcar #'parse-wsdl-url *google-adwords-api-wsdl-urls*))
-
-(defvar *wsdl-cache* (make-hash-table :test #'equal))
-
-(defun wsdl-cache-get (url)
-  (let ((cached (gethash url *wsdl-cache*)))
-    (if cached
-        cached
-      (setf (gethash url *wsdl-cache*) (parse-wsdl-url url)))))
 
 ;;; some test calls