From: Gabor Melis <mega@hotpop.com>
Date: Mon, 27 Nov 2006 08:54:16 +0000 (+0000)
Subject: 0.9.18.74:
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=25cc22e9123328519c848034e5447d4e79865f13;p=sbcl.git

0.9.18.74:
  Fix hash tests on non-threaded platforms (patch for Brian Mastenbrook)
---

diff --git a/tests/hash.impure.lisp b/tests/hash.impure.lisp
index 231939e..84723e0 100644
--- a/tests/hash.impure.lisp
+++ b/tests/hash.impure.lisp
@@ -288,6 +288,9 @@
        (sb-thread::wait-on-semaphore ,sem)
        (values-list ,values))))
 
+(defun take (&rest args)
+  (declare (ignore args)))
+
 (with-test (:name (:hash-table :weakness :eql :numbers))
   (flet ((random-number ()
            (random 1000)))
@@ -302,9 +305,6 @@
             (gc :full t)
             (assert (= n (hash-table-count ht)))))))
 
-(defun take (&rest args)
-  (declare (ignore args)))
-
 (defun add-removable-stuff (ht &key (n 100) (size 10))
   (flet ((unique-object ()
            (make-array size :fill-pointer 0)))
diff --git a/version.lisp-expr b/version.lisp-expr
index 2f4f989..1fd741f 100644
--- a/version.lisp-expr
+++ b/version.lisp-expr
@@ -17,4 +17,4 @@
 ;;; checkins which aren't released. (And occasionally for internal
 ;;; versions, especially for internal versions off the main CVS
 ;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".)
-"0.9.18.73"
+"0.9.18.74"