[bknr-cvs] ksprotte changed trunk/projects/bos/test/allocation.lisp

[BKNR Commits]

Revision: 3573
Author: ksprotte
URL: http://bknr.net/trac/changeset/3573

avoid compiler warning in test allocation.disconnected-m2s.1

U   trunk/projects/bos/test/allocation.lisp

Modified: trunk/projects/bos/test/allocation.lisp
===================================================================
--- trunk/projects/bos/test/allocation.lisp	2008-07-23 09:28:59 UTC (rev 3572)
+++ trunk/projects/bos/test/allocation.lisp	2008-07-23 09:34:27 UTC (rev 3573)
@@ -224,10 +224,12 @@
                                         (7202 . 5214) (7204 . 5205) (7195 . 5197))))
           (sponsor (make-sponsor :login "test-sponsor"))
           (m2-counts '(12 43 29 3)))
+      (declare (ignore area))
       (dolist (m2-count m2-counts)
         (let ((contract (make-contract sponsor m2-count)))
           (print (list 'make-contract-returned contract))))
       ;; This following check reported:
       ;; WARNING: #<CONTRACT ID: 32131, unpaid> has m2s that are not
       ;; connected
-      (is (bos.m2::consistent-p)))))
\ No newline at end of file
+      (is (bos.m2::consistent-p)))))
+