[mcclim-devel] misc warning fixes

Bruno Haible bruno at clisp.org
Sat Dec 18 14:18:53 UTC 2004


CLISP also gives some warning for unused variables and parameters.
Here I fixed the first three warnings, but there are many more of this kind.

diff -r -c3 mcclim.orig/Backends/PostScript/font.lisp mcclim/Backends/PostScript/font.lisp
*** mcclim.orig/Backends/PostScript/font.lisp	2004-12-03 12:42:43.000000000 +0100
--- mcclim/Backends/PostScript/font.lisp	2004-12-18 02:14:41.000000000 +0100
***************
*** 66,72 ****
    (unless end (setq end (length string)))
    (let* ((font-info (or (gethash font-name *font-metrics*)
                          (error "Unknown font ~S." font-name)))
-          (char-names (font-info-char-names font-info))
           (char-metrics (font-info-char-infos font-info))
           (scale (/ size 1000))
           (width 0) (upper-width 0)
--- 66,71 ----
diff -r -c3 mcclim.orig/Doc/manual.tex mcclim/Doc/manual.tex
*** mcclim.orig/Doc/manual.tex	2004-12-13 13:18:06.000000000 +0100
--- mcclim/Doc/manual.tex	2004-12-18 01:29:16.000000000 +0100
***************
*** 326,332 ****
  contains McCLIM.  If you use CMUCL or SBCL, you either need a
  \texttt{core} file that already has McCLIM in it, or else, you have to
  load the McCLIM compiled files that make up the McCLIM distribution.
! The fist solution is recommended so as to avoid having to load the
  McCLIM files each time you start your CLIM application. 
  
  To execute the application, load the file containing your code
--- 326,332 ----
  contains McCLIM.  If you use CMUCL or SBCL, you either need a
  \texttt{core} file that already has McCLIM in it, or else, you have to
  load the McCLIM compiled files that make up the McCLIM distribution.
! The first solution is recommended so as to avoid having to load the
  McCLIM files each time you start your CLIM application. 
  
  To execute the application, load the file containing your code
diff -r -c3 mcclim.orig/input.lisp mcclim/input.lisp
*** mcclim.orig/input.lisp	2004-10-31 02:46:31.000000000 +0100
--- mcclim/input.lisp	2004-12-18 01:51:54.000000000 +0100
***************
*** 533,539 ****
    (:documentation "Returns the number of pixels respresenting a 'line', used
  to computed distance to scroll in response to mouse wheel events."))
  
! (defmethod scroll-quantum (pane) 10)
  
  (defmethod dispatch-event :around ((sheet mouse-wheel-scroll-mixin)
                                     (event pointer-button-press-event))
--- 533,541 ----
    (:documentation "Returns the number of pixels respresenting a 'line', used
  to computed distance to scroll in response to mouse wheel events."))
  
! (defmethod scroll-quantum (pane)
!   (declare (ignore pane))
!   10)
  
  (defmethod dispatch-event :around ((sheet mouse-wheel-scroll-mixin)
                                     (event pointer-button-press-event))
diff -r -c3 mcclim.orig/presentation-defs.lisp mcclim/presentation-defs.lisp
*** mcclim.orig/presentation-defs.lisp	2004-12-05 20:37:52.000000000 +0100
--- mcclim/presentation-defs.lisp	2004-12-18 02:19:26.000000000 +0100
***************
*** 468,474 ****
  
  (define-default-presentation-method presentation-type-history-for-stream
      (type stream)
!   (declare (ignore stream))
    nil)
  
  ;;; method for clim-stream-pane in panes.lisp
--- 468,474 ----
  
  (define-default-presentation-method presentation-type-history-for-stream
      (type stream)
!   (declare (ignore type stream))
    nil)
  
  ;;; method for clim-stream-pane in panes.lisp
diff -r -c3 mcclim.orig/text-selection.lisp mcclim/text-selection.lisp
*** mcclim.orig/text-selection.lisp	2004-12-07 05:49:51.000000000 +0100
--- mcclim/text-selection.lisp	2004-12-18 02:13:14.000000000 +0100
***************
*** 166,171 ****
--- 166,172 ----
               (with-sheet-medium (medium pane)
                 (let ((R (region-difference region marked-region)))
                   (with-drawing-options (medium :clipping-region R)
+                    (declare (ignore medium))
                     (call-next-method pane R))))
               (with-sheet-medium (medium pane)
                 (let ((R (region-intersection region marked-region)))




More information about the mcclim-devel mailing list