Changeset 307

Timestamp:

Jan 17, 2004, 7:33:42 PM (21 years ago)

Author:

Gary Byers

Message:

(EXPT b e) is (COERCE 1 (TYPE-OF B)) if (ZEROP E).

File:

• trunk/ccl/level-0/l0-float.lisp (modified) (1 diff)

trunk/ccl/level-0/l0-float.lisp

@@ -603 +603 @@
 
 (defun expt (b e)
-  (cond ((integerp e)
+  (cond ((zerop e) (1+ (* b e)))
+        ((integerp e)
          (if (minusp e) (/ 1 (%integer-power b (- e))) (%integer-power b e)))
         ((zerop b)