Ignore:
Timestamp:
Oct 29, 2010, 3:53:56 PM (9 years ago)
Author:
rme
Message:

Merge trunk changes r14361 through r14380.

Location:
release/1.6/source
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • release/1.6/source

  • release/1.6/source/level-0/l0-float.lisp

    r14224 r14381  
    819819
    820820
     821(defun positive-realpart-p (n)
     822  (> (realpart n) 0))
    821823
    822824(defun expt (b e)
     
    826828         (if (minusp e) (/ 1 (%integer-power b (- e))) (%integer-power b e)))
    827829        ((zerop b)
    828          (if (plusp (realpart e)) b (report-bad-arg e '(number (0) *))))
     830         (if (plusp (realpart e)) b (report-bad-arg e '(satisfies positive-realpart-p))))
    829831        ((and (realp b) (plusp b) (realp e))
    830832         (if (or (typep b 'double-float)
Note: See TracChangeset for help on using the changeset viewer.