Index: axis.lisp =================================================================== RCS file: /project/mcclim/cvsroot/mcclim/Apps/Scigraph/scigraph/axis.lisp,v retrieving revision 1.1 diff -u -r1.1 axis.lisp --- axis.lisp 31 Oct 2003 11:35:37 -0000 1.1 +++ axis.lisp 16 Mar 2006 06:59:10 -0000 @@ -158,8 +158,8 @@ (macrolet ((push-digits (number length string) `(dotimes (.i. ,length) - (ignore .i.) - (vector-push-extend (digit-char (values (floor ,number))) ,string extension) + (declare (ignore .i.)) + (vector-push-extend (digit-char (values (floor ,number))) ,string extension) (setf ,number (mod (* 10.0 ,number) 10.0))))) (push-digits number ilength string) ; Integer part. (setq flength (- max-digits ilength)) ; Fractional part. Index: basic-graph.lisp =================================================================== RCS file: /project/mcclim/cvsroot/mcclim/Apps/Scigraph/scigraph/basic-graph.lisp,v retrieving revision 1.2 diff -u -r1.2 basic-graph.lisp --- basic-graph.lisp 6 Aug 2004 13:19:40 -0000 1.2 +++ basic-graph.lisp 16 Mar 2006 06:59:10 -0000 @@ -557,6 +557,7 @@ (defmethod graph-with-clipping ((self basic-graph) STREAM inside-p continuation) ;; Internal to WITH-CLIPPING-TO-GRAPH macro. + #-(or sbcl cmu) (declare (downward-funarg continuation)) (multiple-value-bind (le re be te) (if inside-p (screen-inside self STREAM) (screen-outside self STREAM)) Index: draw.lisp =================================================================== RCS file: /project/mcclim/cvsroot/mcclim/Apps/Scigraph/scigraph/draw.lisp,v retrieving revision 1.2 diff -u -r1.2 draw.lisp --- draw.lisp 6 Aug 2004 13:19:40 -0000 1.2 +++ draw.lisp 16 Mar 2006 06:59:12 -0000 @@ -320,7 +320,7 @@ (defconstant *DASH-PATTERN-SIZE* 64 "Length of dashed pattern in pixels.") (defconstant *DASH-STEP-SIZE* (/ *dash-pattern-size* 8)) -(defconstant *DASH-PATTERNS* +(defvar *DASH-PATTERNS* #2A((8 7 6 5 4 3 2 1) (7 6 5 4 3 2 1 -1) (5 4 3 2 1 -1 1 -1) @@ -331,7 +331,7 @@ (1 -1 1 -1 1 -1 1 -1)) "Dashed line patterns. -1 -> lift pen.") -(defconstant *dash-pattern-alist* +(defvar *dash-pattern-alist* '(("----------------" :value 0) ("------- ------- " :value 1) ("----- - ----- - " :value 2) Index: graph-data.lisp =================================================================== RCS file: /project/mcclim/cvsroot/mcclim/Apps/Scigraph/scigraph/graph-data.lisp,v retrieving revision 1.1 diff -u -r1.1 graph-data.lisp --- graph-data.lisp 31 Oct 2003 11:35:38 -0000 1.1 +++ graph-data.lisp 16 Mar 2006 06:59:14 -0000 @@ -94,11 +94,13 @@ (defmethod map-data ((dataset t) function (data sequence)) "Map FUNCTION over each datum." + #-(or sbcl cmu) (declare (downward-funarg function)) (map nil function data)) (defmethod map-data-xy ((dataset ESSENTIAL-GRAPH-DATA-MAP-MIXIN) function data) "Map function over each x y pair." + #-(or sbcl cmu) (declare (downward-funarg function)) (declare (compiled-function function)) (map-data dataset @@ -649,7 +651,7 @@ (last-in nil) (last-u NIL) (last-v NIL)) - (declare (fixnum last-u last-v thickness)) + (declare (fixnum thickness)) (if (< bottom top) (psetq top bottom bottom top)) (if (zerop line-style) (let ((displayer (compute-line-displayer self))) @@ -1115,7 +1117,7 @@ (unless *repainting-dataset* (with-new-output-record (stream 'dataset-record-element record :dataset dataset :graph graph) - (ignore record) + (declare (ignore record)) :done))) (defclass presentable-mixin Index: mouse.lisp =================================================================== RCS file: /project/mcclim/cvsroot/mcclim/Apps/Scigraph/scigraph/mouse.lisp,v retrieving revision 1.6 diff -u -r1.6 mouse.lisp --- mouse.lisp 11 Jan 2005 12:45:35 -0000 1.6 +++ mouse.lisp 16 Mar 2006 06:59:15 -0000 @@ -90,8 +90,7 @@ ;; In 0.9, we can take advantage of one of the BBN clim extensions. (notify-user frame string))) (:clim-1.0 - (progn - (ignore stream) + (locally (declare (ignore stream)) (let ((stream clim::*pointer-documentation-output*) #+genera (documentation-window (clim::mouse-documentation-window stream))) #+genera @@ -102,16 +101,14 @@ (window-clear stream) (format stream string))))) ((and :clim-2 (not :mcclim)) - (progn - (ignore stream) + (locally (declare (ignore stream)) (clim:frame-manager-display-pointer-documentation-string (frame-manager *application-frame*) *application-frame* clim:*pointer-documentation-output* string))) (:mcclim - (progn - (ignore stream) + (locally (declare (ignore stream)) (clim-extensions:frame-display-pointer-documentation-string *application-frame* clim:*pointer-documentation-output* string))) ((not :clim) nil))) Index: package.lisp =================================================================== RCS file: /project/mcclim/cvsroot/mcclim/Apps/Scigraph/scigraph/package.lisp,v retrieving revision 1.3 diff -u -r1.3 package.lisp --- package.lisp 28 Dec 2004 11:45:30 -0000 1.3 +++ package.lisp 16 Mar 2006 06:59:16 -0000 @@ -27,22 +27,25 @@ (in-package #-ansi-cl :user #+ansi-cl :common-lisp-user) -(eval-when (compile load eval) - (defpackage TOOL - #+MCL (:shadow copy) - (:use dwim-lisp))) - -(eval-when (compile load eval) - (defpackage STATISTICS - (:nicknames stat st) - (:use dwim-lisp))) - -(eval-when (compile load eval) - (defpackage GRAPH - #-allegro (:nicknames gr) ; "GR" names something already. - (:shadow variable) ; shouldn't be inherited but is - #+MCL (:shadow copy) - (:use dwim-lisp tool statistics))) +(defpackage TOOL + #+MCL (:shadow copy) + (:use dwim-lisp)) -(dwim:make-command-table :graph) +(defpackage STATISTICS + (:nicknames stat st) + (:use dwim-lisp)) + +(defpackage GRAPH + #-allegro (:nicknames gr) ; "GR" names something already. + (:shadow variable) ; shouldn't be inherited but is + #+MCL (:shadow copy) + (:use dwim-lisp tool statistics)) + +(in-package :graph) +(declaim (declaration downward-funarg + downward-function + array-register)) + + +(dwim:make-command-table :graph) Index: present.lisp =================================================================== RCS file: /project/mcclim/cvsroot/mcclim/Apps/Scigraph/scigraph/present.lisp,v retrieving revision 1.1 diff -u -r1.1 present.lisp --- present.lisp 31 Oct 2003 11:35:38 -0000 1.1 +++ present.lisp 16 Mar 2006 06:59:17 -0000 @@ -178,7 +178,7 @@ (dotimes (column columns) (let ((g nil)) (dotimes (row rows) - (ignore row) + (declare (ignore row)) (let ((temp (pop graphs))) (and temp (push temp g)))) (stream-set-cursor-position* Index: random.lisp =================================================================== RCS file: /project/mcclim/cvsroot/mcclim/Apps/Scigraph/scigraph/random.lisp,v retrieving revision 1.1 diff -u -r1.1 random.lisp --- random.lisp 31 Oct 2003 11:35:38 -0000 1.1 +++ random.lisp 16 Mar 2006 06:59:18 -0000 @@ -289,7 +289,7 @@ (setq .entry. (multiple-value-list ,@body))) (values-list .entry.)))))) - `(let ((.table. ,(make-hash-table :test #'equal))) + `(let ((.table. (load-time-value (make-hash-table :test #'equal)))) ,(if (cdr args) `(with-stack-list (.args. ,@args) ,body) `(let ((.args. ,(first args))) ,body))))) Index: scigraph-system.lisp =================================================================== RCS file: /project/mcclim/cvsroot/mcclim/Apps/Scigraph/scigraph/scigraph-system.lisp,v retrieving revision 1.1 diff -u -r1.1 scigraph-system.lisp --- scigraph-system.lisp 31 Oct 2003 11:35:38 -0000 1.1 +++ scigraph-system.lisp 16 Mar 2006 06:59:18 -0000 @@ -86,6 +86,3 @@ ("frame" :load-before-compile ("duplicate-methods")) ("export" :load-before-compile ("frame")) ("demo-frame" :load-before-compile ("export"))) - - -