[armedbear-cvs] r11990 - trunk/abcl/src/org/armedbear/lisp

[Alessio Stalla]

Author: astalla
Date: Tue Jun  2 05:52:53 2009
New Revision: 11990

Log:
Fixed class name generation from file names: spaces are now converted to
underscores.


Modified:
   trunk/abcl/src/org/armedbear/lisp/jvm.lisp

Modified: trunk/abcl/src/org/armedbear/lisp/jvm.lisp
==============================================================================
--- trunk/abcl/src/org/armedbear/lisp/jvm.lisp	(original)
+++ trunk/abcl/src/org/armedbear/lisp/jvm.lisp	Tue Jun  2 05:52:53 2009
@@ -112,7 +112,8 @@
     (declare (type string name))
     (dotimes (i (length name))
       (declare (type fixnum i))
-      (when (char= (char name i) #\-)
+      (when (or (char= (char name i) #\-)
+		(char= (char name i) #\Space))
         (setf (char name i) #\_)))
     (concatenate 'string "org/armedbear/lisp/" name)))