diff --git a/ansi-tests/print-unreadable-object.lsp b/ansi-tests/print-unreadable-object.lsp
index 919fd83ad72cd7303037c6d46f63079956dd4345..d93caf8e50dfde0dcb82e5a0330519b2218e4802 100644
--- a/ansi-tests/print-unreadable-object.lsp
+++ b/ansi-tests/print-unreadable-object.lsp
@@ -93,6 +93,12 @@
    collect (list x return-vals s))
   nil)
 
+;;; TODO Tests that the :identity and :type arguments are evaluated
+;;; TODO Tests where :type, :identity are provided, but are nil
+;;; TODO Test that the type/identity parts of the output are the same
+;;;       for the both-printed case as they are in the only-one printed case,
+;;;       and that only a single space occurs between them if FORMS is omitted.
+
 ;;; Error cases
 
 (deftest print-unreadable-object.error.1