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