? Apps/Scigraph/dwim/draw.fasl
? Apps/Scigraph/dwim/export.fasl
? Apps/Scigraph/dwim/extensions.fasl
? Apps/Scigraph/dwim/feature-case.fasl
? Apps/Scigraph/dwim/macros.fasl
? Apps/Scigraph/dwim/package.fasl
? Apps/Scigraph/dwim/present.fasl
? Apps/Scigraph/dwim/tv.fasl
? Apps/Scigraph/dwim/wholine.fasl
Index: Apps/Scigraph/dwim/extensions.lisp
===================================================================
RCS file: /project/mcclim/cvsroot/mcclim/Apps/Scigraph/dwim/extensions.lisp,v
retrieving revision 1.5
diff -u -r1.5 extensions.lisp
--- Apps/Scigraph/dwim/extensions.lisp	6 Aug 2004 13:19:40 -0000	1.5
+++ Apps/Scigraph/dwim/extensions.lisp	17 Mar 2006 14:20:15 -0000
@@ -31,6 +31,7 @@
 ;;; Lisp Extensions
 ;;;*****************
 
+#-(and)
 (unless (fboundp 'ignore)
   ;; Define IGNORE to be like our old friend from Genera.
   ;; This practice is frowned upon because IGNORE is in the
Index: Apps/Scigraph/dwim/package.lisp
===================================================================
RCS file: /project/mcclim/cvsroot/mcclim/Apps/Scigraph/dwim/package.lisp,v
retrieving revision 1.4
diff -u -r1.4 package.lisp
--- Apps/Scigraph/dwim/package.lisp	6 Aug 2004 13:19:40 -0000	1.4
+++ Apps/Scigraph/dwim/package.lisp	17 Mar 2006 14:20:15 -0000
@@ -87,6 +87,7 @@
 	       ;; March 1989, X3J13 votes to subsume downward-funarg & downward-function
 	       ;; by dynamic-extent.  Get rid of the next two eventually.  jpm.
 	       dwim::downward-funarg dwim::downward-function
+              #-ansi-cl
 	       dwim::dynamic-extent
 	       dwim::array-register)))
 
Index: Apps/Scigraph/dwim/present.lisp
===================================================================
RCS file: /project/mcclim/cvsroot/mcclim/Apps/Scigraph/dwim/present.lisp,v
retrieving revision 1.3
diff -u -r1.3 present.lisp
--- Apps/Scigraph/dwim/present.lisp	6 Aug 2004 13:19:40 -0000	1.3
+++ Apps/Scigraph/dwim/present.lisp	17 Mar 2006 14:20:15 -0000
@@ -527,9 +527,10 @@
 				    #+clim-0.9 nil
 				    #+clim-1.0 clim:*activation-characters*))
   (declare (ignore bchars))
