Is there anything simple I can do (in nint.mac) to
surpress the message Principal Value which integrate
issues to the console screen in, for example,
(%i13) integrate(sin(x)*(sin(x^2)*(sin(x^3)+1/x)+1/x),x,0,inf);
Principal Value
(%o13) 'integrate(sin(x)*(sin(x^2)*(sin(x^3)+1/x)+1/x),x,0,inf)
This message comes from line 1030 in defint.list with the
context (1027-1031):
(defun principal nil
(cond ($noprincipal (diverg))
((not pcprntd)
(format t "Principal Value~%")
(setq pcprntd t))))
Ted Woollett