Update of /project/stamp/cvsroot/stamp In directory clnet:/tmp/cvs-serv12112
Modified Files: stamp.lisp Log Message: Avoid warnings from the compiler by using `frame' rather than clim:*application-frame* when appropriate, and by declaring unused variables to be ignored.
--- /project/stamp/cvsroot/stamp/stamp.lisp 2007/01/04 03:37:26 1.4 +++ /project/stamp/cvsroot/stamp/stamp.lisp 2007/01/04 03:55:16 1.5 @@ -105,11 +105,12 @@ (clim:with-text-face (pane :bold) (write-string "Folders" pane)) (terpri pane) - (loop with current-folder = (current-folder clim:*application-frame*) - for folder in (folders clim:*application-frame*) + (loop with current-folder = (current-folder frame) + for folder in (folders frame) do (when (eq folder current-folder) (multiple-value-bind (cursor-x cursor-y) (clim:stream-cursor-position pane) + (declare (ignore cursor-x)) (hilight-line pane cursor-y))) (write-string " " pane) ;;(clim-clx::draw-image pane *folder-image* 0 0) @@ -120,10 +121,9 @@ (defun display-headers (frame pane) (clim:with-text-family (pane :sans-serif) (let* ((messages (sort (copy-list (mel:messages - (cdr (current-folder - clim:*application-frame*)))) + (cdr (current-folder frame)))) #'< :key #'mel:date)) - (current-message (current-message clim:*application-frame*)) + (current-message (current-message frame)) (pane-region (clim:pane-viewport-region pane)) (pane-width (- (clim:bounding-rectangle-width pane-region) 20)) (index-width (clim:stream-string-width @@ -145,6 +145,7 @@ do (when (eq message current-message) (multiple-value-bind (cursor-x cursor-y) (clim:stream-cursor-position pane) + (declare (ignore cursor-x)) (hilight-line pane cursor-y))) (print-fixed-width-string pane (princ-to-string index) @@ -165,7 +166,7 @@ (terpri pane)))))
(defun display-message (frame pane) - (let ((message (current-message clim:*application-frame*))) + (let ((message (current-message frame))) (when message (clim:with-text-family (pane :sans-serif) (print-properties-as-table @@ -191,6 +192,7 @@ (loop for part in (mel:parts message) do (multiple-value-bind (super-type sub-type) (mel:content-type part) + (declare (ignore sub-type)) (if (eq super-type :text) (let ((length (mel:content-octets part))) (push (get-body-string part length) text-parts)) @@ -220,6 +222,7 @@ (defun get-attached-file-name (part) (multiple-value-bind (super-type sub-type properties) (mel:content-type part) + (declare (ignore super-type sub-type)) (second (member :name properties))))
(define-stamp-command (com-quit :name t) () @@ -323,6 +326,8 @@ (let ((filename (concatenate 'string (namestring (user-homedir-pathname)) (get-attached-file-name part)))) + ;; avoid warnings + (declare (ignore filename)) ))
;;; Message composing @@ -482,6 +487,7 @@ (defun hilight-line (pane y) (multiple-value-bind (pane-x1 pane-y1 pane-x2 pane-y2) (clim:bounding-rectangle* pane) + (declare (ignore pane-y1 pane-y2)) (let ((height (clim:text-style-height clim:*default-text-style* pane))) (clim:draw-rectangle* pane pane-x1 y pane-x2 (+ y height 1)