From 676e99eaf8991168cf33c24921b8d63b381fea20 Mon Sep 17 00:00:00 2001 From: Matthias Benkard Date: Mon, 6 Aug 2007 16:32:24 +0200 Subject: Put name conversion routines into their own file. darcs-hash:5634f866252465787558f61b05f4bc3006d48f37 --- Lisp/libobjcl.lisp | 15 --------------- 1 file changed, 15 deletions(-) (limited to 'Lisp/libobjcl.lisp') diff --git a/Lisp/libobjcl.lisp b/Lisp/libobjcl.lisp index e4b64f0..4f420b9 100644 --- a/Lisp/libobjcl.lisp +++ b/Lisp/libobjcl.lisp @@ -90,21 +90,6 @@ objects or classes, let alone send messages to them. (class obj-data)) -(defun symbol->objc-class-name (symbol) - (let ((components (split-sequence #\- (symbol-name symbol) - :remove-empty-subseqs t))) - (reduce #'(lambda (x y) (concatenate 'string x y)) - (mapcar #'(lambda (x) - (concatenate 'string - (string (char x 0)) - (string-downcase (subseq x 1)))) - (subseq components 1)) - :initial-value (concatenate 'string - (string (char (first components) 0)) - (string-upcase - (subseq (first components) 1)))))) - - (defun find-objc-class (class-name) "Retrieve an Objective C class by name. -- cgit v1.2.3