From 8344b977062a5e9e2ac5a34d68adca1388f1e819 Mon Sep 17 00:00:00 2001 From: wlott <wlott> Date: Tue, 3 Mar 1992 12:18:31 +0000 Subject: [PATCH] Added defns for BACKEND-FEATUREP and TARGET-FEATUREP. --- tools/setup.lisp | 11 +++++++++++ 1 file changed, 11 insertions(+) diff --git a/tools/setup.lisp b/tools/setup.lisp index 577bbd4d6..0b4c830ba 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))) -- GitLab