-;; unchanged from main primitives.lisp
-(defun make-lisp-name (name)
- (let ((converted (substitute #\- #\_ name)))
- (intern
- #+uffi-case-sensitive converted
- #+(and (not uffi-lowercase-reader) (not uffi-case-sensitive)) (string-upcase converted)
- #+(and uffi-lowercase-reader (not uffi-case-sensitive)) (string-downcase converted))))
-