[stamp-cvs] CVS stamp

[rstrandh]

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

Modified Files:
	clim-commands.lisp clim-interface.lisp clim-utilities.lisp 
	config.lisp filters.lisp message-composing.lisp 
	misc-utilities.lisp 
Log Message:
Added declaim with a debug level of 3 for better source tracking.



--- /project/stamp/cvsroot/stamp/clim-commands.lisp	2007/04/06 08:58:48	1.1
+++ /project/stamp/cvsroot/stamp/clim-commands.lisp	2007/12/05 12:18:52	1.2
@@ -1,6 +1,8 @@
 ;;; stamp commands
 (in-package :stamp-gui)
 
+(declaim (optimize (debug 3)))
+
 (clim:define-command-table stamp
     :inherit-from (esa:global-esa-table esa:keyboard-macro-table))
 
--- /project/stamp/cvsroot/stamp/clim-interface.lisp	2007/04/06 08:58:48	1.1
+++ /project/stamp/cvsroot/stamp/clim-interface.lisp	2007/12/05 12:18:52	1.2
@@ -1,6 +1,8 @@
 ;;; stamp-gui
 (in-package :stamp-gui)
 
+(declaim (optimize (debug 3)))
+
 ;;; stamp-gui parameters
 
 (defparameter *show-all-headers* nil)
--- /project/stamp/cvsroot/stamp/clim-utilities.lisp	2007/04/06 08:58:48	1.2
+++ /project/stamp/cvsroot/stamp/clim-utilities.lisp	2007/12/05 12:18:52	1.3
@@ -1,12 +1,11 @@
 ;;; clim-utilities
 
-
 (in-package :stamp-gui)
 
+(declaim (optimize (debug 3)))
 
 (defparameter *hilight-color* (clim:make-rgb-color 0.8 0.8 1.0))
 
-
 (defun redisplay-pane (name)
   (let ((pane (clim:get-frame-pane clim:*application-frame* name)))
     (clim:redisplay-frame-pane clim:*application-frame* pane :force-p t)))
--- /project/stamp/cvsroot/stamp/config.lisp	2007/04/06 08:58:48	1.1
+++ /project/stamp/cvsroot/stamp/config.lisp	2007/12/05 12:18:52	1.2
@@ -1,5 +1,7 @@
 (in-package :stamp-gui)
 
+(declaim (optimize (debug 3)))
+
 ;; Size of minibuffer's pane 
 ;; width
 (defparameter *width-mbp* 900)
--- /project/stamp/cvsroot/stamp/filters.lisp	2007/12/05 06:29:52	1.4
+++ /project/stamp/cvsroot/stamp/filters.lisp	2007/12/05 12:18:52	1.5
@@ -1,6 +1,8 @@
 
 (in-package :stamp-core)
 
+(declaim (optimize (debug 3)))
+
 ;;; List of the present messages in the file tags1.
 (defparameter *tags* '())
 
--- /project/stamp/cvsroot/stamp/message-composing.lisp	2007/04/06 08:58:48	1.1
+++ /project/stamp/cvsroot/stamp/message-composing.lisp	2007/12/05 12:18:52	1.2
@@ -2,6 +2,8 @@
 
 (in-package :stamp-gui)
 
+(declaim (optimize (debug 3)))
+
 (defparameter *outbox* '())
 (defparameter *mailboxes* '())
 (defparameter *address* '())
--- /project/stamp/cvsroot/stamp/misc-utilities.lisp	2007/04/06 08:58:50	1.2
+++ /project/stamp/cvsroot/stamp/misc-utilities.lisp	2007/12/05 12:18:52	1.3
@@ -2,6 +2,8 @@
 
 (in-package :stamp-core)
 
+(declaim (optimize (debug 3)))
+
 (defun format-datetime (time)
   (multiple-value-bind (second minute hour date month year day daylight-p zone)
       (decode-universal-time time)