/[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.58 by rtoy, Wed Nov 12 15:04:23 2008 UTC revision 1.59 by rtoy, Wed Mar 18 01:24:52 2009 UTC
# Line 486  Line 486 
486                                    (complex                                    (complex
487                                     (coerce (* pow (%cos y*pi)) rtype)                                     (coerce (* pow (%cos y*pi)) rtype)
488                                     (coerce (* pow (%sin y*pi)) rtype)))))))))))))                                     (coerce (* pow (%sin y*pi)) rtype)))))))))))))
       (declare (inline real-expt))  
489        ;; This is really messy and should be cleaned up.  The easiest        ;; This is really messy and should be cleaned up.  The easiest
490        ;; way to see if we're doing what we should is the macroexpand        ;; way to see if we're doing what we should is the macroexpand
491        ;; the number-dispatch and check each branch.        ;; the number-dispatch and check each branch.

Legend:
Removed from v.1.58  
changed lines
  Added in v.1.59

  ViewVC Help
Powered by ViewVC 1.1.5