+  (declare (ignorable achars))
   #FEATURE-CASE
   ((:clim-0.9 (clim::activation-character-p char))
-   (:clim-2 (ignore achars) (clim:activation-gesture-p char))
+   (:clim-2 (clim:activation-gesture-p char))
    ((or :clim-1.0 :clim-2 (not :clim))
     (and
      (if (consp char) (setq char (second char)) t)
@@ -548,9 +549,10 @@
 (defun accept-blip-p (char &optional (chars #-clim dw::*accept-blip-chars*
 					    #+clim-1.0 clim:*blip-characters*
 					    #+clim-0.9 nil))
+  (declare (ignorable chars))
   #FEATURE-CASE
   ((:clim-0.9 (clim::blip-character-p char))
-   (:clim-2 (ignore chars) (clim:delimiter-gesture-p char))
+   (:clim-2 (clim:delimiter-gesture-p char))
    ((or :clim-1.0 :clim-2 (not :clim))
     (loop for l in chars
 	thereis (and (characterp char) (member char l :test #'char-equal))))))
@@ -662,7 +664,7 @@
 	    #-clim (dw:accept 'tv:sheet :stream stream :prompt nil))
    :printer ((window stream)
 	     (let ((*print-readably* nil))
-	       (declare (special *print-readably*))
+	       #-ansi-cl (declare (special *print-readably*))
 	       #+clim (format stream "~A" window)
 	       #-clim (present window 'tv:sheet :stream stream)))
    :description "a window")
@@ -690,12 +692,13 @@
     (otherwise (present-to-string element))))
 
 (defun make-accept-values-choices (&key query-identifier sequence select-action)
+  (declare (ignorable sequence))
   #FEATURE-CASE
-  ((:clim-2 (ignore sequence)
+  ((:clim-2
 	      (clim-internals::make-accept-values-multiple-choices
 	       :query-identifier query-identifier
 	       :select-action select-action))
-   (:clim-1.0 (ignore sequence)
+   (:clim-1.0 
 	      (clim::make-accept-values-multiple-choices
 	       :query-identifier query-identifier
 	       :select-action select-action))
@@ -710,12 +713,13 @@
 
 (defun make-accept-values-choice (&key choices choice value documentation)
   #+clim (declare (ignore documentation))
+  (declare (ignorable choice))
   #FEATURE-CASE
-  ((:clim-2 (ignore choice)
+  ((:clim-2 
 	      (clim-internals::make-accept-values-multiple-choice
 	       :choices choices
 	       :value value))
-   (:clim-1.0 (ignore choice)
+   (:clim-1.0
 	      (clim::make-accept-values-multiple-choice
 	       :choices choices
 	       :value value))
@@ -871,7 +875,7 @@
       (accept 'string :stream stream :prompt nil :default nil)))
    (:clim-1.0
     (let ((clim::*disable-input-editor-echo* t))
-      (ignore clim::*disable-input-editor-echo*)
+      (declare (ignorable clim::*disable-input-editor-echo*))
       ;; This variable is defined in a patch file (echo-patch.lisp)
       ;; that came from Scott MacKay and has not been made a part of DWIM.
       ;; You must load it separately.
@@ -907,5 +911,5 @@
   :parser ((stream)
 	   (values (readline-no-echo stream) 'invisible-object))
   :printer ((object stream)
-	    (ignore object)
+            (declare (ignore object))
 	    (write-string "*" stream)))
Index: Apps/Scigraph/dwim/tv.lisp
===================================================================
RCS file: /project/mcclim/cvsroot/mcclim/Apps/Scigraph/dwim/tv.lisp,v
retrieving revision 1.7
diff -u -r1.7 tv.lisp
--- Apps/Scigraph/dwim/tv.lisp	6 Aug 2004 13:19:40 -0000	1.7
+++ Apps/Scigraph/dwim/tv.lisp	17 Mar 2006 14:20:15 -0000
@@ -363,7 +363,7 @@
    ((not :clim) (scl:send frame :superior))))
 
 (defun find-frame-manager (&key (if-exists :reuse))
-  (ignore if-exists)
+  (declare (ignorable if-exists))
   #FEATURE-CASE
   ((:clim-2 (clim:find-frame-manager))
    (:clim-1.0
@@ -384,10 +384,10 @@
 	  (tv:console-default-superior))))))
 
 (defun get-reusable-frame (manager type)
+  (declare (ignorable manager))
   #FEATURE-CASE
   (((not :clim)
     (let ((choices *deactivated-frames*))
-      (ignore manager)
       (dolist (item choices)
 	(when (and (eq (frame-manager item) manager)
 		   (typep (scl:send item :program) type))
@@ -401,7 +401,6 @@
    (:clim-1.0
     #-MCL
     (let ((choices *deactivated-frames*))
-      (ignore manager)
       (dolist (item choices)
 	(when (typep item type)
 	  (setq *deactivated-frames* (delete item *deactivated-frames*))
@@ -582,7 +581,6 @@
      :left left :top top :right (+ left width) :bottom (+ top height)))
    (:clim-2
     ;; what parent does this get?
-    #-mcclim (ignore parent)
     (let ((frame (clim:make-application-frame
 		  type
 		  :pretty-name title
Index: Apps/Scigraph/dwim/wholine.lisp
===================================================================
RCS file: /project/mcclim/cvsroot/mcclim/Apps/Scigraph/dwim/wholine.lisp,v
retrieving revision 1.1
diff -u -r1.1 wholine.lisp
--- Apps/Scigraph/dwim/wholine.lisp	31 Oct 2003 11:35:37 -0000	1.1
+++ Apps/Scigraph/dwim/wholine.lisp	17 Mar 2006 14:20:15 -0000
@@ -490,12 +490,12 @@
 
 #+(or clim-1.0 clim-2)
 (defmethod clim:read-frame-command :around ((frame t) &key stream)
-  (ignore stream)
+  (declare (ignore stream))
   (with-process-state (input-string) (call-next-method)))
 
 #+(or clim-1.0 clim-2)
 (defmethod clim:execute-frame-command :around ((frame t) command)
-  (ignore command)
+  (declare (ignore command))
   (with-process-state (run-string) (call-next-method)))
 
 #-clim
