Unshit the code(Mobspawners) (#7706)

code/_helpers/_lists.dm

@@ -15,6 +15,22 @@
  * Misc
  */
 
+//CHOMPEdit Begin
+///compare two lists, returns TRUE if they are the same
+/proc/compare_list(list/l,list/d)
+	if(!islist(l) || !islist(d))
+		return FALSE
+
+	if(l.len != d.len)
+		return FALSE
+
+	for(var/i in 1 to l.len)
+		if(l[i] != d[i])
+			return FALSE
+
+	return TRUE
+//CHOMPEdit End
+
 //Returns a list in plain english as a string
 /proc/english_list(var/list/input, nothing_text = "nothing", and_text = " and ", comma_text = ", ", final_comma_text = ",")
 	// this proc cannot be merged with counting_english_list to maintain compatibility
@@ -898,4 +914,4 @@ var/global/list/json_cache = list()
 			return item
 
 	return null
-//CHOMPAdd end
+//CHOMPAdd end