[mcclim-cvs] CVS mcclim

[rstrandh]

Update of /project/mcclim/cvsroot/mcclim
In directory clnet:/tmp/cvs-serv4727

Modified Files:
	table-formatting.lisp 
Log Message:
Added IGNORABLE declaration.


--- /project/mcclim/cvsroot/mcclim/table-formatting.lisp	2006/03/10 21:58:13	1.39
+++ /project/mcclim/cvsroot/mcclim/table-formatting.lisp	2007/07/21 14:17:15	1.40
@@ -132,6 +132,7 @@
 				      (min-width 0) (min-height 0)
 				      (record-type ''standard-cell-output-record))
                            &body body)
+  (declare (ignorable align-x align-y))
   (setq stream (stream-designator-symbol stream '*standard-output*))
   (with-keywords-removed (more (:record-type :min-width :min-height))
     (with-gensyms (record)