diff --git a/tools/setup.lisp b/tools/setup.lisp
index 577bbd4d6f18d68c4754ba0b9d0252ec8f9640c0..0b4c830baaf03c7b1482404b4fb1cc76f948188f 100644
--- a/tools/setup.lisp
+++ b/tools/setup.lisp
@@ -261,3 +261,14 @@
 	    (when load
 	      (load name :verbose t)))))))))
 
+
+
+;;;; BACKEND-FEATUREP and TARGET-FEATUREP
+
+(defun target-featurep (feature)
+  (let ((*features* (c:backend-features c:*target-backend*)))
+    (lisp::featurep feature)))
+
+(defun backend-featurep (feature)
+  (let ((*features* (c:backend-features c:*backend*)))
+    (lisp::featurep feature)))