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