Commit 7e9d2eef authored by pfdietz's avatar pfdietz

Added tests that structure types are subtypes of STRUCTURE-OBJECT.

parent 90fc5da7
......@@ -496,6 +496,14 @@ do the defstruct."
'(nil t)))
collect type))
nil)
(deftest ,(make-struct-test-name name "15A")
(let ((class (find-class (quote ,name))))
(notnot-mv (subtypep class 'structure-object)))
t t)
(deftest ,(make-struct-test-name name "15B")
(notnot-mv (subtypep (quote ,name) 'structure-object))
t t)
))
;;; Documentation tests
......
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