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@free.fr) ;;; Copyright (C) 2006 Robert Strandh (strandh@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.