projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
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 #\+
(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))
(defun c-symbol-name (symbol &optional strip)
(c-name (symbol-name symbol) strip))