[closure-cvs] CVS closure/src/gui

[thenriksen]

Update of /project/closure/cvsroot/closure/src/gui
In directory clnet:/tmp/cvs-serv24717/src/gui

Modified Files:
	dce-and-pce.lisp 
Log Message:
Fixed call to make-rgb-image-design.


--- /project/closure/cvsroot/closure/src/gui/dce-and-pce.lisp	2007/12/16 17:13:02	1.6
+++ /project/closure/cvsroot/closure/src/gui/dce-and-pce.lisp	2008/01/09 23:19:04	1.7
@@ -149,8 +149,8 @@
       (return (pce-design k)))))
 
 (defun really-make-design-from-aimage (medium aimage width height)
-  (climi::make-rgb-image-design medium
-				(imagelib::aimage-rgb-image
+  (declare (ignore medium))
+  (climi::make-rgb-image-design (imagelib::aimage-rgb-image
 				 (imagelib:scale-aimage aimage width height))))
 
 (defun reset-caches ()