X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fseqtran.lisp;h=8b0215ae7c1d05fd590b27584209fc8d209e793b;hb=e0697854ef9f4999c8585b64be1b282ce4725176;hp=f13cd2e5632216e07e2dec382dec708a9be71001;hpb=084168e1524a6493bc0f9d1697753d31239b158d;p=sbcl.git

diff --git a/src/compiler/seqtran.lisp b/src/compiler/seqtran.lisp
index f13cd2e..8b0215a 100644
--- a/src/compiler/seqtran.lisp
+++ b/src/compiler/seqtran.lisp
@@ -822,8 +822,7 @@
 	     `(deftransform ,name ((predicate sequence from-end start end key)
 				   (function list t t t function)
 				   *
-				   :policy (> speed space)
-				   :important t)
+				   :policy (> speed space))
 		"expand inline"
 		`(let ((index 0)
 		       (find nil)
@@ -869,8 +868,7 @@
 (deftransform %find-position ((item sequence from-end start end key test)
 			      (t list t t t t t)
 			      *
-			      :policy (> speed space)
-			      :important t)
+			      :policy (> speed space))
   "expand inline"
   '(%find-position-if (let ((test-fun (%coerce-callable-to-fun test)))
 			;; The order of arguments for asymmetric tests
@@ -963,8 +961,7 @@
 (deftransform %find-position-if ((predicate sequence from-end start end key)
 				 (function vector t t t function)
 				 *
-				 :policy (> speed space)
-				 :important t)
+				 :policy (> speed space))
   "expand inline"
   (check-inlineability-of-find-position-if sequence from-end)
   '(%find-position-if-vector-macro predicate sequence
@@ -973,8 +970,7 @@
 (deftransform %find-position-if-not ((predicate sequence from-end start end key)
 				     (function vector t t t function)
 				     *
-				     :policy (> speed space)
-				     :important t)
+				     :policy (> speed space))
   "expand inline"
   (check-inlineability-of-find-position-if sequence from-end)
   '(%find-position-if-not-vector-macro predicate sequence
@@ -983,8 +979,7 @@
 (deftransform %find-position ((item sequence from-end start end key test)
 			      (t vector t t t function function)
 			      *
-			      :policy (> speed space)
-			      :important t)
+			      :policy (> speed space))
   "expand inline"
   (check-inlineability-of-find-position-if sequence from-end)
   '(%find-position-vector-macro item sequence