From 2d896b307ef74c8dae0db650ad5a90fd0c068e34 Mon Sep 17 00:00:00 2001 From: wlott <wlott> Date: Sat, 7 Mar 1992 13:32:25 +0000 Subject: [PATCH] Added defns for {TARGET-,NATIVE-,}FEATUREP. --- compiler/backend.lisp | 26 +++++++++++++++++++++++++- 1 file changed, 25 insertions(+), 1 deletion(-) diff --git a/compiler/backend.lisp b/compiler/backend.lisp index 18ae65d27..1f2b2d87f 100644 --- a/compiler/backend.lisp +++ b/compiler/backend.lisp @@ -7,7 +7,7 @@ ;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/backend.lisp,v 1.14 1991/11/15 15:27:56 ram Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/backend.lisp,v 1.15 1992/03/07 13:32:25 wlott Exp $") ;;; ;;; ********************************************************************** ;;; @@ -215,3 +215,27 @@ args))) vm-support-routines)))) (frob)) + + + +;;;; Other utility functions for accessing the backend. + +(export '(target-featurep backend-featurep native-featurep)) + +(defun target-featurep (feature) + "Same as EXT:FEATUREP, except use the features found in *TARGET-BACKEND*." + (let ((*features* (or (backend-features *target-backend*) + *features*))) + (featurep feature))) + +(defun backend-featurep (feature) + "Same as EXT:FEATUREP, except use the features found in *BACKEND*." + (let ((*features* (or (backend-features *target-backend*) + *features*))) + (featurep feature))) + +(defun native-featurep (feature) + "Same as EXT:FEATUREP, except use the features found in *NATIVE-BACKEND*." + (let ((*features* (or (backend-features *native-backend*) + *features*))) + (featurep feature))) -- GitLab