From 16d37bd465ef19c454aa88a4d2eb38001e04c759 Mon Sep 17 00:00:00 2001 From: pfdietz <pfdietz@localhost> Date: Wed, 15 Jun 2005 02:43:16 +0000 Subject: [PATCH] Add check that make-instance barfs on built-in classes --- ansi-tests/make-instance.lsp | 10 ++++++++++ 1 file changed, 10 insertions(+) diff --git a/ansi-tests/make-instance.lsp b/ansi-tests/make-instance.lsp index 9d531e3a..a7665a2e 100644 --- a/ansi-tests/make-instance.lsp +++ b/ansi-tests/make-instance.lsp @@ -38,6 +38,16 @@ program-error) t) +(deftest make-instance.error.6 + (let ((classes (remove-duplicates + (remove-if-not + #'(lambda (cl) (typep cl 'built-in-class)) + (mapcar #'class-of *universe*))))) + (loop for cl in classes + unless (eval `(signals-error (make-instance ',cl) error)) + collect cl)) + nil) + ;; Definitions of methods (defmethod make-instance ((x make-instance-class-01) -- GitLab