Substitute _all_ underscores with hyphens for Lisp names
Tue Sep 12 10:08:55 PDT 2006 Daniel Dickison (danieldickison@gmail.com)
* Substitute _all_ underscores with hyphens for Lisp names
diff -rN -u old-c2ffi/FFI-Generator.lisp new-c2ffi/FFI-Generator.lisp
--- old-c2ffi/FFI-Generator.lisp 2014-07-30 14:18:13.000000000 -0700
+++ new-c2ffi/FFI-Generator.lisp 2014-07-30 14:18:13.000000000 -0700
@@ -274,7 +274,7 @@
;;;;; Utility ;;;;;
(defun str->sym (str &optional (package *package*))
"Generates a Lisp name in the form of a symbol from a given C-style name by replacing underscores with dashes, uppercasing, then interning the symbol."
- (intern (string-upcase (string-replace (string str) "_" "-"))
+ (intern (string-upcase (string-replace (string str) "_" "-" :all t))
package))