added AdAP in Slovenian

lib/src/slovenian/AdjectiveSlv.gf

@@ -17,5 +17,9 @@ concrete AdjectiveSlv of Adjective = CatSlv ** open ResSlv in {
         }
       } ;
 
+    AdAP ada ap = {
+      s = \\spec,g,c,n => ada.s ++ ap.s ! spec ! g ! c ! n
+      } ;
+
     AdvAP ap adv = {s = \\spec,g,c,n => ap.s ! spec ! g ! c ! n ++ adv.s} ;
 }

lib/src/slovenian/ParadigmsSlv.gf

@@ -287,6 +287,8 @@ oper
 
   mkAdV : Str -> AdV = \s -> lin AdV {s=s} ;
 
+  mkAdA : Str -> AdA = \s -> lin AdA {s=s} ;
+
   mkPron : (_,_,_,_,_,_,_ : Str) -> Gender -> Number -> Person -> Pron =
     \nom,acc,gen,dat,loc,instr,poss,g,n,p ->
     lin Pron {s = table {