/[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.62 by rtoy, Mon Apr 19 02:18:03 2010 UTC revision 1.63 by rtoy, Tue Apr 20 17:57:44 2010 UTC
# Line 308  Line 308 
308    ((base :initarg :base :reader intexp-base)    ((base :initarg :base :reader intexp-base)
309     (power :initarg :power :reader intexp-power))     (power :initarg :power :reader intexp-power))
310    (:report (lambda (condition stream)    (:report (lambda (condition stream)
311               (format stream _"The absolute value of ~S exceeds limit ~S."               (format stream (intl:gettext "The absolute value of ~S exceeds limit ~S.")
312                       (intexp-power condition)                       (intexp-power condition)
313                       *intexp-maximum-exponent*))))                       *intexp-maximum-exponent*))))
314    
# Line 333  Line 333 
333                 :power power)                 :power power)
334        (continue ()        (continue ()
335          :report (lambda (stream)          :report (lambda (stream)
336                    (write-string _"Continue with calculation" stream)))                    (write-string (intl:gettext "Continue with calculation") stream)))
337        (new-limit ()        (new-limit ()
338          :report (lambda (stream)          :report (lambda (stream)
339                    (write-string _"Continue with calculation, update limit" stream))                    (write-string (intl:gettext "Continue with calculation, update limit") stream))
340          (setq *intexp-maximum-exponent* (abs power)))))          (setq *intexp-maximum-exponent* (abs power)))))
341    (cond ((minusp power)    (cond ((minusp power)
342           (/ (intexp base (- power))))           (/ (intexp base (- power))))
# Line 909  Line 909 
909  (defun cis (theta)  (defun cis (theta)
910    "Return cos(Theta) + i sin(Theta), AKA exp(i Theta)."    "Return cos(Theta) + i sin(Theta), AKA exp(i Theta)."
911    (if (complexp theta)    (if (complexp theta)
912        (error _"Argument to CIS is complex: ~S" theta)        (error (intl:gettext "Argument to CIS is complex: ~S") theta)
913        (complex (cos theta) (sin theta))))        (complex (cos theta) (sin theta))))
914    
915  (defun asin (number)  (defun asin (number)

Legend:
Removed from v.1.62  
changed lines
  Added in v.1.63

  ViewVC Help
Powered by ViewVC 1.1.5