diff --git a/ansi-tests/allocate-instance.lsp b/ansi-tests/allocate-instance.lsp index 653266f23595a4b5a74b59eaca25437525fd7985..830bec3c5b6bebdca7d33c3cfc7dbf91d9601c99 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) +|#