X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=tests%2Fhash.impure.lisp;fp=tests%2Fhash.impure.lisp;h=c5c9786502195d3ba62b577eb4494fa2e9cf8ee7;hb=62e8cf70b09b73b8a94c303c28d4f4721135bae9;hp=84723e07e1ceaa168ce954763b00734159e16d80;hpb=71d17114e902d5452affc34bf7e7a4cc1bfdfca4;p=sbcl.git

diff --git a/tests/hash.impure.lisp b/tests/hash.impure.lisp
index 84723e0..c5c9786 100644
--- a/tests/hash.impure.lisp
+++ b/tests/hash.impure.lisp
@@ -268,6 +268,10 @@
 
 (defvar *cons-here*)
 
+(declaim (notinline args))
+(defun take (&rest args)
+  (declare (ignore args)))
+
 (defmacro alloc (&body body)
   "Execute BODY and try to reduce the chance of leaking a conservative root."
   #-sb-thread
@@ -288,9 +292,6 @@
        (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)))