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