From f80f28430d73058f2fde936b5ea21f8a01a9952b Mon Sep 17 00:00:00 2001 From: pfdietz <pfdietz@localhost> Date: Wed, 11 Jun 2003 10:57:49 +0000 Subject: [PATCH] Commented out tests allocate-instance.error.[23], after a good argument was received that they are bogus. --- ansi-tests/allocate-instance.lsp | 6 ++++++ 1 file changed, 6 insertions(+) diff --git a/ansi-tests/allocate-instance.lsp b/ansi-tests/allocate-instance.lsp index 653266f2..830bec3c 100644 --- a/ansi-tests/allocate-instance.lsp +++ b/ansi-tests/allocate-instance.lsp @@ -111,6 +111,11 @@ (classify-error (allocate-instance)) program-error) +;;; Duane Rettig made a convincing argument that the next two +;;; tests are bad, since the caller of allocate-instance +;;; is supposed to have checked that the initargs are valid + +#| (deftest allocate-instance.error.2 (classify-error (allocate-instance (find-class 'allocate-instance-class-01) :b)) @@ -120,3 +125,4 @@ (classify-error (allocate-instance (find-class 'allocate-instance-class-01) '(a b c) nil)) program-error) +|# -- GitLab