[bknr-cvs] ksprotte changed trunk/projects/bos/test/allocation.lisp - bknr-cvs@common-lisp.net - mailman3.common-lisp.net

23 Jul 2008

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)))))
+

    