r9012: add make-pointer and pointer-address

[uffi.git] / src / functions.lisp

diff --git a/src/functions.lisp b/src/functions.lisp
index 7f0939d5afe2dd20fdcf7d7264096483a39e51fb..1b6b32501f4d8bc044d6877b5233eaa8fc019bc9 100644 (file)
--- a/src/functions.lisp
+++ b/src/functions.lisp
@@ -117,10 +117,5 @@
     ))
 
 
-(defun make-lisp-name (name)
-  (let ((converted (substitute #\- #\_ name)))
-     (intern 
-      #+case-sensitive converted
-      #-case-sensitive (string-upcase converted))))