testcase for [ maxima-Bugs-541993 ] trigrat () crashes on example in manual



I'd like to check in this testcase

Index: rtest15.mac
===================================================================
RCS file: /cvsroot/maxima/maxima/tests/rtest15.mac,v
retrieving revision 1.5
diff -u -r1.5 rtest15.mac
--- rtest15.mac 14 Jun 2002 18:33:05 -0000      1.5
+++ rtest15.mac 21 Jun 2002 01:26:10 -0000
@@ -57,3 +57,9 @@
 'INTEGRATE(x*'DIFF(f(x,y),x,1,y,1)*y,x)$
 integrate(h(x,y),y);
 'INTEGRATE(x*'DIFF(f(x,y),x,1,y,1)*y,y)$
+
+/* maxima-Bugs-541993 - trigrat crashes on example in manual - Fixed June 2002 */
+(load("trigonometry/trigrat.lisp"),done);
+done;
+trigrat(sin(3*a)/sin(a+%pi/3));
+sqrt(3)*sin(2*a)+cos(2*a)-1;



-----Original Message-----
From: noreply@sourceforge.net [mailto:noreply at sourceforge]
Sent: Thursday, 20 June 2002 2:43 
To: noreply@sourceforge.net
Subject: [ maxima-Bugs-541993 ] trigrat () crashes on example in manual


Bugs item #541993, was opened at 2002-04-10 10:23
You can respond by visiting: 
http://sourceforge.net/tracker/?func=detail&atid=104933&aid=541993&group_id=4933

Category: None
Group: None
>Status: Closed
>Resolution: Works For Me
Priority: 5
Submitted By: David Billinghurst (billingd)
Assigned to: Nobody/Anonymous (nobody)
Summary: trigrat () crashes on example in manual

Initial Comment:
When I try the trigrat() example from the maxima 

manual on windows/clisp I get:



(C1) trigrat(sin(3*a)/sin(a+%pi/3));



Error: PEEKTYIPEEK is invalid as a function.

Fast links are on: do (si::use-fast-links nil) for 

debugging

Error signalled by X$-CL-MACRO-READ.

Broken at X$-CL-MACRO-READ.  Type :H for Help.

MAXIMA>>



----------------------------------------------------------------------

Comment By: Raymond Toy (rtoy)
Date: 2002-06-18 13:15

Message:
Logged In: YES 
user_id=28849

This appears to be fixed now in the CVS sources of 2002-06-18.

----------------------------------------------------------------------

You can respond by visiting: 
http://sourceforge.net/tracker/?func=detail&atid=104933&aid=541993&group_id=4933