Changeset 11990

Timestamp:

06/02/09 09:52:53 (14 years ago)

Author:

astalla

Message:

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

File:

• trunk/abcl/src/org/armedbear/lisp/jvm.lisp (modified) (1 diff)

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

@@ -113 +113 @@
     (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)))