Changeset 5676

Timestamp:

Jan 3, 2007, 2:27:56 AM (18 years ago)

Author:

Gary Byers

Message:

Small (mostly cosmetic) change to RATIONAL.

File:

• trunk/ccl/lib/numbers.lisp (modified) (1 diff)

trunk/ccl/lib/numbers.lisp

@@ -778 +778 @@
   completely accurate, giving a result that isn't as pretty."
   (if (floatp number)
-      (multiple-value-bind (s e sign) (integer-decode-float number)
-         (if (eq sign -1) (setq s (- s)))
-         (if (%iminusp e) (/ s (ash 1 (%i- 0 e))) (ash s e)))
-    (if (rationalp number) number
+    (multiple-value-bind (s e sign)
+        (number-case number
+          (short-float
+           (integer-decode-short-float number))
+          (double-float
+           (integer-decode-double-float number)))
+      (if (eq sign -1) (setq s (- s)))
+      (if (%iminusp e)
+        (/ s (ash 1 (%i- 0 e)))
+        (ash s e)))
+    (if (rationalp number)
+      number
       (report-bad-arg number 'real))))