Commit d1422eda authored by pfdietz's avatar pfdietz

Added test that no classes are exported from COMMON-LISP that are not supposed...

Added test that no classes are exported from COMMON-LISP that are not supposed to be types in the standard.
parent bcebf0de
......@@ -2116,3 +2116,9 @@
vector
warning
))
(defparameter *cl-all-type-symbols*
(reduce #'union
(list *cl-type-symbols* *cl-types-that-are-classes-symbols*
*cl-system-class-symbols* *cl-class-symbols*
*cl-condition-type-symbols*)))
......@@ -247,7 +247,15 @@
collect sym)
nil)
;;; Confirm that only the symbols exported from CL that are supposed
;;; to be types are actually classes (see section 11.1.2.1.1)
(deftest all-exported-cl-class-names-are-valid
(loop for sym being the external-symbols of "COMMON-LISP"
when (and (find-class sym nil)
(not (member sym *cl-all-type-symbols* :test #'eq)))
collect sym)
nil)
......
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