1.0.4.104: don't mutate constant strings in genesis

         * CLisp rightfully complains about this when used as a build host

diff --git a/src/compiler/generic/genesis.lisp b/src/compiler/generic/genesis.lisp
index 523f20c..730a9c8 100644 (file)
--- a/src/compiler/generic/genesis.lisp
+++ b/src/compiler/generic/genesis.lisp
@@ -2613,9 +2613,9 @@ core and return a descriptor to it."
 
 (defun c-name (string &optional strip)
   (delete #\+
-          (nsubstitute-if #\_ (lambda (c) (member c '(#\- #\/ #\%)))
-                          (remove-if (lambda (c) (position c strip))
-                                     string))))
+          (substitute-if #\_ (lambda (c) (member c '(#\- #\/ #\%)))
+                         (remove-if (lambda (c) (position c strip))
+                                    string))))
 
 (defun c-symbol-name (symbol &optional strip)
   (c-name (symbol-name symbol) strip))

diff --git a/version.lisp-expr b/version.lisp-expr
index 453b3be..4bca272 100644 (file)
--- a/version.lisp-expr
+++ b/version.lisp-expr
@@ -17,4 +17,4 @@
 ;;; checkins which aren't released. (And occasionally for internal
 ;;; versions, especially for internal versions off the main CVS
 ;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".)
-"1.0.4.103"
+"1.0.4.104"