[mcclim-cvs] CVS mcclim

[tmoore]

Update of /project/mcclim/cvsroot/mcclim
In directory common-lisp:/tmp/cvs-serv15840

Modified Files:
	frames.lisp 
Log Message:
Put (declare (ignorable frame-class)) in the right function

--- /project/mcclim/cvsroot/mcclim/frames.lisp	2006/01/28 00:38:04	1.111
+++ /project/mcclim/cvsroot/mcclim/frames.lisp	2006/01/28 00:47:18	1.112
@@ -946,7 +946,6 @@
   (with-keywords-removed (options (:pretty-name :frame-manager :enable :state
 				   :left :top :right :bottom :width :height
 				   :save-under :frame-class))
-    (declare (ignorable frame-class))
     (let ((frame (apply #'make-instance frame-class
 			:name frame-name
 			:pretty-name pretty-name
@@ -973,6 +972,7 @@
 			       (own-process *multiprocessing-p*) port
 			       frame-manager frame-class
 			       &allow-other-keys)
+  (declare (ignorable frame-class))
   (let ((frame (unless (eq create :force)
 		 (block
 		     found-frame