diff --git a/support-d/.gdbinit b/support-d/.gdbinit
index 7722e7f57e..1538773b9c 100644
--- a/support-d/.gdbinit
+++ b/support-d/.gdbinit
@@ -59,4 +59,17 @@ end
 document event_dump
 Usage: event_dump [switch_event_t*]
 Print an event's headers and values
-end
\ No newline at end of file
+end
+
+define print_list
+	dont-repeat
+	set $x = $arg0
+	while ($x != 0x0)
+		print *$x
+		set $x = $x->next
+	end
+end
+document print_list
+Usage print_list [symbol]
+Prints all the remaining elements of a linked list
+end