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