Skip to content
Snippets Groups Projects
Commit 16d37bd4 authored by pfdietz's avatar pfdietz
Browse files

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

parent c8ae1c4c
No related branches found
No related tags found
No related merge requests found
...@@ -38,6 +38,16 @@ ...@@ -38,6 +38,16 @@
program-error) program-error)
t) 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 ;; Definitions of methods
(defmethod make-instance ((x make-instance-class-01) (defmethod make-instance ((x make-instance-class-01)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment