Changeset 3573

Timestamp:

07/23/08 11:34:27 (4 months ago)

Author:

ksprotte

Message:

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

Files:

• trunk/projects/bos/test/allocation.lisp (modified) (2 diffs)

trunk/projects/bos/test/allocation.lisp

@@ -225 +225 @@
-          (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)))
@@ -232 +233 @@
-      ;; connected
-      (is (bos.m2::consistent-p)))))
+