Added external interface to sort a list.
diff --git a/Objects/listobject.c b/Objects/listobject.c
index b02a661..97088c5 100644
--- a/Objects/listobject.c
+++ b/Objects/listobject.c
@@ -453,6 +453,21 @@
 	return None;
 }
 
+int
+sortlist(v)
+	object *v;
+{
+	if (v == NULL || !is_listobject(v)) {
+		err_badcall();
+		return -1;
+	}
+	v = listsort((listobject *)v, (object *)NULL);
+	if (v == NULL)
+		return -1;
+	DECREF(v);
+	return 0;
+}
+
 static struct methodlist list_methods[] = {
 	{"append",	listappend},
 	{"insert",	listinsert},