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)))