Commit 3f9ff82f authored by Kevin Cozens's avatar Kevin Cozens
Browse files

Removed some debug statements left in by mistake.

parent d1e56109
......@@ -484,7 +484,6 @@ arcons (long typecode, long n, long initp)
a->storage_as.lisp_array.data[j] = NIL;
break;
default:
fprintf(stderr, "arcons"); /* ~~~~~ */
errswitch ();
}
a->type = typecode;
......@@ -956,7 +955,6 @@ array_equal (LISP a, LISP b)
return (NIL);
return (sym_t);
default:
fprintf(stderr, "arrayequal"); /* ~~~~~ */
return (errswitch ());
}
}
......@@ -1013,7 +1011,6 @@ array_sxhash (LISP a, long n)
n);
return (hash);
default:
fprintf(stderr, "array_sxhash"); /* ~~~~~ */
errswitch ();
return (0);
}
......@@ -1326,7 +1323,6 @@ array_fast_print (LISP ptr, LISP table)
fast_print (ptr->storage_as.lisp_array.data[j], table);
return (NIL);
default:
fprintf(stderr, "array_fast_print"); /* ~~~~~ */
return (errswitch ());
}
}
......@@ -1399,7 +1395,6 @@ array_fast_read (int code, LISP table)
ptr->storage_as.lisp_array.data[j] = fast_read (table);
return (ptr);
default:
fprintf(stderr, "array_fast_read"); /* ~~~~~ */
return (errswitch ());
}
}
......@@ -1823,7 +1818,6 @@ base64encode (LISP in)
*p2++ = base64_encode_table[64];
break;
default:
fprintf(stderr, "base64encode"); /* ~~~~~ */
errswitch ();
}
return (out);
......@@ -1891,7 +1885,6 @@ base64decode (LISP in)
*p2++ = (item2 << 4) | (item3 >> 2);
break;
default:
fprintf(stderr, "base64decode"); /* ~~~~~ */
errswitch ();
}
return (out);
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment