From 1ee4ee2bbbaae67fe0bedea2873473b499acef90 Mon Sep 17 00:00:00 2001
From: pfdietz <pfdietz@localhost>
Date: Tue, 13 Jul 2004 13:43:19 +0000
Subject: [PATCH] Add TODOs

---
 ansi-tests/print-unreadable-object.lsp | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/ansi-tests/print-unreadable-object.lsp b/ansi-tests/print-unreadable-object.lsp
index 919fd83a..d93caf8e 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
-- 
GitLab