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)