sprdet.lisp: rename special variable J to *J*

I don't know if it really needs to be a special variable, but its specialness
was restricted to a single function anyways, so it doesn't matter much.

Author: TomasRiker

src/sprdet.lisp

@@ -93,26 +93,26 @@
      on (setq rule (cons (list d s elm (1- col)) rule))
      (go l2)))
 
-(declare-top (special j))
+(declare-top (special *j*)) ;; Why does this need to be a special variable?
 
 (defun singp (x ml col n)
   (declare (fixnum col n))
-  (prog (i (j col) l) 
-     (declare (fixnum  j))
+  (prog (i (*j* col) l) 
+     (declare (fixnum  *j*))
      (setq l ml)
      (if (null ml)
 	 (go loop)
 	 (setq i (car ml)
 	       ml (cdr ml)))
      (cond ((member i rzl* :test #'equal) (return t))
 	   ((zrow x i col n) (return (setq rzl*(cons i rzl*)))))
-     loop (cond ((> j n) (return nil))
-		((every #'(lambda (i) (equal (aref x i j) 0)) l)
+     loop (cond ((> *j* n) (return nil))
+		((every #'(lambda (i) (equal (aref x i *j*) 0)) l)
 		 (return t)))
-     (incf j)
+     (incf *j*)
      (go loop)))
 
-(declare-top (unspecial j))
+(declare-top (unspecial *j*))
 
 (defun tdbu (x n)
   (declare (fixnum n))