From 300c6a76b34517e5d78f53ac828d2d3372d5e7bf Mon Sep 17 00:00:00 2001
From: Kevin Ryde <user42@zip.com.au>
Date: Mon, 5 May 2003 23:04:02 +0000
Subject: [PATCH] (logcount): New tests, exercising some negatives.

---
 test-suite/tests/numbers.test | 13 +++++++++++++
 1 file changed, 13 insertions(+)

diff --git a/test-suite/tests/numbers.test b/test-suite/tests/numbers.test
index b90eab208..3dfa51eee 100644
--- a/test-suite/tests/numbers.test
+++ b/test-suite/tests/numbers.test
@@ -1745,3 +1745,16 @@
 ;;;
 ;;; inexact->exact
 ;;;
+
+;;;
+;;; logcount
+;;;
+
+(with-test-prefix "logcount"
+  
+  (with-test-prefix "-2^i, meaning ...11100..00"
+    (do ((n -1 (ash n 1))
+	 (i 0  (1+ i)))
+	((> i 256))
+      (pass-if n
+	(= i (logcount n))))))