/[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.55.6.2 by rtoy, Fri Dec 19 01:31:32 2008 UTC revision 1.55.6.3 by rtoy, Wed Mar 25 21:51:34 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.55.6.2  
changed lines
  Added in v.1.55.6.3

  ViewVC Help
Powered by ViewVC 1.1.5