Index: /trunk/ccl/lib/number-case-macro.lisp
===================================================================
--- /trunk/ccl/lib/number-case-macro.lisp	(revision 539)
+++ /trunk/ccl/lib/number-case-macro.lisp	(revision 540)
@@ -18,5 +18,4 @@
 (in-package :ccl)
 
-;(push (cons 'number-case 1) *fred-special-indent-alist*) do later
 
 
@@ -27,4 +26,5 @@
                            (double-float . ,ppc32::subtag-double-float) 
                            (short-float . ,ppc32::subtag-single-float)
+			   (single-float . ,ppc32::subtag-single-float)
                            (ratio . ,ppc32::subtag-ratio)(complex . ,ppc32::subtag-complex)))