From d8136b5158e5c5ded3175c8cc95db32af4220361 Mon Sep 17 00:00:00 2001
From: gerd <gerd>
Date: Thu, 29 May 2003 13:25:45 +0000
Subject: [PATCH] 	* src/compiler/generic/new-genesis.lisp
 (emit-c-header-aux): 	Remove offending characters from feature names.

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

diff --git a/compiler/generic/new-genesis.lisp b/compiler/generic/new-genesis.lisp
index 422904725..0b4937767 100644
--- a/compiler/generic/new-genesis.lisp
+++ b/compiler/generic/new-genesis.lisp
@@ -4,7 +4,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/generic/new-genesis.lisp,v 1.55 2003/05/28 14:17:47 gerd Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/generic/new-genesis.lisp,v 1.56 2003/05/29 13:25:45 gerd Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -2309,7 +2309,10 @@
   (format t "~%/* Features when built. */~2%")
   (dolist (feature (c:backend-features c:*backend*))
     (format t "#define FEATURE_~a 1~%"
-	    (substitute #\_ #\- (symbol-name feature))))
+	    (nsubstitute #\_ #\-
+			 (remove-if #'(lambda (char)
+					(member char '(#\% #\* #\.)))
+				    (symbol-name feature)))))
   ;;
   (format t "~%#endif~%"))
 
-- 
GitLab