From 2c6a7ce1a0a98ebdcaa5782618da95edb53ecb68 Mon Sep 17 00:00:00 2001
From: ram <ram>
Date: Mon, 24 Oct 1994 23:07:21 +0000
Subject: [PATCH] Use backend-featurep, instead of reinventing it.

---
 compiler/generic/new-genesis.lisp | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/compiler/generic/new-genesis.lisp b/compiler/generic/new-genesis.lisp
index 1b1c3f021..dbe74df2c 100644
--- a/compiler/generic/new-genesis.lisp
+++ b/compiler/generic/new-genesis.lisp
@@ -6,7 +6,7 @@
 ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/generic/new-genesis.lisp,v 1.15 1994/10/24 22:51:53 ram Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/generic/new-genesis.lisp,v 1.16 1994/10/24 23:07:21 ram Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -1632,7 +1632,7 @@
 		    #.c:sgi-fasl-file-implementation)
 		   "")
 		  (#.c:sparc-fasl-file-implementation
-		   (if (member :svr4 (c:backend-features c:*backend*))
+		   (if (c:backend-featurep :svr4)
 		       "_"
 		       "")))
 		name)))
-- 
GitLab