/[gcl]/gcl/ansi-tests/types-and-class.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/types-and-class.lsp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch 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    

Legend:
Removed from v.1.21  
changed lines
  Added in v.1.22

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26