* src/lsh_proxy.c: Adapted to stricter alist typing.

* src/lshd.c: Likewise.
* src/reaper.c: Likewise.
* src/server_publickey.c: Likewise.
* src/spki.c: Likewise.

Rev: src/server_publickey.c:1.19
Rev: src/spki.c:1.28

src/server_publickey.c

@@ -90,9 +90,13 @@ do_authenticate(struct userauth *s,
        : parse_eod(args))) 
     {
       struct lsh_user *user;
-      
-      lookup = ALIST_GET(self->verifiers, algorithm);
 
+      {
+	CAST_SUBTYPE(lookup_verifier, l,
+		     ALIST_GET(self->verifiers, algorithm));
+	lookup = l;
+      }
+      
       if (!lookup) 
 	{
 	  static const struct exception unsupported_publickey_algorithm

src/spki.c

@@ -109,9 +109,13 @@ spki_make_verifier(struct alist *algorithms,
   struct sexp_iterator *i;
 
   algorithm_name = spki_get_type(e, &i);
-  
-  algorithm = ALIST_GET(algorithms, algorithm_name);
 
+  {
+    CAST_SUBTYPE(signature_algorithm, a, 
+		 ALIST_GET(algorithms, algorithm_name));
+    algorithm = a;
+  }
+  
   if (!algorithm)
     {
       werror("spki_make_verifier: Unsupported algorithm %a.\n", algorithm_name);
@@ -148,7 +152,11 @@ spki_make_signer(struct alist *algorithms,
   if (!algorithm_name)
     return NULL;
   
-  algorithm = ALIST_GET(algorithms, algorithm_name);
+  {
+    CAST_SUBTYPE(signature_algorithm, a, 
+		 ALIST_GET(algorithms, algorithm_name));
+    algorithm = a;
+  }
 
   if (!algorithm)
     {