X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fgeneric%2Fgenesis.lisp;h=730a9c84b9e0011ea64fe6c5023807df9383f737;hb=5c41b6d95580938db33efd4640c2947b9e51e723;hp=523f20c409cead4c37169116bf1df1d11e52f0c7;hpb=722590dece877ac9c8caca81453a81efb47977cb;p=sbcl.git

diff --git a/src/compiler/generic/genesis.lisp b/src/compiler/generic/genesis.lisp
index 523f20c..730a9c8 100644
--- 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))