Parent Directory | Revision Log | Patch
revision 1.21 by pfdietz, Sat Feb 1 00:57:37 2003 UTC | revision 1.22 by pfdietz, Sat Feb 1 01:40:36 2003 UTC | |
---|---|---|
# | Line 247 | Line 247 |
247 | collect sym) | collect sym) |
248 | nil) | nil) |
249 | ||
250 | ;;; Confirm that only the symbols exported from CL that are supposed | |
251 | ;;; to be types are actually classes (see section 11.1.2.1.1) | |
252 | ||
253 | (deftest all-exported-cl-class-names-are-valid | |
254 | (loop for sym being the external-symbols of "COMMON-LISP" | |
255 | when (and (find-class sym nil) | |
256 | (not (member sym *cl-all-type-symbols* :test #'eq))) | |
257 | collect sym) | |
258 | nil) | |
259 | ||
260 | ||
261 |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |