Changeset 540

Timestamp:

Feb 15, 2004, 8:17:32 AM (21 years ago)

Author:

Gary Byers

Message:

SINGLE-FLOAT, in *TYPE-TO-TYPECODE*.

File:

• trunk/ccl/lib/number-case-macro.lisp (modified) (2 diffs)

trunk/ccl/lib/number-case-macro.lisp

@@ -18 +18 @@
 (in-package :ccl)
 
-;(push (cons 'number-case 1) *fred-special-indent-alist*) do later
 
 
@@ -27 +26 @@
                            (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)))