X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=src%2Ffunctions.lisp;h=1b6b32501f4d8bc044d6877b5233eaa8fc019bc9;hb=6f682746787779a2475eec53d7d46efab891b392;hp=7f0939d5afe2dd20fdcf7d7264096483a39e51fb;hpb=b3e638cc3c979d19656669edff857a7b6d2ce278;p=uffi.git

diff --git a/src/functions.lisp b/src/functions.lisp
index 7f0939d..1b6b325 100644
--- 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))))