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)))