X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Fhash.impure.lisp;h=c5c9786502195d3ba62b577eb4494fa2e9cf8ee7;hb=2b0851c405b494143009f68e2bc7e91017a809d4;hp=231939ec3e9036b1bf78859b474b55a68c3bed7e;hpb=1479483c5f40fc470053da0fc5cd8e42fc77676e;p=sbcl.git

diff --git a/tests/hash.impure.lisp b/tests/hash.impure.lisp
index 231939e..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
@@ -302,9 +306,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)))