From: <no...@so...> - 2003-01-02 16:30:46
|
Bugs item #661163, was opened at 2003-01-02 11:30 You can respond by visiting: https://sourceforge.net/tracker/?func=detail&atid=104933&aid=661163&group_id=4933 Category: None Group: None Status: Open Resolution: None Priority: 5 Submitted By: Stavros Macrakis (macrakis) Assigned to: Nobody/Anonymous (nobody) >Summary: need special declaration in rat3a/pquotient1/FIX Initial Comment: When running in interpreted (not compiled) GCL, it appears that the special declarations for k and q* in pquotient1 and pquotient2 need to be within the body of the functions, because apparently the special/unspecial declarations surrounding them are dynamic, not lexical. I have no idea if this is a GCL problem or not (I don't know the CL semantics of this case), but adding special declarations right after the arg list appears to fix the problem: (DEFUN PQUOTIENT1 (U V &AUX Q* (k 0)) (declare (fixnum k) (special k q*)) <<<<<<<<<< NEW (sloop do (setq k (f- (pt-le u) (pt-le v))) ..... (DEFUN PQUOTIENT2 (X Y &AUX (I 0)) .... (declare (special k q*)) <<<<<<<<<<< NEW (COND ((NULL Y) X) ---------------------------------------------------------------------- You can respond by visiting: https://sourceforge.net/tracker/?func=detail&atid=104933&aid=661163&group_id=4933 |