Commit 16d37bd4 authored by pfdietz's avatar pfdietz

Add check that make-instance barfs on built-in classes

parent c8ae1c4c
......@@ -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)
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment