/[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.27 by dtc, Tue Feb 24 18:18:17 1998 UTC revision 1.28 by dtc, Wed Apr 15 01:29:57 1998 UTC
# Line 379  Line 379 
379           (complex-sqrt number)           (complex-sqrt number)
380           (coerce (%sqrt (coerce number 'double-float)) 'single-float)))           (coerce (%sqrt (coerce number 'double-float)) 'single-float)))
381      (((foreach single-float double-float))      (((foreach single-float double-float))
382       (if (< (float-sign number)       (if (minusp number)
             (coerce 0 '(dispatch-type number)))  
383           (complex-sqrt number)           (complex-sqrt number)
384           (coerce (%sqrt (coerce number 'double-float))           (coerce (%sqrt (coerce number 'double-float))
385                   '(dispatch-type number))))                   '(dispatch-type number))))

Legend:
Removed from v.1.27  
changed lines
  Added in v.1.28

  ViewVC Help
Powered by ViewVC 1.1.5