change in Romance agreement to produce correct number for polite singular pronouns ; linking functions that involve mkClause now takes a long time and should be revised

lib/src/spanish/DiffSpa.gf

@@ -91,10 +91,12 @@ instance DiffSpa of DiffRomance = open CommonRomance, PhonoSpa, BeschSpa, Prelud
     infForm _ _ _ _  = True ;
 
     mkImperative b p vp = {
-      s = \\pol,aag => 
+      s = \\pol,agr => 
         let 
           pe    = case b of {True => P3 ; _ => p} ;
-          agr   = aag ** {p = pe} ;
+----          agr   = aag ** {p = pe} ; 
+          aag   = verbAgr agr ; ----
+
           clpr  = <[],[],False> ; ----e pronArg agr.n agr.p vp.clAcc vp.clDat ;
 ----e          verb  = case <aag.n, pol,pe> of {
 ----e            <Sg,Neg,P2> => (vp.s ! VPInfinit Simul clpr.p3).inf ! aag ;

lib/src/spanish/IdiomSpa.gf

@@ -39,7 +39,7 @@ concrete IdiomSpa of Idiom = CatSpa **
         (predV (verboV (estar_2 "estar"))) ;
 
     ImpPl1 vp = {s =
-      (mkImperative False P1 vp).s ! Pos ! {n = Pl ; g = Masc} --- fem
+      (mkImperative False P1 vp).s ! Pos ! Ag Masc Pl P1 ; --- fem
       } ;
 
 }

lib/src/spanish/MorphoSpa.gf

@@ -110,7 +110,7 @@ oper
        <Pl,Fem>  => see 
        } ;
 
-    a = {g = g ; n = n ; p = p} ;
+    a = Ag g n p ;
     hasClit = True
     } ;