1.0.5.42: fix (setf aref) on single-float vectors

[sbcl.git] / src / compiler / generic / genesis.lisp

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))