Remove SunOS 4 version of aref_switch. (#205)

When compiling for SunOS4, we would have a macro-ized version
of this function which required a slightly different call-site.

This removes all of that as it isn't used or needed.

src/array.c

@@ -52,11 +52,6 @@ LispPTR N_OP_misc3(LispPTR baseL, LispPTR typenumber, LispPTR inx, int alpha) {
   /*  test and setup typenumber  */
   N_GetPos(typenumber, type, inx);
 
-/*  disp on type  */
-#ifdef OS4
-  aref_switch(type, inx, baseL, index);
-#else
+  /*  disp on type  */
   return (aref_switch(type, inx, baseL, index));
-#endif
-
 } /*  end N_OP_misc3()  */

src/array3.c

@@ -51,11 +51,6 @@ LispPTR N_OP_aref1(register LispPTR arrayarg, register LispPTR inx) {
   /*  setup base  */
   baseL = arrayblk->base;
 
-/*  disp on type  */
-#ifdef OS4
-  aref_switch(type, inx, baseL, index);
-#else
+  /*  disp on type  */
   return (aref_switch(type, inx, baseL, index));
-#endif
-
 } /*  end N_OP_aref1()  */

src/array5.c

@@ -62,11 +62,6 @@ LispPTR N_OP_aref2(LispPTR arrayarg, LispPTR inx0, LispPTR inx1) {
   /*  setup typenumber  */
   type = 0xFF & arrayblk->typenumber;
 
-/*  disp on type  */
-#ifdef OS4
-  aref_switch(type, inx1, baseL, arindex);
-#else
+  /*  disp on type  */
   return (aref_switch(type, inx1, baseL, arindex));
-#endif
-
 } /*  end N_OP_aref2()  */