/[cmucl]/src/code/irrat.lisp
ViewVC logotype

Diff of /src/code/irrat.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.8 by ram, Wed Sep 4 14:26:37 1991 UTC revision 1.9 by ram, Fri Oct 25 20:02:07 1991 UTC
# Line 11  Line 11 
11  ;;;  ;;;
12  ;;; **********************************************************************  ;;; **********************************************************************
13  ;;;  ;;;
 ;;; $Header$  
 ;;;  
14  ;;; This file contains all the irrational functions.  Actually, most of the  ;;; This file contains all the irrational functions.  Actually, most of the
15  ;;; work is done by calling out to C...  ;;; work is done by calling out to C...
16  ;;;  ;;;
# Line 155  Line 153 
153             (intexp base power))             (intexp base power))
154            (((foreach single-float double-float) rational)            (((foreach single-float double-float) rational)
155             (real-expt base power '(dispatch-type base)))             (real-expt base power '(dispatch-type base)))
156            (((foreach fixnum (or bignum ratio))            (((foreach fixnum (or bignum ratio) single-float)
157              (foreach ratio single-float))              (foreach ratio single-float))
158             (real-expt base power 'single-float))             (real-expt base power 'single-float))
159            (((foreach fixnum (or bignum ratio) single-float double-float)            (((foreach fixnum (or bignum ratio) single-float double-float)

Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9

  ViewVC Help
Powered by ViewVC 1.1.5