diff --git a/compiler/backend.lisp b/compiler/backend.lisp index 18ae65d27d52dd7e50552f3f17cdc70adc47ed33..1f2b2d87fe85313b2c891b36c6202ac98b205812 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)))