/[gcl]/gcl/ansi-tests/cl-symbols.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/cl-symbols.lsp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.10 by pfdietz, Fri Nov 29 21:48:06 2002 UTC revision 1.11 by pfdietz, Wed Dec 4 02:55:41 2002 UTC
# Line 1418  Line 1418 
1418    nil)    nil)
1419    
1420                            
1421    ;;; Check that all types that are classes name classes.
1422    
1423    ;;; "Many but not all of the predefined type specifiers have
1424    ;;;  a corresponding class with the same proper name as the type.
1425    ;;;  These type specifiers are listed in Figure 4-8." -- section 4.3.7
1426    
1427    (deftest cl-types-that-are-classes-symbols.1
1428      ;; Collect class names that violate the condition in the
1429      ;; above quotation.
1430      (loop
1431       for s in *cl-types-that-are-classes-symbols*
1432       for c = (find-class s nil)
1433       unless (and c
1434                   (eq (class-name c) s)
1435                   (typep c 'class))
1436       collect s)
1437      nil)

Legend:
Removed from v.1.10  
changed lines
  Added in v.1.11

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