[stamp-cvs] CVS stamp

[rstrandh]

Update of /project/stamp/cvsroot/stamp
In directory clnet:/tmp/cvs-serv27880

Modified Files:
	stamp.lisp 
Log Message:
Removed set-user-address which wasn't used, and which used a 
special variable in the wrong package.

Added a declaim for high debug level.

Renamed compare-tags-files to compare-tag-files which sounds a bit better
in English.



--- /project/stamp/cvsroot/stamp/stamp.lisp	2007/12/05 06:29:52	1.15
+++ /project/stamp/cvsroot/stamp/stamp.lisp	2007/12/05 12:16:49	1.16
@@ -1,4 +1,4 @@
-;;; -*- Mode: Lisp; Package: COMMON-LISP-USER -*-
+;;; -*- Mode: Lisp; Package: stamp-core -*-
 
 ;;; Copyright (C) 2005-2006  Matthieu Villeneuve (matthieu.villeneuve at free.fr)
 ;;; Copyright (C) 2006  Robert Strandh (strandh at labri.fr)
@@ -25,8 +25,7 @@
 
 (in-package :stamp-core)
 
-(defun set-user-address (address)
-  (setf *address* address))
+(declaim (optimize (debug 3)))
 
 (defun set-smtp-parameters (host port username password)
   (setf *outbox* (make-instance 'mel:smtp-relay-folder
@@ -76,7 +75,7 @@
 	  (with-open-file (f1 tags2 :direction :output :if-does-not-exist :create :if-exists nil))
 	  (with-open-file (f2 tags1 :direction :output :if-does-not-exist :create :if-exists nil))))
 	    
-	(compare-tags-files tags1 tags2)))
+	(compare-tag-files tags1 tags2)))
 	
 
 ;;; Filters loading.