193c193
< 			    (SDIFF (LIST '($CHR2 SIMP)
---
> 			   (SDIFF (LIST '($CHR2 SIMP)
204c204
< 				 (LIST '( $CHR2 SIMP)
---
> 				 (LIST '($CHR2 SIMP)
243c243
< (DEFUN COVDIFF (E) (setq d ($dummy))
---
> (DEFUN COVDIFF (E) 
645,646c645
<                      (setq $DISPFLAG T)
< 		     ))
---
>                      (setq $DISPFLAG nil)))
648c647
< )
---
> 
965,966c964
<     (setf INDEX  (COND ((= NARGS 1) 1); Sets INDEX to 1
< 	               (T (ARG 2) ))) )) ; or 2nd argument of
---
>        (COND ((= NARGS 1) 1) (T (ARG 2))))) ;Sets INDEX to 1 or 2nd argument of
971c969
< 	((ATOM E) E) 
---
> 	((ATOM E) E)